okamura – ページ 31 – テックメモ

2018-01-23

VBA 簡易承認機能

シートをパスワード保護し、そこに値を保存することで簡易的な承認機能を作成しようとした。実際に表示されている値と、保護された承認済みの値は起動時にチェックできるが、承認済みの値が見えないと使いづらいだろうと判断し別の方法を作成することにした。

Sub auto_open()

On Error Resume Next

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'コンテキスト削除

Application.CommandBars("cell").Controls("承認").Delete
Application.CommandBars("cell").Controls("承認").Delete

'コンテキスト初期化

With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

  .Caption = "承認"
  
  With .Controls.Add
    .Caption = "承認①(" & Sheets("setting").Cells(3, 2).Value & ")"
    .OnAction = "'approval(3)'"
  End With
  
  With .Controls.Add
    .Caption = "承認②(" & Sheets("setting").Cells(4, 2).Value & ")"
    .OnAction = "'approval(4)'"
  End With

  With .Controls.Add
    .Caption = "承認③(" & Sheets("setting").Cells(5, 2).Value & ")"
    .OnAction = "'approval(5)'"
  End With

  With .Controls.Add
    .Caption = "承認④(" & Sheets("setting").Cells(6, 2).Value & ")"
    .OnAction = "'approval(6)'"
  End With
  
  With .Controls.Add
  
    .Caption = "設定"
    .OnAction = "setting"
    
  End With
  
End With

'起動チェック

On Error GoTo try

With Sheets("setting")

OnOff = UCase(.Cells(18, 2).Value)

If OnOff = "ON" Then

  s = .Cells(1, 2).Value
  
  'セル位置1
  r = .Cells(3, 2).Value
  If r <> "" Then
    v = Sheets(s).Range(r).Value
    If .Cells(8, 2).Value <> v Then MsgBox "承認されていません。#1"
  End If
  
  'セル位置2
  r = .Cells(4, 2).Value
  If r <> "" Then
    v = Sheets(s).Range(r).Value
    If .Cells(9, 2).Value <> v Then MsgBox "承認されていません。#2"
  End If
  
  'セル位置3
  r = .Cells(5, 2).Value
  If r <> "" Then
    v = Sheets(s).Range(r).Value
    If .Cells(10, 2).Value <> v Then MsgBox "承認されていません。#3"
  End If
  
  'セル位置4
  r = .Cells(6, 2).Value
  If r <> "" Then
    v = Sheets(s).Range(r).Value
    If .Cells(11, 2).Value <> v Then MsgBox "承認されていません。#3"
  End If
  
End If

End With

Exit Sub

try:

  MsgBox "起動時の承認が確認できませんでした"

End Sub

Sub auto_close()

On Error Resume Next

'コンテキスト削除

Application.CommandBars("cell").Controls("承認").Delete
Application.CommandBars("cell").Controls("承認").Delete

'設定シート保護

With Sheets("setting")

  .Visible = xlVeryHidden
  .Protect Password:="1234"
  
End With

End Sub

Sub setting()

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'表示されていたら非表示

If Sheets("setting").Visible = True Then

  With Sheets("setting")

    .Visible = xlVeryHidden
    .Protect Password:="1234"
  
  End With

  Exit Sub

End If

'管理者パスワードチェック

If admin_chk = False Then Exit Sub

With Sheets("setting")

'設定シート表示

  .Visible = True
  .Unprotect Password:="1234"

'アクティブ

  .Activate

End With

End Sub

Function sheets_exists()

i = False

For Each w In Sheets
  If w.Name = "setting" Then i = True
Next

If i = True Then

  sheets_exists = True
  
ElseIf i = False Then

  MsgBox "設定シートが存在しません。"
  sheets_exists = False
  
End If

End Function

Function admin_chk()

admin = "skthskth"
pw = InputBox("パスワードを入力してください")
If pw = "" Then Exit Function

If admin = pw Then

  admin_chk = True

ElseIf admin <> pw Then

  MsgBox "パスワードが正しくありません。"
  admin_chk = False

End If

End Function

Function app_pw_chk(p)

'sk4?0?

If Len(p) <> 6 Then GoTo e
If Left(p, 3) <> "sk4" Then GoTo e
If Mid(p, 5, 1) <> "0" Then GoTo e

app_pw_chk = True

Exit Function

e:

  MsgBox "承認パスワードが違います。"
  app_pw_chk = False

End Function

Sub approval(target_row)

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'承認パスワードチェック

p = InputBox("承認者パスワードを入力してください。")
If p = "" Then Exit Sub
If app_pw_chk(p) = False Then Exit Sub

'書き込み

On Error GoTo try

With Sheets("setting")
  
  .Unprotect Password:="1234"

  s = .Cells(1, 2).Value
  
  '承認
  r = .Cells(target_row, 2).Value
  If r = "" Then
    .Cells(target_row + 5, 2).Value = ""
  ElseIf r <> "" Then
    .Cells(target_row + 5, 2).Value = Sheets(s).Range(r).Value
  End If
  
  '承認者
  .Cells(target_row + 10, 2).Value = p
  
  .Protect Password:="1234"
  
End With

Exit Sub

try:

  MsgBox "承認処理が正しく実行されませんでした。"

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

Sub auto_open()

On Error Resume Next

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'コンテキスト削除

Application.CommandBars("cell").Controls("承認").Delete

'コンテキスト初期化

With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

.Caption = "承認"

With .Controls.Add

.Caption = "承認①(" & Sheets("setting").Cells(3, 2).Value & ")"

.OnAction = "'approval(3)'"

End With

With .Controls.Add

.Caption = "承認②(" & Sheets("setting").Cells(4, 2).Value & ")"

.OnAction = "'approval(4)'"

End With

With .Controls.Add

.Caption = "承認③(" & Sheets("setting").Cells(5, 2).Value & ")"

.OnAction = "'approval(5)'"

End With

With .Controls.Add

.Caption = "承認④(" & Sheets("setting").Cells(6, 2).Value & ")"

.OnAction = "'approval(6)'"

End With

With .Controls.Add

.Caption = "設定"

.OnAction = "setting"

End With

'起動チェック

On Error GoTo try

With Sheets("setting")

OnOff = UCase(.Cells(18, 2).Value)

If OnOff = "ON" Then

s = .Cells(1, 2).Value

'セル位置1

r = .Cells(3, 2).Value

If r <> "" Then

v = Sheets(s).Range(r).Value

If .Cells(8, 2).Value <> v Then MsgBox "承認されていません。#1"

End If

'セル位置2

r = .Cells(4, 2).Value

If r <> "" Then

v = Sheets(s).Range(r).Value

If .Cells(9, 2).Value <> v Then MsgBox "承認されていません。#2"

End If

'セル位置3

r = .Cells(5, 2).Value

If r <> "" Then

v = Sheets(s).Range(r).Value

If .Cells(10, 2).Value <> v Then MsgBox "承認されていません。#3"

End If

'セル位置4

r = .Cells(6, 2).Value

If r <> "" Then

v = Sheets(s).Range(r).Value

If .Cells(11, 2).Value <> v Then MsgBox "承認されていません。#3"

End If

End With

Exit Sub

try:

MsgBox "起動時の承認が確認できませんでした"

End Sub

Sub auto_close()

On Error Resume Next

'コンテキスト削除

Application.CommandBars("cell").Controls("承認").Delete

'設定シート保護

With Sheets("setting")

.Visible = xlVeryHidden

.Protect Password:="1234"

End With

End Sub

Sub setting()

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'表示されていたら非表示

If Sheets("setting").Visible = True Then

With Sheets("setting")

.Visible = xlVeryHidden

.Protect Password:="1234"

End With

Exit Sub

End If

'管理者パスワードチェック

If admin_chk = False Then Exit Sub

With Sheets("setting")

'設定シート表示

.Visible = True

.Unprotect Password:="1234"

'アクティブ

.Activate

End With

End Sub

Function sheets_exists()

i = False

For Each w In Sheets

If w.Name = "setting" Then i = True

If i = True Then

sheets_exists = True

ElseIf i = False Then

MsgBox "設定シートが存在しません。"

sheets_exists = False

End If

End Function

Function admin_chk()

admin = "skthskth"

pw = InputBox("パスワードを入力してください")

If pw = "" Then Exit Function

If admin = pw Then

admin_chk = True

ElseIf admin <> pw Then

MsgBox "パスワードが正しくありません。"

admin_chk = False

End If

End Function

Function app_pw_chk(p)

'sk4?0?

If Len(p) <> 6 Then GoTo e

If Left(p, 3) <> "sk4" Then GoTo e

If Mid(p, 5, 1) <> "0" Then GoTo e

app_pw_chk = True

Exit Function

MsgBox "承認パスワードが違います。"

app_pw_chk = False

End Function

Sub approval(target_row)

'設定シート存在チェック

If sheets_exists = False Then Exit Sub

'承認パスワードチェック

p = InputBox("承認者パスワードを入力してください。")

If p = "" Then Exit Sub

If app_pw_chk(p) = False Then Exit Sub

'書き込み

On Error GoTo try

With Sheets("setting")

.Unprotect Password:="1234"

s = .Cells(1, 2).Value

'承認

r = .Cells(target_row, 2).Value

If r = "" Then

.Cells(target_row + 5, 2).Value = ""

ElseIf r <> "" Then

.Cells(target_row + 5, 2).Value = Sheets(s).Range(r).Value

End If

'承認者

.Cells(target_row + 10, 2).Value = p

.Protect Password:="1234"

End With

Exit Sub

try:

MsgBox "承認処理が正しく実行されませんでした。"

End Sub

2018-01-21

C# Access(mdb) コード内で作成

コード内でmdb作成。Close入れないと接続が残っている。

using System.Windows.Forms;

//参照設定追加
//Microsoft ADO Ext X.X for DDL and Security
//Microsoft ActiveX Data Objects 6.0 Library

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            ADOX.Catalog cat = new ADOX.Catalog();
            ADODB.Connection db1 = cat.Create("Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" + Application.StartupPath + @"\test1.mdb;Jet OLEDB:Engine Type=5");
            ADODB.Connection db2 = cat.Create("Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" + Application.StartupPath + @"\test2.mdb;Jet OLEDB:Engine Type=5");
            db1.Close();
            db2.Close();
        }
    }
}

using System.Windows.Forms;

//参照設定追加

//Microsoft ADO Ext X.X for DDL and Security

//Microsoft ActiveX Data Objects 6.0 Library

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

ADOX.Catalog cat = new ADOX.Catalog();

ADODB.Connection db1 = cat.Create("Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" + Application.StartupPath + @"\test1.mdb;Jet OLEDB:Engine Type=5");

ADODB.Connection db2 = cat.Create("Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" + Application.StartupPath + @"\test2.mdb;Jet OLEDB:Engine Type=5");

db1.Close();

db2.Close();

}

2018-01-192022-08-23

C# DataTable メモ

using System.Data;
using System.Linq;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            // データテーブル作成
            DataTable dt = new DataTable("newTable");

            // カラム作成
            string[] cols = new string[] { "id", "name", "age" };

            foreach (string c in cols)
            {
                dt.Columns.Add(c);
            }

            // データセット作成
            DataSet ds = new DataSet();

            // データセットにテーブルを追加
            ds.Tables.Add(dt);

            // 値作成(2次元配列) 
            string[,] vals = new string[,] {
                {"01", "02", "03", "04"}, // id
                {"aa", "bb", "cc", "dd"}, // name
                {"11", "12", "13", "14"}  // age
            };

            for (int r = 0; r < vals.GetLength(1); r++) // GetLength(0) = 3(1次元), GetLength(1) = 4(2次元)
            {
                DataRow row = ds.Tables["newTable"].NewRow();
                // DataRow row = dt.NewRow(); このようにも書ける

                row["id"] = vals[0, r]; // [1次元、2次元]
                row["name"] = vals[1, r];
                row["age"] = vals[2, r];

                ds.Tables["newTable"].Rows.Add(row);
            }

            // データソース設定
            dataGridView1.DataSource = ds.Tables["newTable"];

            // 条件を追加したデータテーブル間での複写--------------------------------------------------------

            var newTable = dt.Clone();

            // ベースループ
            foreach (var baseRow in dt.AsEnumerable())
            {
                // ①特定の行を飛ばす
                if (baseRow["id"].ToString() == "02") continue;

                // ②特定の文字列を置き換える
                if(baseRow["age"].ToString() == "13")
                {
                    baseRow["age"] = "26";
                }

                newTable.ImportRow(baseRow);
            }

            // データセット作成
            DataSet ds2 = new DataSet();

            // データセットにテーブルを追加
            ds2.Tables.Add(newTable.Copy());

            // データソース設定
            dataGridView2.DataSource = ds2.Tables["newTable"];
        }
    }
}

using System.Data;

using System.Linq;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

// データテーブル作成

DataTable dt = new DataTable("newTable");

// カラム作成

string[] cols = new string[] { "id", "name", "age" };

foreach (string c in cols)

{

dt.Columns.Add(c);

}

// データセット作成

DataSet ds = new DataSet();

// データセットにテーブルを追加

ds.Tables.Add(dt);

// 値作成(2次元配列)

string[,] vals = new string[,] {

{"01", "02", "03", "04"}, // id

{"aa", "bb", "cc", "dd"}, // name

{"11", "12", "13", "14"} // age

};

for (int r = 0; r < vals.GetLength(1); r++) // GetLength(0) = 3(1次元), GetLength(1) = 4(2次元)

{

DataRow row = ds.Tables["newTable"].NewRow();

// DataRow row = dt.NewRow(); このようにも書ける

row["id"] = vals[0, r]; // [1次元、2次元]

row["name"] = vals[1, r];

row["age"] = vals[2, r];

ds.Tables["newTable"].Rows.Add(row);

}

// データソース設定

dataGridView1.DataSource = ds.Tables["newTable"];

// 条件を追加したデータテーブル間での複写--------------------------------------------------------

var newTable = dt.Clone();

// ベースループ

foreach (var baseRow in dt.AsEnumerable())

{

// ①特定の行を飛ばす

if (baseRow["id"].ToString() == "02") continue;

// ②特定の文字列を置き換える

if(baseRow["age"].ToString() == "13")

{

baseRow["age"] = "26";

}

newTable.ImportRow(baseRow);

}

// データセット作成

DataSet ds2 = new DataSet();

// データセットにテーブルを追加

ds2.Tables.Add(newTable.Copy());

// データソース設定

dataGridView2.DataSource = ds2.Tables["newTable"];

}

2017-12-262017-12-26

PowerShell リモート接続設定

ホスト側のPC

enable-psremoting
を実行。

ネットワークがPublicだと接続できない。
Win10の設定＞ネットワークとインターネット＞接続プロパティの変更＞プライベート

接続できるユーザを追加。
Set-PSSessionConfiguration -Name Microsoft.PowerShell -showSecurityDescriptorUI
追加するとき、もしMicrosoftアカウントならメールアドレスで検索して追加。

クライアント側のPC

クライアント側から信頼できるホストを追加。
Set-Item WSMan:\localhost\Client\TrustedHosts -Value PC_name

接続は、
Enter-PSSession -ComputerName PC_name -Credential mail@xxx.com
を実行。

切断は、
Exit-PSSession

エイリアス追加

必要なら
Set-ExecutionPolicy Unrestricted

$profile
を実行すると読み込まれているかどうか分かる。

既にファイルが存在すれば、
notepad $profile
存在しなければ、
New-item -type file -force $profile
notepad $profile
を実行し、以下のように記述。

Set-Alias -name c -value cd
Set-Alias -name l -value ls
Set-Alias -name pss -value f
function f()
{
Enter-PSSession -ComputerName PC_name -Credential mail@xxx.com
}

2017-12-222023-09-17

ショートカットメモ

よく使うものだけ。

Excel

・オートフィルタ：
Alt＞A＞T

・ソート：
Alt＞A＞S＞S

・重複削除：
Alt＞A＞M

・書式設定：
Ctrl + 1

・値の貼り付け：
右クリック＞S＞V

・テキストボックス挿入：
Alt＞N＞X＞H

・図形挿入：
Alt＞N＞S＞H

Affinity Designer

・移動ツール：
V

・カーブ形式に変換：
右クリック＞カーブに変換

＊＊＊

・ノードツール：
A

・コントロールハンドル削除：
Alt+クリック

・ノード削除：
ノード選択＞Delete

・カーブ切断：
ノード選択＞右クリック＞カーブ切断

・コントロールハンドル追加
ノード選択＞右クリック＞スマートに変換

Illustrator

・ダイレクト選択（パスの部分的削除）：
A

・選択：
V

・複写：
Alt + ドラッグ

・移動＝角度固定／縮小拡大＝比率固定：
Shift + ドラッグ

・ペン：
P
＞アンカーポイント追加
＞アンカーポイント削除

・アンカー切り替えツール：
Shift + C：
＞アンカーポイントクリック＞ハンドル作成
＞ハンドルクリック＞ハンドル削除

・ズーム：
Z

・ズーム：
Ctrl + Space

・標準表示：
Ctrl + 1

・上下：
スクロール

・左右：
Ctrl + スクロール

・パスのアウトライン化：
オブジェクト＞パス＞パスのアウトライン

・オブジェクトの結合・切り抜き：
ウィンドウ＞パスファインダー

・影、ぼかし：
効果＞スタライズ＞ドロップシャドウ・ぼかし

・テキストボックス：
アピアランス追加＞形状に変換＞長方形

Gimp

・部分的に削除して上下を詰めたい場合
Ctrl+Shift+L(選択範囲のフローと化)
右クリック＞I,O(内容で切り抜き)
右クリック＞F,W(上書きエクスポート)

・移動
M

・切り抜き
Shif+C
縦横比にチェックを入れれば現在の比率で切り抜ける

・選択
E / R

・回転
Shift+R
Shift押しながらだと15度ずつ

・拡大縮小
Shift+S

レイヤー＞レイヤーをキャンバスに合わせる
・レイヤーが小さい場合＝レイヤーサイズがキャンバスと同じになる。
・レイヤーが大きい場合＝キャンバスからはみ出したレイヤーが切り落とされる。
※キャンバスのサイズは変わらない。レイヤーのサイズが変わる。

画像＞内容で切り抜き
・レイヤーが小さい場合＝キャンバスがレイヤーサイズになる。
・レイヤーが大きい場合＝キャンバスからはみ出したレイヤーが切り落とされる。
※はみ出したレイヤーは切り落とされ、
レイヤーの無いキャンバスはトリムされるように、キャンバスサイズが変わる。

画像＞キャンバスをレイヤーに合わせる
・レイヤーが小さい場合＝キャンバスがレイヤーサイズになる。
・レイヤーが大きい場合＝キャンバスがレイヤーサイズになる。
※レイヤーを損なわないようにキャンバスのサイズ変わる。

Visual Studio

・コメント登録/削除：
Ctrl + E＞C / Ctrl + E＞U

・ブックマーク登録/削除：
Ctrl + K＞K

・ブックマーク移動：
Ctrl + K＞N

・定義元へ移動：
F12

・オブジェクトが使われている一覧(参照)：
Shift + F12

・戻る：
Ctrl + –

・対応するカッコにジャンプ：
Ctrl + ]

・指定行へ移動：
Ctrl + g

・デバッグ実行：
F5

IME

普段はGoogle日本語入力を利用。

・確定後修正

確定後、
Ctrl + BS
で、確定前の状態に戻し、もう一度、
Ctrl + BS(またはEsc)
でかな状態に戻せば部分的に修正できる。

Escだと押しすぎるとキャンセルされてしまうので、
Ctrl + BS
を2回押す方が無難。

・変換

カタカナ変換
Ctrl + I

ひらがな変換
Ctrl + U

半角変換
Ctrl + O

英数変換
Ctrl + P

半角のカタカナ、英数は、
Ctrl + I → O / Ctrl + P → O
と入力する。

・区切位置の移動

区切位置の移動
Ctrl + K / Ctrl + L

変換対象の切り替え
Ctrl + S / Ctrl + D

変換対象の部分確定
Ctrl + N

2017-12-21

C# SSH.NET

資料が少ない。NuGetでSSH.NETと検索。

using System;
using System.Windows.Forms;

using Renci.SshNet;

namespace BlogBackup
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent(); 
        }
        
        private void button1_Click(object sender, EventArgs e)
        {
            var pkci = new PrivateKeyConnectionInfo("URL",22, "user", new PrivateKeyFile("key", "pass"));

            using (var ssh = new SshClient(pkci))
            {
                ssh.Connect();
                var cmd = ssh.CreateCommand("ls");
                cmd.Execute();
                ssh.Disconnect();
            }

            using (var ftp = new SftpClient(pkci))
            {
                ftp.Connect();
                ftp.DownloadFile("/home/xxx/test.sql", System.IO.File.OpenWrite("test.sql"));
                ftp.Disconnect();
            }
        }
    }
}

using System;

using System.Windows.Forms;

using Renci.SshNet;

namespace BlogBackup

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

var pkci = new PrivateKeyConnectionInfo("URL",22, "user", new PrivateKeyFile("key", "pass"));

using (var ssh = new SshClient(pkci))

{

ssh.Connect();

var cmd = ssh.CreateCommand("ls");

cmd.Execute();

ssh.Disconnect();

}

using (var ftp = new SftpClient(pkci))

{

ftp.Connect();

ftp.DownloadFile("/home/xxx/test.sql", System.IO.File.OpenWrite("test.sql"));

ftp.Disconnect();

}

2017-12-182020-05-06

Hyper-V debianインストール

msinfo32 ＞システム要約
下部を見るとHyper-Vが使えるかどうか確認できる。

optionalfeatures
Hyper-Vにチェックして機能追加。

Windows管理ツール＞ Hyper-Vマネージャー
を起動し、仮想マシンを作成する。

・第１世代
・起動メモリ1024MB
・動的メモリ
・規定のスイッチ

Hyper-Vマネージャーから作成した仮想マシンを右クリックしてプロパティを表示し、
DVDドライブにISOをマウントする。

今回はdebian/64bitのisoファイルをマウントした。

起動し接続すれば、リモート接続と同じように操作ができる。

今回試したPCの性能では実用的ではなかった。当然ある程度の性能は必要。
また相性も悪いようで操作中何度もフリーズしてしまった。

2017-12-082020-05-05

C# 正規表現でテキスト解析

以前も似たようなものを作った。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.IO;
using System.Text.RegularExpressions;

namespace JAN解析
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string point = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*[0-9]*点").IsMatch(line))
                        {
                            Match m = new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*([0-9]*点)").Match(line);
                            point = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                        }

                        if (date != "" && staff_name != "" && point != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }

        private void button2_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string point = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^\s割引券\s*[0-9]*点").IsMatch(line))
                        {
                            Match m = new Regex(@"^\s割引券\s*([0-9]*)点").Match(line);
                            point = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                        }

                        if (date != "" && staff_name != "" && point != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }

        private void button3_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string amount = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            amount = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^合計\s*\\[0-9,]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^合計\s*(\\[0-9,]*)").Match(line);
                            amount = m.Groups[1].Value;
                            amount = amount.Replace(",", "");
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                            if (card_no != textBox1.Text) card_no = "";
                        }

                        if (date != "" && staff_name != "" && amount != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + amount + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            amount = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.IO;

using System.Text.RegularExpressions;

namespace JAN解析

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string point = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

point = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*[0-9]*点").IsMatch(line))

{

Match m = new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*([0-9]*点)").Match(line);

point = m.Groups[1].Value;

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

}

if (date != "" && staff_name != "" && point != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

point = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

private void button2_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string point = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

point = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^\s割引券\s*[0-9]*点").IsMatch(line))

{

Match m = new Regex(@"^\s割引券\s*([0-9]*)点").Match(line);

point = m.Groups[1].Value;

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

}

if (date != "" && staff_name != "" && point != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

point = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

private void button3_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string amount = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

amount = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^合計\s*\\[0-9,]*").IsMatch(line))

{

Match m = new Regex(@"^合計\s*(\\[0-9,]*)").Match(line);

amount = m.Groups[1].Value;

amount = amount.Replace(",", "");

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

if (card_no != textBox1.Text) card_no = "";

}

if (date != "" && staff_name != "" && amount != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + amount + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

amount = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

2017-11-302020-05-06

Microsoft Office プロダクトキー確認方法

入ってるバージョンなどによって微妙に違う。

ちなみに、所有している中の２台は、
cscript “C:\Program Files\Microsoft Office\Office16\OSPP.VBS” /dstatus
cscript “C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS” /dstatus
となっていた。

2017-11-202017-11-21

VBA セル内の数式一覧

セル内で使われている数式を抜き出す。

シート１枚ずつ。

Sub test()

Set s1 = ActiveSheet

Sheets.Add after:=s1: Set s2 = ActiveSheet

For r = 1 To s1.UsedRange.Rows.Count
  For c = 1 To s1.UsedRange.Columns.Count
    If InStr(s1.Cells(r, c).Formula, "=") > 0 Then s2.Cells(r, c).Value = "'" & s1.Cells(r, c).Formula
  Next c
Next r

End Sub

Sub test()

Set s1 = ActiveSheet

Sheets.Add after:=s1: Set s2 = ActiveSheet

For r = 1 To s1.UsedRange.Rows.Count

For c = 1 To s1.UsedRange.Columns.Count

If InStr(s1.Cells(r, c).Formula, "=") > 0 Then s2.Cells(r, c).Value = "'" & s1.Cells(r, c).Formula

Next c

Next r

End Sub

全てのシート。

Sub test()
Sheets.Add after:=ActiveSheet
Set d = ActiveSheet
i = 1
For Each w In Sheets
  If w.Name <> d.Name Then
    For r = 1 To w.UsedRange.Rows.Count
      For c = 1 To w.UsedRange.Columns.Count
        If InStr(w.Cells(r, c).Formula, "=") > 0 Then
          d.Cells(i, 1).Value = "'" & w.Cells(r, c).Formula
          d.Cells(i, 2).Value = "'" & w.Name
          i = i + 1
        End If
      Next c
    Next r
  End If
Next
End Sub

Sub test()

Sheets.Add after:=ActiveSheet

Set d = ActiveSheet

i = 1

For Each w In Sheets

If w.Name <> d.Name Then

For r = 1 To w.UsedRange.Rows.Count

For c = 1 To w.UsedRange.Columns.Count

If InStr(w.Cells(r, c).Formula, "=") > 0 Then

d.Cells(i, 1).Value = "'" & w.Cells(r, c).Formula

d.Cells(i, 2).Value = "'" & w.Name

i = i + 1

End If

Next c

Next r

End If

End Sub