テックメモ – ページ 45 – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

2017-01-232020-05-05

Ubuntu USBメモリ操作

通常はUSBメモリを指すと自動でマウントされる。
/media/okamura/xxx
情報は、
df -hT
あるいは
lsblk
lsblk -i
で確認できる。

/dev/sdb1 が/media/okamura/xxx
にマウントされているのがわかる。

USBメモリはだいたい、
/dev/sda,
/dev/sdb,
/dev/sdc
などで認識される。

現在マウントしている情報は
df -hT
以外にも以下のような確認方法がある。
mount | less -S
cat /proc/mounts | less -S
cat /etc/mtab | less -S
sudo fdisk -l

手動でアンマウントする場合、
sudo umount /media/okamura/xxx

自動マウントしない場合、
sudo mount /dev/sdb1 /home/okamura/mnt
-tオプションはファイルシステム指定
などで直接マウントする。

フォーマット。マウントしているとできない。
sudo mkfs -t ntfs -Q -L backup /dev/sdb1
-tのデフォルトはex2

2017-01-212020-05-05

AutoHotkey TeamViewerのスポンサーセッションを消す

セキュリティソフトを一時停止。
プロンプトは管理者権限で起動(もしかしたら大丈夫かも)

test.ahk

sleep 10000
IfWinExist, スポンサーセッション
{ 
ControlClick OK, スポンサーセッション
}

sleep 10000

IfWinExist, スポンサーセッション

{

ControlClick OK, スポンサーセッション

}

上記ファイルを作成し、
C:\Program Files\AutoHotkey\Compiler
に移動。

コマンドプロンプトから、
cd C:\Program Files\AutoHotkey\Compiler
Ahk2Exe.exe /in test.ahk /out test.exe
にてtest.exeができる。

ログオフする前にクリックしておくと10秒後にウィンドウを消す。

最初はC#だったが、これじゃ消えない。

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())
            {
                if (p.MainWindowTitle.IndexOf("スポンサ") >= 0) p.CloseMainWindow();
            }
        }
    }
}

namespace ConsoleApplication1

{

class Program

{

static void Main(string[] args)

{

foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())

{

if (p.MainWindowTitle.IndexOf("スポンサ") >= 0) p.CloseMainWindow();

}

2017-01-202020-05-06

コマンドでの設定

拡張子とファイルタイプの関連付けを確認
assoc
assoc .txt

独自に定義する場合は、拡張子=ファイルタイプ
assoc .mytext=mytextfile

削除する場合、
assoc .mytext=

ファイルタイプで起動するプログラムの確認
ftype
ftype textfile

ファイルタイプとプログラムの関連付け
ftype mytextfile=notepad.exe %1

削除の場合
ftype mytextfile=

この設定方法は優先度が低いので、ほとんどの場合
他のソフトに持っていかれる。

優先度が高いのは、
コントロールパネル > 既定のプログラム > ファイルの種類またはプロトコルのプログラムへの関連付け > ファイルの種類ごとに規定のアプリを選ぶ
あるいは、
ms-settings:defaultapps > ファイルの種類ごとに規定のアプリを選ぶ
で変更する方法。

通常であれば、コントロールパネルからの設定がいい。

実際レジストリの色々な箇所で設定されている。

優先度の高い箇所
HKEY_CURRENT_USER
Software
Microsoft
Windows
CurrentVersion
Explorer
FileExts
.txt
UserChoice
Progid

ここでは、Application\EmEditor.exeとなっていた。
上記のFileExtsの中で.txt自体を削除してしまうとassocで定義されている
notepadになった。

その次は、以下でここがassocで設定するファイルタイプ
HKEY_LOCAL_MACHINE
SOFTWARE
Classes
.txt

2017-01-172020-05-05

schroot debootstrapで環境構築

sudo apt-get install schroot debootstrap

mkdir -p /home/okamura/chroot

sudo debootstrap –arch=i386 –include=sudo jessie /home/okamura/chroot http://ftp.jp.debian.org/debian

–ここから不要(type=directoryにすると自動で処理)

sudo vim /etc/fstab
に以下の内容を追記

proc-chroot /home/okamura/chroot/proc proc defaults 0 0
devpts-chroot /home/okamura/chroot/dev/pts devpts defaults 0 0
/tmp /home/okamura/chroot/tmp none bind 0 0
/home /home/okamura/chroot/home none bind 0 0

sudo mount -a
にて確認

–ここまで不要

sudo vim /etc/schroot/schroot.conf
に以下追記

[jessie]
description=Debian jessie
type=directory
directory=/home/okamura/chroot
# usersにschroot許可するユーザ一覧を列挙
users=okamura
groups=okamura
root-groups=root
aliases=default

–ここから不要

sudo vim /home/okamura/chroot/etc/debian_chroot
を作成しjessieと追記

–ここまで不要

schroot -l
設定で確認

schroot -c jessie -i
環境確認

schroot -c jessie -p
で接続

バージョン確認
cat /etc/debian_version

2017-01-17

出荷前工程表

ある帳票から工程管理用の帳票を作ろうとしていた模様。
昔のでハッキリ思い出せない。

Dim ymd As Variant
Dim dst As Integer
Dim comma_count As Integer

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("出荷前工程表作成(工程表で実行)").Delete
Application.CommandBars("cell").Controls("出荷前工程表DATA_SAVE").Delete
Application.CommandBars("cell").Controls("出荷前工程表DATA_LOAD").Delete

With Application.CommandBars("cell").Controls.Add
.OnAction = "出荷前工程表"
.Caption = "出荷前工程表作成(工程表で実行)"
End With

With Application.CommandBars("cell").Controls.Add
.OnAction = "save_data"
.Caption = "出荷前工程表DATA_SAVE"
End With

With Application.CommandBars("cell").Controls.Add
.OnAction = "load_data"
.Caption = "出荷前工程表DATA_LOAD"
End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("出荷前工程表作成(工程表で実行)").Delete
Application.CommandBars("cell").Controls("出荷前工程表DATA_SAVE").Delete
Application.CommandBars("cell").Controls("出荷前工程表DATA_LOAD").Delete

End Sub

Sub 出荷前工程表()

ymd = ""
dst = 2

For Each ws In Sheets

    If ws.Name = "出荷前工程表" Then
    
        If vbYes = MsgBox("出荷前工程表シートが存在します。削除しますか？", vbYesNo) Then
        
            Worksheets("出荷前工程表").Delete
        
        Else
        
            Exit Sub
        
        End If
    
    End If

Next ws

On Error Resume Next

ymd = Mid(ActiveWorkbook.Name, 1, 4) & "/" & Replace(Sheets(1).Cells(2, 8).Value, "月", "") & "/" & "21"

On Error GoTo 0

If False = IsDate(ymd) Then

  MsgBox "日付が正しく取得できません。" & Chr(13) & "工程表を前面にしていないとエラーになります。"
  Exit Sub
  
End If
    
For Each ws In Sheets

  tmp = Mid(ActiveWorkbook.Name, 1, 4) & "/" & Replace(ws.Cells(2, 8).Value, "月", "") & "/" & "21"
  
  If ymd <> tmp Then
  
    MsgBox "日付が正しく取得できません。" & Chr(13) & "全てのシートが同じ日付でないとエラーになります。"
    Exit Sub
  
  End If

Next ws

sc = ActiveWorkbook.Sheets.Count
ReDim buff(sc, 2) As String

For i = 1 To sc
    
    buff(i, 1) = Sheets(i).Name
    buff(i, 2) = form_count(buff(i, 1))
    
    If buff(i, 2) = -1 Then
    
      MsgBox buff(i, 1) & "シートは工程表のフォーマットが正しくありません。"
      Exit Sub
    
    End If
    
Next i

Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "出荷前工程表"

Sheets("出荷前工程表").Cells(1, 1).Value = "班名"
Sheets("出荷前工程表").Cells(1, 2).Value = "型式"
Sheets("出荷前工程表").Cells(1, 3).Value = "工番"
Sheets("出荷前工程表").Cells(1, 4).Value = "数量"
Sheets("出荷前工程表").Cells(1, 5).Value = "納期"
Sheets("出荷前工程表").Cells(1, 6).Value = "組完"

Sheets("出荷前工程表").Rows(1).HorizontalAlignment = xlHAlignCenter

For i = 1 To sc

    Call main_proc(buff(i, 1), buff(i, 2))

Next i

tmp = ymd
i = 7

Do While tmp <> DateAdd("m", 1, ymd)

  Sheets("出荷前工程表").Cells(1, i).Value = Year(tmp) & "/" & Month(tmp) & "/" & Day(tmp)
  Sheets("出荷前工程表").Cells(1, i).NumberFormatLocal = "m/d"
  
  tmp = DateAdd("d", 1, tmp)
  i = i + 1
  
Loop

Sheets("出荷前工程表").Columns.AutoFit

yn = MsgBox("データを復元しますか？", vbYesNo)
If yn = vbYes Then Call load_data

End Sub

Function form_count(ByVal sn As String) As Integer

For i = Sheets(sn).UsedRange.Rows.Count To 1 Step -1

    If Sheets(sn).Range("A" & i & "").Value <> "" Then Exit For

Next i

Select Case i

    Case 24
        tmp = 1
    
    Case 49
        tmp = 2
    
    Case 74
        tmp = 3
    
    Case 99
        tmp = 4
    
    Case 124
        tmp = 5

    Case Else
        tmp = -1
        
End Select

form_count = tmp
    
End Function

Sub main_proc(ByVal sn As String, ByVal fc As Integer)

For r = 5 To fc * 25 - 1

  r_chk = False

  For c = 100 To 8 Step -1
  
    If Sheets(sn).Cells(r, c).Interior.Color = RGB(0, 0, 0) Then
    
      r_chk = True
      Exit For
    
    End If
  
  Next c

  If r_chk Then
    
    Sheets("出荷前工程表").Cells(dst, 1).Value = sn
    Sheets("出荷前工程表").Cells(dst, 2).Value = rep(Sheets(sn).Cells(r, 2).Value)
    Sheets("出荷前工程表").Cells(dst, 3).Value = rep(Sheets(sn).Cells(r, 3).Value)
    Sheets("出荷前工程表").Cells(dst, 4).Value = Sheets(sn).Cells(r, 5).Value
    Sheets("出荷前工程表").Cells(dst, 5).Value = Sheets(sn).Cells(r, 6).Value
    If Sheets(sn).Cells(r, 7).Value <> "" Then Sheets("出荷前工程表").Cells(dst, 5).Value = Sheets(sn).Cells(r, 7).Value
    
    If c >= 41 Then
      tmp = DateAdd("m", 1, ymd)
    Else
      tmp = ymd
    End If
    
    Sheets("出荷前工程表").Cells(dst, 6).Value = Year(tmp) & "/" & Month(tmp) & "/" & Sheets(sn).Cells(3, c).MergeArea(1, 1).Value
    
    dst = dst + 1
  
  End If

  Select Case r
  
    Case 99, 74, 49, 24
    r = r + 5
    
  End Select

Next r

End Sub

Function rep(tmp As String)
tmp = Replace(tmp, vbLf, " ")
tmp = Replace(tmp, "  ", " ")
tmp = Replace(tmp, "  ", " ")
tmp = Replace(tmp, ",", "，")
rep = tmp
End Function

Sub save_data()

If ActiveSheet.Name <> "出荷前工程表" Then

  MsgBox "出荷前工程表シートで実行してください。"
  Exit Sub
  
End If

yn = MsgBox("サーバー上のデータが上書きされます。実行しますか？", vbYesNo)
If yn = vbNo Then Exit Sub

If chk_col = -1 Then

  MsgBox "最終列が正しく取得できませんでした。"
  Exit Sub
  
End If

If chk_btm() = -1 Then

  MsgBox "最終行が正しく取得できませんでした。"
  Exit Sub

End If

Call u_key_chk

Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0; data source=" & ThisWorkbook.Path & "\syukka_kotei.mdb;"

On Error GoTo ex

For r = 2 To chk_btm()

  u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")
  u_day = Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyy/mm/dd")

  For c = 7 To chk_col
    
    If c = 7 Then
      u_data = ""
      u_data = rep(Sheets("出荷前工程表").Cells(r, c).Text)
    Else
      u_data = u_data & "," & rep(Sheets("出荷前工程表").Cells(r, c).Text)
    End If
    
  Next c
  
  cn.Execute "delete * from tbl where u_key = '" & u_key & "' and u_day = #" & u_day & "#"
  cn.Execute "insert into tbl(u_key,u_day,u_data) values('" & u_key & "',#" & u_day & "#,'" & u_data & "')"

Next r

If cn.State = 1 Then cn.Close
Set cn = Nothing

MsgBox "done"

Exit Sub

ex:

  MsgBox "正しく保存できませんでした。"
  
  If cn.State = 1 Then cn.Close
  Set cn = Nothing

End Sub

Function chk_col()

c = Sheets("出荷前工程表").Cells(1, 1).CurrentRegion.Columns.Count
u = Sheets("出荷前工程表").UsedRange.Columns.Count

If c <> u Then

  chk_col = -1
  Exit Function

End If

chk_col = c

End Function

Function chk_btm()

c = Sheets("出荷前工程表").Cells(1, 1).CurrentRegion.Rows.Count
u = Sheets("出荷前工程表").UsedRange.Rows.Count

If c <> u Then

  chk_btm = -1
  Exit Function

End If

chk_btm = c

End Function

Sub load_data()

If ActiveSheet.Name <> "出荷前工程表" Then

  MsgBox "出荷前工程表シートで実行してください。"
  Exit Sub
  
End If

yn = MsgBox("シート上のデータが上書きされます。実行しますか？", vbYesNo)
If yn = vbNo Then Exit Sub

If chk_col = -1 Then

  MsgBox "最終列が正しく取得できませんでした。"
  Exit Sub
  
End If

If chk_btm() = -1 Then

  MsgBox "最終行が正しく取得できませんでした。"
  Exit Sub

End If

Call u_key_chk

Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

On Error GoTo ex

For r = 2 To chk_btm()

  u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")

  cn.Open "provider=microsoft.jet.oledb.4.0; data source=" & ThisWorkbook.Path & "\syukka_kotei.mdb;"
  rs.Open "select u_data from tbl where u_key = '" & u_key & "'", cn
 
  buff = ""
  
  Do Until rs.EOF
    
    If buff <> "" Then
    
      MsgBox "データが重複している可能性があります。注意してください。"
      buff = rs!u_data
    
    Else
    
      buff = rs!u_data
    
    End If
    
    rs.MoveNext
    
  Loop
  
  If buff <> "" Then
  
    comma_count = 0
  
    For c = 7 To chk_col

      Sheets("出荷前工程表").Cells(r, c).Value = split_comma(buff)
    
    Next c
  
  End If
  
  If rs.State = 1 Then rs.Close
  If cn.State = 1 Then cn.Close

Next r

If rs.State = 1 Then rs.Close
Set rs = Nothing

If cn.State = 1 Then cn.Close
Set cn = Nothing
  
MsgBox "done"

Exit Sub

ex:

  MsgBox "正しく取得できませんでした。"
  
  If rs.State = 1 Then rs.Close
  Set rs = Nothing

  If cn.State = 1 Then cn.Close
  Set cn = Nothing

End Sub

Function split_comma(tmp)

buff = ""
comma_count_local = 0

For i = 1 To Len(tmp)

  If Mid(tmp, i, 1) <> "," Then
  
    buff = buff + Mid(tmp, i, 1)
  
  Else

    comma_count_local = comma_count_local + 1
    
    If comma_count >= comma_count_local Then
    
      buff = ""
    
    Else
    
      comma_count = comma_count_local
      Exit For
    
    End If
  
  End If

Next i

split_comma = buff

End Function

Sub u_key_chk()

Sheets("出荷前工程表").UsedRange.Interior.Color = xlNone

For r = 2 To chk_btm()
  
  from_u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")
  
  For rr = (r + 1) To chk_btm()
  
    to_u_key = Sheets("出荷前工程表").Cells(rr, 3).Text & " " & Sheets("出荷前工程表").Cells(rr, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")
    
    If from_u_key = to_u_key Then

      Sheets("出荷前工程表").Cells(r, 1).Interior.Color = RGB(255, 0, 0)
      Sheets("出荷前工程表").Cells(rr, 1).Interior.Color = RGB(255, 0, 0)
    
    End If

  Next rr

Next r

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

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

Dim ymd As Variant

Dim dst As Integer

Dim comma_count As Integer

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("出荷前工程表作成(工程表で実行)").Delete

Application.CommandBars("cell").Controls("出荷前工程表DATA_SAVE").Delete

Application.CommandBars("cell").Controls("出荷前工程表DATA_LOAD").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "出荷前工程表"

.Caption = "出荷前工程表作成(工程表で実行)"

End With

With Application.CommandBars("cell").Controls.Add

.OnAction = "save_data"

.Caption = "出荷前工程表DATA_SAVE"

End With

With Application.CommandBars("cell").Controls.Add

.OnAction = "load_data"

.Caption = "出荷前工程表DATA_LOAD"

End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("出荷前工程表作成(工程表で実行)").Delete

Application.CommandBars("cell").Controls("出荷前工程表DATA_SAVE").Delete

Application.CommandBars("cell").Controls("出荷前工程表DATA_LOAD").Delete

End Sub

Sub 出荷前工程表()

ymd = ""

dst = 2

For Each ws In Sheets

If ws.Name = "出荷前工程表" Then

If vbYes = MsgBox("出荷前工程表シートが存在します。削除しますか？", vbYesNo) Then

Worksheets("出荷前工程表").Delete

Else

Exit Sub

End If

Next ws

On Error Resume Next

ymd = Mid(ActiveWorkbook.Name, 1, 4) & "/" & Replace(Sheets(1).Cells(2, 8).Value, "月", "") & "/" & "21"

On Error GoTo 0

If False = IsDate(ymd) Then

MsgBox "日付が正しく取得できません。" & Chr(13) & "工程表を前面にしていないとエラーになります。"

Exit Sub

End If

For Each ws In Sheets

tmp = Mid(ActiveWorkbook.Name, 1, 4) & "/" & Replace(ws.Cells(2, 8).Value, "月", "") & "/" & "21"

If ymd <> tmp Then

MsgBox "日付が正しく取得できません。" & Chr(13) & "全てのシートが同じ日付でないとエラーになります。"

Exit Sub

End If

Next ws

sc = ActiveWorkbook.Sheets.Count

ReDim buff(sc, 2) As String

For i = 1 To sc

buff(i, 1) = Sheets(i).Name

buff(i, 2) = form_count(buff(i, 1))

If buff(i, 2) = -1 Then

MsgBox buff(i, 1) & "シートは工程表のフォーマットが正しくありません。"

Exit Sub

End If

Next i

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "出荷前工程表"

Sheets("出荷前工程表").Cells(1, 1).Value = "班名"

Sheets("出荷前工程表").Cells(1, 2).Value = "型式"

Sheets("出荷前工程表").Cells(1, 3).Value = "工番"

Sheets("出荷前工程表").Cells(1, 4).Value = "数量"

Sheets("出荷前工程表").Cells(1, 5).Value = "納期"

Sheets("出荷前工程表").Cells(1, 6).Value = "組完"

Sheets("出荷前工程表").Rows(1).HorizontalAlignment = xlHAlignCenter

For i = 1 To sc

Call main_proc(buff(i, 1), buff(i, 2))

Next i

tmp = ymd

i = 7

Do While tmp <> DateAdd("m", 1, ymd)

Sheets("出荷前工程表").Cells(1, i).Value = Year(tmp) & "/" & Month(tmp) & "/" & Day(tmp)

Sheets("出荷前工程表").Cells(1, i).NumberFormatLocal = "m/d"

tmp = DateAdd("d", 1, tmp)

i = i + 1

Loop

Sheets("出荷前工程表").Columns.AutoFit

yn = MsgBox("データを復元しますか？", vbYesNo)

If yn = vbYes Then Call load_data

End Sub

Function form_count(ByVal sn As String) As Integer

For i = Sheets(sn).UsedRange.Rows.Count To 1 Step -1

If Sheets(sn).Range("A" & i & "").Value <> "" Then Exit For

Next i

Select Case i

Case 24

tmp = 1

Case 49

tmp = 2

Case 74

tmp = 3

Case 99

tmp = 4

Case 124

tmp = 5

Case Else

tmp = -1

End Select

form_count = tmp

End Function

Sub main_proc(ByVal sn As String, ByVal fc As Integer)

For r = 5 To fc * 25 - 1

r_chk = False

For c = 100 To 8 Step -1

If Sheets(sn).Cells(r, c).Interior.Color = RGB(0, 0, 0) Then

r_chk = True

Exit For

End If

Next c

If r_chk Then

Sheets("出荷前工程表").Cells(dst, 1).Value = sn

Sheets("出荷前工程表").Cells(dst, 2).Value = rep(Sheets(sn).Cells(r, 2).Value)

Sheets("出荷前工程表").Cells(dst, 3).Value = rep(Sheets(sn).Cells(r, 3).Value)

Sheets("出荷前工程表").Cells(dst, 4).Value = Sheets(sn).Cells(r, 5).Value

Sheets("出荷前工程表").Cells(dst, 5).Value = Sheets(sn).Cells(r, 6).Value

If Sheets(sn).Cells(r, 7).Value <> "" Then Sheets("出荷前工程表").Cells(dst, 5).Value = Sheets(sn).Cells(r, 7).Value

If c >= 41 Then

tmp = DateAdd("m", 1, ymd)

Else

tmp = ymd

End If

Sheets("出荷前工程表").Cells(dst, 6).Value = Year(tmp) & "/" & Month(tmp) & "/" & Sheets(sn).Cells(3, c).MergeArea(1, 1).Value

dst = dst + 1

End If

Select Case r

Case 99, 74, 49, 24

r = r + 5

End Select

Next r

End Sub

Function rep(tmp As String)

tmp = Replace(tmp, vbLf, " ")

tmp = Replace(tmp, " ", " ")

tmp = Replace(tmp, ",", "，")

rep = tmp

End Function

Sub save_data()

If ActiveSheet.Name <> "出荷前工程表" Then

MsgBox "出荷前工程表シートで実行してください。"

Exit Sub

End If

yn = MsgBox("サーバー上のデータが上書きされます。実行しますか？", vbYesNo)

If yn = vbNo Then Exit Sub

If chk_col = -1 Then

MsgBox "最終列が正しく取得できませんでした。"

Exit Sub

End If

If chk_btm() = -1 Then

MsgBox "最終行が正しく取得できませんでした。"

Exit Sub

End If

Call u_key_chk

Set cn = CreateObject("adodb.connection")

cn.Open "provider=microsoft.jet.oledb.4.0; data source=" & ThisWorkbook.Path & "\syukka_kotei.mdb;"

On Error GoTo ex

For r = 2 To chk_btm()

u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")

u_day = Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyy/mm/dd")

For c = 7 To chk_col

If c = 7 Then

u_data = ""

u_data = rep(Sheets("出荷前工程表").Cells(r, c).Text)

Else

u_data = u_data & "," & rep(Sheets("出荷前工程表").Cells(r, c).Text)

End If

Next c

cn.Execute "delete * from tbl where u_key = '" & u_key & "' and u_day = #" & u_day & "#"

cn.Execute "insert into tbl(u_key,u_day,u_data) values('" & u_key & "',#" & u_day & "#,'" & u_data & "')"

Next r

If cn.State = 1 Then cn.Close

Set cn = Nothing

MsgBox "done"

Exit Sub

ex:

MsgBox "正しく保存できませんでした。"

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Function chk_col()

c = Sheets("出荷前工程表").Cells(1, 1).CurrentRegion.Columns.Count

u = Sheets("出荷前工程表").UsedRange.Columns.Count

If c <> u Then

chk_col = -1

Exit Function

End If

chk_col = c

End Function

Function chk_btm()

c = Sheets("出荷前工程表").Cells(1, 1).CurrentRegion.Rows.Count

u = Sheets("出荷前工程表").UsedRange.Rows.Count

If c <> u Then

chk_btm = -1

Exit Function

End If

chk_btm = c

End Function

Sub load_data()

If ActiveSheet.Name <> "出荷前工程表" Then

MsgBox "出荷前工程表シートで実行してください。"

Exit Sub

End If

yn = MsgBox("シート上のデータが上書きされます。実行しますか？", vbYesNo)

If yn = vbNo Then Exit Sub

If chk_col = -1 Then

MsgBox "最終列が正しく取得できませんでした。"

Exit Sub

End If

If chk_btm() = -1 Then

MsgBox "最終行が正しく取得できませんでした。"

Exit Sub

End If

Call u_key_chk

Set cn = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

On Error GoTo ex

For r = 2 To chk_btm()

u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")

cn.Open "provider=microsoft.jet.oledb.4.0; data source=" & ThisWorkbook.Path & "\syukka_kotei.mdb;"

rs.Open "select u_data from tbl where u_key = '" & u_key & "'", cn

buff = ""

Do Until rs.EOF

If buff <> "" Then

MsgBox "データが重複している可能性があります。注意してください。"

buff = rs!u_data

Else

buff = rs!u_data

End If

rs.MoveNext

Loop

If buff <> "" Then

comma_count = 0

For c = 7 To chk_col

Sheets("出荷前工程表").Cells(r, c).Value = split_comma(buff)

Next c

End If

If rs.State = 1 Then rs.Close

If cn.State = 1 Then cn.Close

Next r

If rs.State = 1 Then rs.Close

Set rs = Nothing

If cn.State = 1 Then cn.Close

Set cn = Nothing

MsgBox "done"

Exit Sub

ex:

MsgBox "正しく取得できませんでした。"

If rs.State = 1 Then rs.Close

Set rs = Nothing

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Function split_comma(tmp)

buff = ""

comma_count_local = 0

For i = 1 To Len(tmp)

If Mid(tmp, i, 1) <> "," Then

buff = buff + Mid(tmp, i, 1)

Else

comma_count_local = comma_count_local + 1

If comma_count >= comma_count_local Then

buff = ""

Else

comma_count = comma_count_local

Exit For

End If

Next i

split_comma = buff

End Function

Sub u_key_chk()

Sheets("出荷前工程表").UsedRange.Interior.Color = xlNone

For r = 2 To chk_btm()

from_u_key = Sheets("出荷前工程表").Cells(r, 3).Text & " " & Sheets("出荷前工程表").Cells(r, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")

For rr = (r + 1) To chk_btm()

to_u_key = Sheets("出荷前工程表").Cells(rr, 3).Text & " " & Sheets("出荷前工程表").Cells(rr, 4).Text & " " & Format(Sheets("出荷前工程表").Cells(1, 7).Text, "yyyymmdd")

If from_u_key = to_u_key Then

Sheets("出荷前工程表").Cells(r, 1).Interior.Color = RGB(255, 0, 0)

Sheets("出荷前工程表").Cells(rr, 1).Interior.Color = RGB(255, 0, 0)

End If

Next rr

Next r

End Sub

2017-01-172017-01-17

C# VBA タイムカードアプリ

以前作ったタイムカードアプリ。氏名などはフォームに直接。

Form1.cs

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.Collections;
using System.Data.OleDb;
using System.Drawing.Text;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            this.WindowState = FormWindowState.Maximized;
            this.label2.Font = new System.Drawing.Font("7barP",110);
            this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");
            this.label2.Text = DateTime.Now.ToString("HH:mm:ss");
            attach_function();
            this.timer1.Start();
        }
        private void timer1_Tick(object sender, EventArgs e)
        {
            this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");
            this.label2.Text = DateTime.Now.ToString("HH:mm:ss");
        }
        private Control[] get_controls(Control control_top)
        {
            ArrayList tmp = new ArrayList();
            foreach(Control ctrl in control_top.Controls)
            {
                tmp.Add(ctrl);
                if (ctrl is TabControl)
                {
                    foreach (Control tb in ctrl.Controls)
                    {
                        foreach (Control btn in tb.Controls) tmp.Add(btn);
                    } 
                }
            }
            return (Control[])tmp.ToArray(typeof(Control));
        }
        public void attach_function()
        {
            Control[] controls = get_controls(this);
            foreach (Control ctrl in controls)
            {
                if (ctrl is Button) ((Button)ctrl).Click += new EventHandler(click_button);
                if (ctrl is RadioButton) ((RadioButton)ctrl).CheckedChanged += new EventHandler(clear_labels);
            }
        }
        public void click_button(object sender, EventArgs e)
        {
            clear_labels();
            if (((Button)sender).Text == "リセット") return;
            if (get_check_state() != null)
            {
                connction_database(get_check_state().Text, ((Button)sender).Text);
            }
            else
            {
                connction_database("", ((Button)sender).Text);
            }
        }
        public void clear_labels(object sender = null, EventArgs e = null)
        {
            this.label3.Text = "00/00 00:00:00";
            this.label4.Text = "00/00 00:00:00";
            this.label5.Text = "00/00 00:00:00";
            this.label6.Text = "00/00 00:00:00";
        }
        public void clear_check_state()
        {
            this.radioButton1.Checked = false;
            this.radioButton2.Checked = false;
            this.radioButton3.Checked = false;
            this.radioButton4.Checked = false;
            this.checkBox1.Checked = false;
        }
        public void save_log(string check_text, string user)
        {
            using (System.IO.StreamWriter s = new System.IO.StreamWriter(System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\log.txt", true, System.Text.Encoding.GetEncoding("shift_jis")))
            {
                s.Write(user + "," + check_text + "," + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "\r\n");
            }
        }
        public RadioButton get_check_state()
        {
            Control[] controls = get_controls(this);
            foreach (Control ctrl in controls)
            {
                if (ctrl is RadioButton)
                {
                    if (((RadioButton)ctrl).Checked) return (RadioButton)ctrl;
                }
            }
            return null;
        }
        public void connction_database(String checked_text, String button_text)
        {
            String start_day = DateTime.Now.ToString("yyyy/MM/dd 00:00:01");
            if (this.checkBox1.Checked == true) start_day = DateTime.Now.AddDays(-1).ToString("yyyy/MM/dd 00:00:01");
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    if (checked_text != "")
                    {
                        OleDbCommand cmd_main = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                        using (OleDbDataReader dr_main = cmd_main.ExecuteReader())
                        {
                            if (dr_main.Read())
                            {
                                if (dr_main[checked_text].ToString() == "")
                                {
                                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                                    OleDbCommand cmd = new OleDbCommand("UPDATE Tc_Tbl SET " + checked_text + " = '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "' WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                                    cmd.Transaction = transaction;
                                    cmd.ExecuteNonQuery();
                                    transaction.Commit();
                                    save_log(checked_text, button_text);
                                    //MessageBox.Show(checked_text + "を登録しました。");
                                }
                                else if (dr_main[checked_text].ToString() != "")
                                {
                                    MessageBox.Show("既に" + checked_text + "は登録されています。");
                                }
                                if (dr_main.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");
                            }
                            else
                            {
                                transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                                OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (日付," + checked_text + ",氏名) VALUES ('" + start_day + "', '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "', '" + button_text + "')", cn);
                                cmd.Transaction = transaction;
                                cmd.ExecuteNonQuery();
                                transaction.Commit();
                                save_log(checked_text, button_text);
                                //MessageBox.Show(checked_text + "を登録しました。");
                            }
                        }
                        clear_check_state();
                    }
                    OleDbCommand cmd_to_labels = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                    using(OleDbDataReader dr_to_labels = cmd_to_labels.ExecuteReader())
                    {
                        if (dr_to_labels.Read())
                        {
                            if (dr_to_labels["出社"].ToString() != "") label3.Text = DateTime.Parse(dr_to_labels["出社"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["退社"].ToString() != "") label4.Text = DateTime.Parse(dr_to_labels["退社"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["外出"].ToString() != "") label5.Text = DateTime.Parse(dr_to_labels["外出"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["帰社"].ToString() != "") label6.Text = DateTime.Parse(dr_to_labels["帰社"].ToString()).ToString("MM/dd HH:mm:ss");
                        }
                        if (dr_to_labels.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");
                    }
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
            }
        }
        private void button3_Click(object sender, EventArgs e)
        {
            clear_labels();
            clear_check_state();
        }
        private void 編集ToolStripMenuItem1_Click(object sender, EventArgs e)
        {
            Form2 f = new Form2(get_controls(this));
            f.ShowDialog();
        }
        private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)
        {
            //button3.PerformClick();
        }
    }
}

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

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.Collections;

using System.Data.OleDb;

using System.Drawing.Text;

namespace WindowsFormsApplication1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.WindowState = FormWindowState.Maximized;

this.label2.Font = new System.Drawing.Font("7barP",110);

this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");

this.label2.Text = DateTime.Now.ToString("HH:mm:ss");

attach_function();

this.timer1.Start();

}

private void timer1_Tick(object sender, EventArgs e)

{

this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");

this.label2.Text = DateTime.Now.ToString("HH:mm:ss");

}

private Control[] get_controls(Control control_top)

{

ArrayList tmp = new ArrayList();

foreach(Control ctrl in control_top.Controls)

{

tmp.Add(ctrl);

if (ctrl is TabControl)

{

foreach (Control tb in ctrl.Controls)

{

foreach (Control btn in tb.Controls) tmp.Add(btn);

}

return (Control[])tmp.ToArray(typeof(Control));

}

public void attach_function()

{

Control[] controls = get_controls(this);

foreach (Control ctrl in controls)

{

if (ctrl is Button) ((Button)ctrl).Click += new EventHandler(click_button);

if (ctrl is RadioButton) ((RadioButton)ctrl).CheckedChanged += new EventHandler(clear_labels);

}

public void click_button(object sender, EventArgs e)

{

clear_labels();

if (((Button)sender).Text == "リセット") return;

if (get_check_state() != null)

{

connction_database(get_check_state().Text, ((Button)sender).Text);

}

else

{

connction_database("", ((Button)sender).Text);

}

public void clear_labels(object sender = null, EventArgs e = null)

{

this.label3.Text = "00/00 00:00:00";

this.label4.Text = "00/00 00:00:00";

this.label5.Text = "00/00 00:00:00";

this.label6.Text = "00/00 00:00:00";

}

public void clear_check_state()

{

this.radioButton1.Checked = false;

this.radioButton2.Checked = false;

this.radioButton3.Checked = false;

this.radioButton4.Checked = false;

this.checkBox1.Checked = false;

}

public void save_log(string check_text, string user)

{

using (System.IO.StreamWriter s = new System.IO.StreamWriter(System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\log.txt", true, System.Text.Encoding.GetEncoding("shift_jis")))

{

s.Write(user + "," + check_text + "," + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "\r\n");

}

public RadioButton get_check_state()

{

Control[] controls = get_controls(this);

foreach (Control ctrl in controls)

{

if (ctrl is RadioButton)

{

if (((RadioButton)ctrl).Checked) return (RadioButton)ctrl;

}

return null;

}

public void connction_database(String checked_text, String button_text)

{

String start_day = DateTime.Now.ToString("yyyy/MM/dd 00:00:01");

if (this.checkBox1.Checked == true) start_day = DateTime.Now.AddDays(-1).ToString("yyyy/MM/dd 00:00:01");

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

if (checked_text != "")

{

OleDbCommand cmd_main = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

using (OleDbDataReader dr_main = cmd_main.ExecuteReader())

{

if (dr_main.Read())

{

if (dr_main[checked_text].ToString() == "")

{

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("UPDATE Tc_Tbl SET " + checked_text + " = '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "' WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

save_log(checked_text, button_text);

//MessageBox.Show(checked_text + "を登録しました。");

}

else if (dr_main[checked_text].ToString() != "")

{

MessageBox.Show("既に" + checked_text + "は登録されています。");

}

if (dr_main.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");

}

else

{

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (日付," + checked_text + ",氏名) VALUES ('" + start_day + "', '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "', '" + button_text + "')", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

save_log(checked_text, button_text);

//MessageBox.Show(checked_text + "を登録しました。");

}

clear_check_state();

}

OleDbCommand cmd_to_labels = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

using(OleDbDataReader dr_to_labels = cmd_to_labels.ExecuteReader())

{

if (dr_to_labels.Read())

{

if (dr_to_labels["出社"].ToString() != "") label3.Text = DateTime.Parse(dr_to_labels["出社"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["退社"].ToString() != "") label4.Text = DateTime.Parse(dr_to_labels["退社"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["外出"].ToString() != "") label5.Text = DateTime.Parse(dr_to_labels["外出"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["帰社"].ToString() != "") label6.Text = DateTime.Parse(dr_to_labels["帰社"].ToString()).ToString("MM/dd HH:mm:ss");

}

if (dr_to_labels.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

private void button3_Click(object sender, EventArgs e)

{

clear_labels();

clear_check_state();

}

private void 編集ToolStripMenuItem1_Click(object sender, EventArgs e)

{

Form2 f = new Form2(get_controls(this));

f.ShowDialog();

}

private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)

{

//button3.PerformClick();

}

Form2.cs

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.Collections;
using System.Data.OleDb;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        private String database_path = System.IO.Path.GetDirectoryName(Application.ExecutablePath);

        public Form2(Control[] parent_contorls)
        {
            InitializeComponent();
            foreach (Control ctrl in parent_contorls) if (ctrl is Button && ctrl.Text != "リセット") this.comboBox1.Items.Add(ctrl.Text);
            for (int i = -2; i <= 2; i++) this.comboBox2.Items.Add(DateTime.Now.Year + i);
            for (int i = 1; i <= 12; i++) this.comboBox3.Items.Add(i.ToString().PadLeft(2, '0'));
            for (int i = 1; i <= 31; i++) this.comboBox4.Items.Add(i.ToString().PadLeft(2, '0'));
            this.comboBox2.Text = DateTime.Now.ToString("yyyy");
            this.comboBox3.Text = DateTime.Now.ToString("MM");
            this.comboBox4.Text = DateTime.Now.ToString("dd");
            this.WindowState = FormWindowState.Maximized;
            //this.dataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;
            //this.dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;
        }
        private void button2_Click(object sender, EventArgs e)
        {
            if (this.textBox1.Text != "1234") return;
            if (this.comboBox1.Text == "")
            {
                MessageBox.Show("名前を選択してください。");
                return;
            }
            DateTime dt;
            string[] check_date = new string[2];
            if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/" + this.comboBox4.Text, out dt))
            {
                check_date[0] = dt.ToString("yyyy/MM/dd 00:00:01");
                check_date[1] = dt.ToString("yyyy/MM/dd 08:25:00");
            }
            else
            {
                MessageBox.Show("日付が適切ではありません。");
                return;
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (氏名,日付) VALUES ('" + this.comboBox1.Text + "','" + check_date[0] + "')", cn);
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
            }
            button1.PerformClick();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            if(this.comboBox1.Text == "")
            {
                MessageBox.Show("名前を選択してください。");
                return;
            }
            this.dataGridView1.Rows.Clear();
            DateTime tmp;
            DateTime[] chk_date = new DateTime[2];
            if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/1", out tmp))
            {
                chk_date[0] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text), 1, 00, 00, 01);
                chk_date[1] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text),DateTime.DaysInMonth(int.Parse(this.comboBox2.Text),int.Parse(this.comboBox3.Text)), 00, 00, 01);
            }
            else
            {
                MessageBox.Show("日付が適切ではありません。");
                return;
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                try
                {
                    cn.Open();
                    for (DateTime i = chk_date[0]; i <= chk_date[1]; i = i.AddDays(1))
                    {
                        OleDbCommand cmd = new OleDbCommand("SELECT ID,氏名,日付,出社,退社,外出,帰社,早出申請,残業申請,休出申請,有給申請,無給（遅・早・欠）申請,代休申請,備考 FROM Tc_Tbl WHERE" + " 日付 = #" + i.ToString("yyyy/MM/dd 00:00:01") + "# AND 氏名 = '" + this.comboBox1.Text + "'", cn);
                        using(OleDbDataReader dr = cmd.ExecuteReader())
                        {
                            if (!dr.Read())
                            {
                                this.dataGridView1.Rows.Add(
                                    "", //Button
                                    "", //ID
                                    "", //氏名
                                    i.ToString("yyyy/MM/dd 00:00:01"),
                                    "", //出社
                                    "", //退社
                                    "", //外出
                                    "", //帰社
                                    "", //早出申請
                                    "", //残業申請
                                    "", //休出申請
                                    "", //有給申請
                                    "", //無給（遅・早・欠）申請
                                    "", //代休申請
                                    "", //備考
                                    "", //内容不備(NoDb)
                                    "" //Button
                                    );

                                // 2016/04/21 追加
                                if (6 == (int)i.DayOfWeek)
                                {
                                    this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220,220,255);
                                }
                                else if (0 == (int)i.DayOfWeek)
                                {
                                    this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);
                                }
                                
                            }
                            else
                            {
                                int j = 0;
                                do
                                {
                                    if (j != 0) MessageBox.Show(i.ToString("yyyy/MM/dd") + "が重複しています。");
                                    this.dataGridView1.Rows.Add(
                                        "更新", //Button
                                        dr[0], //ID
                                        dr[1], //氏名
                                        DateTime.Parse(dr[2].ToString()).ToString("yyyy/MM/dd 00:00:01"),
                                        dr[3], //出社
                                        dr[4], //退社
                                        dr[5], //外出
                                        dr[6], //帰社
                                        dr[7], //早出申請
                                        dr[8], //残業申請
                                        dr[9], //休出申請
                                        dr[10], //有給申請
                                        dr[11], //無給（遅・早・欠）申請
                                        dr[12], //代休申請
                                        dr[13], //備考
                                        DateCheck.Do(new string[] { dr[2].ToString(), dr[3].ToString(), dr[4].ToString(), dr[5].ToString(), dr[6].ToString() }),
                                        "削除" //Button
                                        );

                                    // 2016/04/21 追加
                                    if (6 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)
                                    {
                                        this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220, 220, 255);
                                    }
                                    else if (0 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)
                                    {
                                        this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);
                                    }

                                    j++;
                                }
                                while (dr.Read());
                            }
                        }
                    }
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    return;
                }
                finally
                {
                    cn.Close();
                }
            }
            MessageBox.Show("取得しました。");
        }
        private void DataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e)
        {
            if (e.ColumnIndex == 0 && dataGridView1.Rows[e.RowIndex].Cells[0].Value.ToString() == "更新")
            {
                if (this.textBox1.Text != "1234") return;
                DialogResult YesNo = MessageBox.Show("更新しますか？", "確認", MessageBoxButtons.YesNo);
                if (YesNo == DialogResult.Yes) data_update(e);
            }
            else if (e.ColumnIndex == 16 && dataGridView1.Rows[e.RowIndex].Cells[16].Value.ToString() == "削除")
            {
                if (this.textBox1.Text != "1234") return;
                DialogResult YesNo = MessageBox.Show("削除しますか？","確認", MessageBoxButtons.YesNo);
                if(YesNo == DialogResult.Yes) data_delete(e);
            }
        }
        private void data_delete(DataGridViewCellEventArgs e)
        {
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand("DELETE FROM Tc_Tbl WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn);
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
                button1.PerformClick();
            }
        }
        private void data_update(DataGridViewCellEventArgs e)
        {
            string[] row_val = new string[12];
            for (int i = 0; i < 12; i++)
            {
                row_val[i] = "null";
                if (i < 4)
                {
                    DateTime dt;
                    if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "" && DateTime.TryParse(dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString(), out dt))
                    {
                        row_val[i] = "'" + dt.ToString("yyyy/MM/dd HH:mm:ss") + "'";
                    }
                    else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")
                    {
                        MessageBox.Show(i + 4 + "列目が不正な文字列です。");
                        return;
                    }
                }
                else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")
                {
                    row_val[i] = "'" + dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() + "'";
                }
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand(
                        "UPDATE Tc_Tbl SET" + 
                        " 出社 = " + row_val[0] +"," + 
                        " 退社 = " + row_val[1] + "," + 
                        " 外出 = " + row_val[2] + "," + 
                        " 帰社 = " + row_val[3] + "," + 
                        " 早出申請 = " + row_val[4] + "," + 
                        " 残業申請 = " + row_val[5] + "," + 
                        " 休出申請 = " + row_val[6] + "," + 
                        " 有給申請 = " + row_val[7] + "," +
                        " 無給（遅・早・欠）申請 = " + row_val[8] + "," +
                        " 代休申請 = " + row_val[9] + "," + 
                        " 備考 = " + row_val[10] + 
                        " WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn
                        );
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
                button1.PerformClick();
            }
        }
    }
}

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

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

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.Collections;

using System.Data.OleDb;

namespace WindowsFormsApplication1

{

public partial class Form2 : Form

{

private String database_path = System.IO.Path.GetDirectoryName(Application.ExecutablePath);

public Form2(Control[] parent_contorls)

{

InitializeComponent();

foreach (Control ctrl in parent_contorls) if (ctrl is Button && ctrl.Text != "リセット") this.comboBox1.Items.Add(ctrl.Text);

for (int i = -2; i <= 2; i++) this.comboBox2.Items.Add(DateTime.Now.Year + i);

for (int i = 1; i <= 12; i++) this.comboBox3.Items.Add(i.ToString().PadLeft(2, '0'));

for (int i = 1; i <= 31; i++) this.comboBox4.Items.Add(i.ToString().PadLeft(2, '0'));

this.comboBox2.Text = DateTime.Now.ToString("yyyy");

this.comboBox3.Text = DateTime.Now.ToString("MM");

this.comboBox4.Text = DateTime.Now.ToString("dd");

this.WindowState = FormWindowState.Maximized;

//this.dataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

//this.dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

}

private void button2_Click(object sender, EventArgs e)

{

if (this.textBox1.Text != "1234") return;

if (this.comboBox1.Text == "")

{

MessageBox.Show("名前を選択してください。");

return;

}

DateTime dt;

string[] check_date = new string[2];

if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/" + this.comboBox4.Text, out dt))

{

check_date[0] = dt.ToString("yyyy/MM/dd 00:00:01");

check_date[1] = dt.ToString("yyyy/MM/dd 08:25:00");

}

else

{

MessageBox.Show("日付が適切ではありません。");

return;

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (氏名,日付) VALUES ('" + this.comboBox1.Text + "','" + check_date[0] + "')", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

private void button1_Click(object sender, EventArgs e)

{

if(this.comboBox1.Text == "")

{

MessageBox.Show("名前を選択してください。");

return;

}

this.dataGridView1.Rows.Clear();

DateTime tmp;

DateTime[] chk_date = new DateTime[2];

if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/1", out tmp))

{

chk_date[0] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text), 1, 00, 00, 01);

chk_date[1] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text),DateTime.DaysInMonth(int.Parse(this.comboBox2.Text),int.Parse(this.comboBox3.Text)), 00, 00, 01);

}

else

{

MessageBox.Show("日付が適切ではありません。");

return;

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

try

{

cn.Open();

for (DateTime i = chk_date[0]; i <= chk_date[1]; i = i.AddDays(1))

{

OleDbCommand cmd = new OleDbCommand("SELECT ID,氏名,日付,出社,退社,外出,帰社,早出申請,残業申請,休出申請,有給申請,無給（遅・早・欠）申請,代休申請,備考 FROM Tc_Tbl WHERE" + " 日付 = #" + i.ToString("yyyy/MM/dd 00:00:01") + "# AND 氏名 = '" + this.comboBox1.Text + "'", cn);

using(OleDbDataReader dr = cmd.ExecuteReader())

{

if (!dr.Read())

{

this.dataGridView1.Rows.Add(

"", //Button

"", //ID

"", //氏名

i.ToString("yyyy/MM/dd 00:00:01"),

"", //出社

"", //退社

"", //外出

"", //帰社

"", //早出申請

"", //残業申請

"", //休出申請

"", //有給申請

"", //無給（遅・早・欠）申請

"", //代休申請

"", //備考

"", //内容不備(NoDb)

"" //Button

);

// 2016/04/21 追加

if (6 == (int)i.DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220,220,255);

}

else if (0 == (int)i.DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);

}

else

{

int j = 0;

{

if (j != 0) MessageBox.Show(i.ToString("yyyy/MM/dd") + "が重複しています。");

this.dataGridView1.Rows.Add(

"更新", //Button

dr[0], //ID

dr[1], //氏名

DateTime.Parse(dr[2].ToString()).ToString("yyyy/MM/dd 00:00:01"),

dr[3], //出社

dr[4], //退社

dr[5], //外出

dr[6], //帰社

dr[7], //早出申請

dr[8], //残業申請

dr[9], //休出申請

dr[10], //有給申請

dr[11], //無給（遅・早・欠）申請

dr[12], //代休申請

dr[13], //備考

DateCheck.Do(new string[] { dr[2].ToString(), dr[3].ToString(), dr[4].ToString(), dr[5].ToString(), dr[6].ToString() }),

"削除" //Button

);

// 2016/04/21 追加

if (6 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220, 220, 255);

}

else if (0 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);

}

j++;

}

while (dr.Read());

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

return;

}

finally

{

cn.Close();

}

MessageBox.Show("取得しました。");

}

private void DataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e)

{

if (e.ColumnIndex == 0 && dataGridView1.Rows[e.RowIndex].Cells[0].Value.ToString() == "更新")

{

if (this.textBox1.Text != "1234") return;

DialogResult YesNo = MessageBox.Show("更新しますか？", "確認", MessageBoxButtons.YesNo);

if (YesNo == DialogResult.Yes) data_update(e);

}

else if (e.ColumnIndex == 16 && dataGridView1.Rows[e.RowIndex].Cells[16].Value.ToString() == "削除")

{

if (this.textBox1.Text != "1234") return;

DialogResult YesNo = MessageBox.Show("削除しますか？","確認", MessageBoxButtons.YesNo);

if(YesNo == DialogResult.Yes) data_delete(e);

}

private void data_delete(DataGridViewCellEventArgs e)

{

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("DELETE FROM Tc_Tbl WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

private void data_update(DataGridViewCellEventArgs e)

{

string[] row_val = new string[12];

for (int i = 0; i < 12; i++)

{

row_val[i] = "null";

if (i < 4)

{

DateTime dt;

if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "" && DateTime.TryParse(dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString(), out dt))

{

row_val[i] = "'" + dt.ToString("yyyy/MM/dd HH:mm:ss") + "'";

}

else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")

{

MessageBox.Show(i + 4 + "列目が不正な文字列です。");

return;

}

else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")

{

row_val[i] = "'" + dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() + "'";

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand(

"UPDATE Tc_Tbl SET" +

" 出社 = " + row_val[0] +"," +

" 退社 = " + row_val[1] + "," +

" 外出 = " + row_val[2] + "," +

" 帰社 = " + row_val[3] + "," +

" 早出申請 = " + row_val[4] + "," +

" 残業申請 = " + row_val[5] + "," +

" 休出申請 = " + row_val[6] + "," +

" 有給申請 = " + row_val[7] + "," +

" 無給（遅・早・欠）申請 = " + row_val[8] + "," +

" 代休申請 = " + row_val[9] + "," +

" 備考 = " + row_val[10] +

" WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn

);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

DataCheck.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace WindowsFormsApplication1
{
    class DateCheck
    {
        static public string Do(string[] tmp)
        {
            //出社がない
            if (tmp[1] == "") return "NG";

            //出社が日付と同日か
            if(tmp[0] != "" && tmp[1] != "")
            {
                if (DateTime.Parse(tmp[0]).Date != DateTime.Parse(tmp[1]).Date) return "NG";
            }

            //出社したら退社しているか
            if (tmp[1] != "" && tmp[2] == "") return "NG";

            //退社してて出社がない
            if (tmp[1] == "" && tmp[2] != "") return "NG";

            //退社が出社と同日あるいは翌日か、退社が出社より前ではないか
            if (tmp[1] != "" && tmp[2] != "")
            {
                if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[2]) || DateTime.Parse(tmp[1]).Date != DateTime.Parse(tmp[2]).Date && DateTime.Parse(tmp[1]).AddDays(1).Date != DateTime.Parse(tmp[2]).Date) return "NG";
            }

            //外出が出社より後で退出より前か
            if (tmp[1] != "" && tmp[2] != "" && tmp[3] != "")
            {
                if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[3]) || DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[3])) return "NG";
            }

            //外出したら帰社しているか
            if (tmp[3] != "" && tmp[4] == "") return "NG";

            //帰社してて外出がない
            if (tmp[3] == "" && tmp[4] != "") return "NG";

            //帰社が外出より後で退出より前か
            if (tmp[2] != "" && tmp[3] != "" && tmp[4] != "")
            {
                if (DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[4]) || DateTime.Parse(tmp[3]) > DateTime.Parse(tmp[4])) return "NG";
            }
            return "OK";
        }
    }
}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace WindowsFormsApplication1

{

class DateCheck

{

static public string Do(string[] tmp)

{

//出社がない

if (tmp[1] == "") return "NG";

//出社が日付と同日か

if(tmp[0] != "" && tmp[1] != "")

{

if (DateTime.Parse(tmp[0]).Date != DateTime.Parse(tmp[1]).Date) return "NG";

}

//出社したら退社しているか

if (tmp[1] != "" && tmp[2] == "") return "NG";

//退社してて出社がない

if (tmp[1] == "" && tmp[2] != "") return "NG";

//退社が出社と同日あるいは翌日か、退社が出社より前ではないか

if (tmp[1] != "" && tmp[2] != "")

{

if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[2]) || DateTime.Parse(tmp[1]).Date != DateTime.Parse(tmp[2]).Date && DateTime.Parse(tmp[1]).AddDays(1).Date != DateTime.Parse(tmp[2]).Date) return "NG";

}

//外出が出社より後で退出より前か

if (tmp[1] != "" && tmp[2] != "" && tmp[3] != "")

{

if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[3]) || DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[3])) return "NG";

}

//外出したら帰社しているか

if (tmp[3] != "" && tmp[4] == "") return "NG";

//帰社してて外出がない

if (tmp[3] == "" && tmp[4] != "") return "NG";

//帰社が外出より後で退出より前か

if (tmp[2] != "" && tmp[3] != "" && tmp[4] != "")

{

if (DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[4]) || DateTime.Parse(tmp[3]) > DateTime.Parse(tmp[4])) return "NG";

}

return "OK";

}

C#でmdbに登録してエクセルで抜き出して集計

Sub test()

Application.CommandBars("cell").Reset

End Sub
Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete
Application.CommandBars("cell").Controls("TC集計開始").Delete

With Application.CommandBars("cell").Controls.Add
  .OnAction = "main"
  .Caption = "TC集計開始"
End With

Application.CommandBars("cell").Controls("確認表示").Delete
Application.CommandBars("cell").Controls("確認表示").Delete

With Application.CommandBars("cell").Controls.Add
  .OnAction = "check_layout"
  .Caption = "確認表示"
End With


End Sub
Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete
Application.CommandBars("cell").Controls("TC集計開始").Delete

Application.CommandBars("cell").Controls("確認表示").Delete
Application.CommandBars("cell").Controls("確認表示").Delete

End Sub

Sub check_layout()

tmp = MsgBox("実行後に保存しないよう注意してください。実行しますか？", vbYesNo)
If tmp = vbNo Then Exit Sub

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
  
    w.Columns("A:X").ColumnWidth = 0
    w.Rows("1:3").RowHeight = 0
    
  End If
  
Next

MsgBox "終了しました。"

End Sub

Sub init()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then

    w.Activate
    w.Unprotect
    w.Range("W4").Select
    
    ActiveWindow.Zoom = 85
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 1

    w.Range("B5:B35").ClearContents
    w.Range("C5:C35").ClearContents
    w.Range("E5:E35").ClearContents
    w.Range("F5:F35").ClearContents
    w.Range("S5:S35").ClearContents
    w.Range("W4:AK35").ClearContents

    w.Range("B5:C35").NumberFormatLocal = "0"
    w.Range("E5:F35").NumberFormatLocal = "0"
    w.Range("N5:Q35").NumberFormatLocal = "0.00"
    w.Range("W5:W35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    w.Range("X5:X35").NumberFormatLocal = "0"
    w.Range("Z5:AD35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    w.Range("AE5:AK35").NumberFormatLocal = "@"
  
    For r = 5 To 35
    
      w.Cells(r, 2).Value = "=HOUR(AA" & r & ")"
      w.Cells(r, 3).Value = "=MINUTE(AA" & r & ")"
      w.Cells(r, 5).Value = "=HOUR(AB" & r & ") + (INT(AB" & r & ")-INT(AA" & r & ")) * 24"
      w.Cells(r, 6).Value = "=MINUTE(AB" & r & ")"
      
      w.Cells(r, 14).Value = "=IF(D" & r & "="""","""",(IF(AND(VALUE(D" & r & ")<VALUE(""7:31""),VALUE(D" & r & ")>=VALUE(""6:31"")),1,IF(AND(VALUE(D" & r & ")<VALUE(""6:31""),VALUE(D" & r & ")>=VALUE(""5:31"")),2,IF(AND(VALUE(D" & r & ")<VALUE(""5:31""),VALUE(D" & r & ")>=VALUE(""4:30"")),3,0)))))"
      
      'w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),8,IF(AND(NOT(VALUE(D" & r & ")<=VALUE(""8:30"")),NOT(VALUE(G" & r & ")>VALUE(""17:21""))),FLOOR(H" & r & "*24-I" & r & ",0.5),IF(AND(VALUE(D" & r & ")>=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),IF(FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)>4,4,FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)),IF(VALUE(G" & r & ")<=VALUE(""17:21""),FLOOR(VALUE(G" & r & ")*24-(""8:30"")*24-I" & r & ",0.5))))))"
      'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(M" & r & "="""",IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0),IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""17:31""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0)))"
      'w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",(IF(VALUE(G" & r & ")*24>TIMEVALUE(""22:01"")*24,FLOOR(G" & r & "-""22:01"",""0:30"")*24,0)))"
      
      ' rev2.3 2016/4/26追加
      w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),8,IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")<VALUE(""17:20"")),FLOOR(VALUE(H" & r & ")*24-I" & r & ",0.25),IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),FLOOR((VALUE(G" & r & ")*24-VALUE(D" & r & ")*24)-I" & r & ",0.25),FLOOR((VALUE(G" & r & ")*24-VALUE(""8:30"")*24)-I" & r & ",0.25)))))"
      'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:30""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""18:00"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:30"")*24,0.25)),0))"
      w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",IF(VALUE(G" & r & ")*24>VALUE(""22:00"")*24,FLOOR(VALUE(G" & r & ")*24-VALUE(""22:00"")*24,0.25),0))"
      
      ' rev2.5.1
      w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:14:59""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:59:59"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:29:59"")*24,0.25)),0))"
      
    Next r

    DoEvents

  End If
  
Next w

End Sub

Sub ed()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
    
    w.Activate
    
    For r = 5 To 35
    
      If w.Cells(r, 27).Value = "" Then w.Cells(r, 2).Value = ""
      If w.Cells(r, 27).Value = "" Then w.Cells(r, 3).Value = ""
      If w.Cells(r, 28).Value = "" Then w.Cells(r, 5).Value = ""
      If w.Cells(r, 28).Value = "" Then w.Cells(r, 6).Value = ""

      If w.Cells(r, 31).Value = "" And w.Cells(r, 13).Text = "" Then
      
          w.Cells(r, 14).Value = ""
          
      End If
      
      If w.Cells(r, 32).Value = "" And w.Cells(r, 13).Text = "" Then
      
          w.Cells(r, 16).Value = ""
          w.Cells(r, 17).Value = ""
          
      End If

      If w.Cells(r, 33).Value = "" And w.Cells(r, 13).Text <> "" Then
      
          w.Cells(r, 14).Value = ""
          w.Cells(r, 15).Value = ""
          w.Cells(r, 16).Value = ""
          w.Cells(r, 17).Value = ""
          
      End If
      
      Select Case w.Name
      
          Case "xxx"
    
          Case Else
          
              If w.Cells(r, 13).Text = "" Then w.Cells(r, 15).NumberFormatLocal = """-"""
          
      End Select

    Next r

    DoEvents

  End If

  w.Columns("W:AK").AutoFit

Next w

End Sub

Sub ck()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
    
    For r = 5 To 35
    
    Select Case w.Name
    
      Case "xxx"
      Case Else
      
        If IsError(w.Cells(r, 15)) Then
        
          w.Activate: w.Cells(r, 15).Select
          MsgBox w.Name & "の" & r & "行目の定時時間が正しく取得できません。"
        
        Else
        
          If w.Cells(r, 13).Value = "" And w.Cells(r, 15).Value <> "" And w.Cells(r, 15).Value < 8 Then
    
            If w.Cells(r, 19).Value = "" Then
            
              w.Activate: w.Cells(r, 15).Select
              MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "申請がありません。"
              
            ElseIf w.Cells(r, 19).Value <> "" And w.Cells(r, 19).Value <> "有給" And w.Cells(r, 19).Value <> "半休" Then
            
              w.Activate: w.Cells(r, 15).Select
              MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "有給・半休が申請されていません。"
              
            End If
          
          End If
        
        End If
      
    End Select
      
    Next r
      
  End If
Next w

End Sub

Private Sub main()

Call init

f = "#" & Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01#"
tmp = DateAdd("d", -1, DateAdd("m", 1, Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1"))
t = "#" & tmp & " 00:00:01#"

For Each w In Worksheets

    If w.Name <> "MAIN MENU" Then
    
      w.Activate

      If False = fnc(w.Name, f, t) Then Exit Sub
      
      DoEvents
      
    End If

Next w

Call ed
Call ck

MsgBox "done"

End Sub

Function n(fld As Variant)

If False = IsNull(fld) Then

    n = CStr(fld)
    Exit Function

End If

n = ""

End Function

Function fnc(u, f, t)

On Error GoTo try

p = ActiveWorkbook.Path & "\Tc_Db.mdb"
s = "SELECT * FROM Tc_Tbl WHERE 氏名 = '" & u & "' AND 日付 BETWEEN " & f & " AND " & t & ""

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & p & ";"
rs.Open s, cn

k = 0
tmp = Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01"

For i = 5 To 35
      If Month(tmp) = Month(DateAdd("d", k, tmp)) Then Sheets(u).Cells(i, 23) = DateAdd("d", k, tmp)
      k = k + 1
Next

For i = 24 To 37
    Sheets(u).Cells(4, i) = rs(i - 24).Name
Next i

Do Until rs.EOF
    
    For r = 5 To 35
    
      If Sheets(u).Cells(r, 23) <> "" And Day(Sheets(u).Cells(r, 23)) = Day(n(rs(2))) Then

        For c = 24 To 37
        
            Sheets(u).Cells(r, c).Value = n(rs(c - 24))
    
        Next c

        If Sheets(u).Cells(r, 31).Value <> "" Then Sheets(u).Cells(r, 19).Value = "早出申請有"
        If Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残業申請有"
        If Sheets(u).Cells(r, 31).Value <> "" And Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残・早申請有"
        If Sheets(u).Cells(r, 33).Value <> "" Then Sheets(u).Cells(r, 19).Value = "休日出勤申請有"
        If Sheets(u).Cells(r, 34).Value <> "" Then Sheets(u).Cells(r, 19).Value = "有休"
        If InStr(Sheets(u).Cells(r, 34).Value, "(") > 0 Then Sheets(u).Cells(r, 19).Value = "半休"
        If Sheets(u).Cells(r, 35).Value <> "" Then Sheets(u).Cells(r, 19).Value = "欠勤"
        If Sheets(u).Cells(r, 36).Value <> "" Then Sheets(u).Cells(r, 19).Value = "代休"
        If InStr(Sheets(u).Cells(r, 37).Value, "申請不要") > 0 Then Sheets(u).Cells(r, 19).Value = "申請不要"
        
      End If
    
    Next r

    rs.MoveNext
    
Loop

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

fnc = True

Exit Function

try:

    MsgBox "error"
    fnc = False
    
End Function

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

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

Sub test()

Application.CommandBars("cell").Reset

End Sub

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "main"

.Caption = "TC集計開始"

End With

Application.CommandBars("cell").Controls("確認表示").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "check_layout"

.Caption = "確認表示"

End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete

Application.CommandBars("cell").Controls("確認表示").Delete

End Sub

Sub check_layout()

tmp = MsgBox("実行後に保存しないよう注意してください。実行しますか？", vbYesNo)

If tmp = vbNo Then Exit Sub

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Columns("A:X").ColumnWidth = 0

w.Rows("1:3").RowHeight = 0

End If

MsgBox "終了しました。"

End Sub

Sub init()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

w.Unprotect

w.Range("W4").Select

ActiveWindow.Zoom = 85

ActiveWindow.ScrollColumn = 1

ActiveWindow.ScrollRow = 1

w.Range("B5:B35").ClearContents

w.Range("C5:C35").ClearContents

w.Range("E5:E35").ClearContents

w.Range("F5:F35").ClearContents

w.Range("S5:S35").ClearContents

w.Range("W4:AK35").ClearContents

w.Range("B5:C35").NumberFormatLocal = "0"

w.Range("E5:F35").NumberFormatLocal = "0"

w.Range("N5:Q35").NumberFormatLocal = "0.00"

w.Range("W5:W35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"

w.Range("X5:X35").NumberFormatLocal = "0"

w.Range("Z5:AD35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"

w.Range("AE5:AK35").NumberFormatLocal = "@"

For r = 5 To 35

w.Cells(r, 2).Value = "=HOUR(AA" & r & ")"

w.Cells(r, 3).Value = "=MINUTE(AA" & r & ")"

w.Cells(r, 5).Value = "=HOUR(AB" & r & ") + (INT(AB" & r & ")-INT(AA" & r & ")) * 24"

w.Cells(r, 6).Value = "=MINUTE(AB" & r & ")"

w.Cells(r, 14).Value = "=IF(D" & r & "="""","""",(IF(AND(VALUE(D" & r & ")<VALUE(""7:31""),VALUE(D" & r & ")>=VALUE(""6:31"")),1,IF(AND(VALUE(D" & r & ")<VALUE(""6:31""),VALUE(D" & r & ")>=VALUE(""5:31"")),2,IF(AND(VALUE(D" & r & ")<VALUE(""5:31""),VALUE(D" & r & ")>=VALUE(""4:30"")),3,0)))))"

'w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),8,IF(AND(NOT(VALUE(D" & r & ")<=VALUE(""8:30"")),NOT(VALUE(G" & r & ")>VALUE(""17:21""))),FLOOR(H" & r & "*24-I" & r & ",0.5),IF(AND(VALUE(D" & r & ")>=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),IF(FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)>4,4,FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)),IF(VALUE(G" & r & ")<=VALUE(""17:21""),FLOOR(VALUE(G" & r & ")*24-(""8:30"")*24-I" & r & ",0.5))))))"

'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(M" & r & "="""",IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0),IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""17:31""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0)))"

'w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",(IF(VALUE(G" & r & ")*24>TIMEVALUE(""22:01"")*24,FLOOR(G" & r & "-""22:01"",""0:30"")*24,0)))"

' rev2.3 2016/4/26追加

w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),8,IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")<VALUE(""17:20"")),FLOOR(VALUE(H" & r & ")*24-I" & r & ",0.25),IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),FLOOR((VALUE(G" & r & ")*24-VALUE(D" & r & ")*24)-I" & r & ",0.25),FLOOR((VALUE(G" & r & ")*24-VALUE(""8:30"")*24)-I" & r & ",0.25)))))"

'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:30""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""18:00"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:30"")*24,0.25)),0))"

w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",IF(VALUE(G" & r & ")*24>VALUE(""22:00"")*24,FLOOR(VALUE(G" & r & ")*24-VALUE(""22:00"")*24,0.25),0))"

' rev2.5.1

w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:14:59""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:59:59"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:29:59"")*24,0.25)),0))"

Next r

DoEvents

End If

Next w

End Sub

Sub ed()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

For r = 5 To 35

If w.Cells(r, 27).Value = "" Then w.Cells(r, 2).Value = ""

If w.Cells(r, 27).Value = "" Then w.Cells(r, 3).Value = ""

If w.Cells(r, 28).Value = "" Then w.Cells(r, 5).Value = ""

If w.Cells(r, 28).Value = "" Then w.Cells(r, 6).Value = ""

If w.Cells(r, 31).Value = "" And w.Cells(r, 13).Text = "" Then

w.Cells(r, 14).Value = ""

End If

If w.Cells(r, 32).Value = "" And w.Cells(r, 13).Text = "" Then

w.Cells(r, 16).Value = ""

w.Cells(r, 17).Value = ""

End If

If w.Cells(r, 33).Value = "" And w.Cells(r, 13).Text <> "" Then

w.Cells(r, 14).Value = ""

w.Cells(r, 15).Value = ""

w.Cells(r, 16).Value = ""

w.Cells(r, 17).Value = ""

End If

Select Case w.Name

Case "xxx"

Case Else

If w.Cells(r, 13).Text = "" Then w.Cells(r, 15).NumberFormatLocal = """-"""

End Select

Next r

DoEvents

End If

w.Columns("W:AK").AutoFit

Next w

End Sub

Sub ck()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

For r = 5 To 35

Select Case w.Name

Case "xxx"

Case Else

If IsError(w.Cells(r, 15)) Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が正しく取得できません。"

Else

If w.Cells(r, 13).Value = "" And w.Cells(r, 15).Value <> "" And w.Cells(r, 15).Value < 8 Then

If w.Cells(r, 19).Value = "" Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "申請がありません。"

ElseIf w.Cells(r, 19).Value <> "" And w.Cells(r, 19).Value <> "有給" And w.Cells(r, 19).Value <> "半休" Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "有給・半休が申請されていません。"

End If

End Select

Next r

End If

Next w

End Sub

Private Sub main()

Call init

f = "#" & Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01#"

tmp = DateAdd("d", -1, DateAdd("m", 1, Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1"))

t = "#" & tmp & " 00:00:01#"

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

If False = fnc(w.Name, f, t) Then Exit Sub

DoEvents

End If

Next w

Call ed

Call ck

MsgBox "done"

End Sub

Function n(fld As Variant)

If False = IsNull(fld) Then

n = CStr(fld)

Exit Function

End If

n = ""

End Function

Function fnc(u, f, t)

On Error GoTo try

p = ActiveWorkbook.Path & "\Tc_Db.mdb"

s = "SELECT * FROM Tc_Tbl WHERE 氏名 = '" & u & "' AND 日付 BETWEEN " & f & " AND " & t & ""

Set cn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & p & ";"

rs.Open s, cn

k = 0

tmp = Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01"

For i = 5 To 35

If Month(tmp) = Month(DateAdd("d", k, tmp)) Then Sheets(u).Cells(i, 23) = DateAdd("d", k, tmp)

k = k + 1

For i = 24 To 37

Sheets(u).Cells(4, i) = rs(i - 24).Name

Next i

Do Until rs.EOF

For r = 5 To 35

If Sheets(u).Cells(r, 23) <> "" And Day(Sheets(u).Cells(r, 23)) = Day(n(rs(2))) Then

For c = 24 To 37

Sheets(u).Cells(r, c).Value = n(rs(c - 24))

Next c

If Sheets(u).Cells(r, 31).Value <> "" Then Sheets(u).Cells(r, 19).Value = "早出申請有"

If Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残業申請有"

If Sheets(u).Cells(r, 31).Value <> "" And Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残・早申請有"

If Sheets(u).Cells(r, 33).Value <> "" Then Sheets(u).Cells(r, 19).Value = "休日出勤申請有"

If Sheets(u).Cells(r, 34).Value <> "" Then Sheets(u).Cells(r, 19).Value = "有休"

If InStr(Sheets(u).Cells(r, 34).Value, "(") > 0 Then Sheets(u).Cells(r, 19).Value = "半休"

If Sheets(u).Cells(r, 35).Value <> "" Then Sheets(u).Cells(r, 19).Value = "欠勤"

If Sheets(u).Cells(r, 36).Value <> "" Then Sheets(u).Cells(r, 19).Value = "代休"

If InStr(Sheets(u).Cells(r, 37).Value, "申請不要") > 0 Then Sheets(u).Cells(r, 19).Value = "申請不要"

End If

Next r

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

fnc = True

Exit Function

try:

MsgBox "error"

fnc = False

End Function

2017-01-152018-02-11

動画サイズの計算

ピクセルから計算。
1280 px * 720 px * 24 bit = 22118400 bit
22118400 bit / 1000 = 22118.4 Kbit　　【 / 1000 = K】
22118.4 Kbit / 1000 = 22.1184 Mbit　　【K / 1000 = M】
22.1184 Mbit * 30fps = 663.552 Mbps　　【bit * フレームレート = bps】
128 Kbps / 1000 = 0.128 Mbps　　【音声】
663.552 Mbps + 0.128 Mbps = 663.68 Mbps　　【映像 + 音声】
663.68 Mbps / 8 = 82.96MB/s　【bps / 8 = byte】

最初から映像や音声がKbpsの場合。
( 映像 Kbps + 音声 Kbps ) × 再生時間 sec / 8 / 1000

ちなみに音声の場合。
44100 Hz * 16 bit * 2 ch * 3 sec = 4233600 bit
4233600 / 8 = 529200 byte
529200 / 1000 = 529.2 KB

Youtubeでの表示

144p → 256×144
240p → 427×240
360p → 640×360
480p → 720×480
720p → 1280×720 （HD）
1080p → 1920×1080（FHD）
1440p → 2560×1440（2K）
2160p → 3840×2160（4K）

2017-01-132024-03-02

ネットワークメモ

･ダムハブ(リピータハブ)
全てのポートに転送する｡

･VLAN
スイッチやルータで作れる､ネットワーク(セグメント)を分ける機能｡
ポートVLAN
タグVLAN
など

･マルチプルVLAN
ポートベースVLANで一つのポートが複数のVLANに参加できるようにする｡

･マルチプルVLANのポート
マルチプルポート=アップリンクポート=オーバーラップポート

･IPアドレス
ABCとクラスに分ける､クラスフルは現在利用されず､現在はクラスレス(CIDR)だが､プライベートアドレスは
A：10.0.0.0 – 10.255.255.255（10.0.0.0/8）
B：172.16.0.0 – 172.31.255.255（172.16.0.0/12）
C：192.168.0.0 – 192.168.255.255（192.168.0.0/16）
と予約(クラス分け)されている｡

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13118580668

x.x.x.0=ネットワーク識別用アドレス
x.x.x.255=ブロードキャストアドレス

･サブネット化(サブネッティング)
トラフィックが多い場合､ネットワークを小さく分けることで､それぞれの通信も抑制できる｡ネットワーク部.ホスト部が､あり､デフォルトで指定されている部分を拡張した部分をサブネット部と呼ぶ｡

クラスのデフォルトのネットワーク部を拡張した部分をサブネット部をと呼び､
“ネットワーク部.サブネット部.ホスト部”とすることになっているが､
ローカルIPアドレスのクラス分けが予約のためなので､
“ネットワーク部.サブネット部.ホスト部”は､サブネット部も含めてネットワーク部と考えれば問題ない｡サブネット化はネットワークを小さくすること｡

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1497905699

https://e-words.jp/w/%E3%82%B5%E3%83%96%E3%83%8D%E3%83%83%E3%83%88%E5%8C%96.html

･ARP
IPアドレスからMACアドレスを調べるブロードキャスト｡

･L2スイッチ
MACアドレスを記憶している｡送られてきたデータを､対象が接続されたポートにのみ転送する｡
※適切な相手にのみ流す=スッチング｡

･L3スイッチ
IPアドレスで参照する｡異なるネットワークを接続できる｡
同じネットワークならMACアドレス､ネットワークが違うとIPアドレスを利用｡

･PPPoE
IPv4、IPv6
ID/パスワードで接続する従来のネット接続のこと。

･PPPoEパススルー(PPPoEブリッジ)
ルーターを介さず接続｡

･IPoE
IPv6
LANと同じプロトコル(PPPを利用しない)でネットまで接続する。
回線認証で接続する。
NAT不要。

･NAT
一つのローカルアドレスと一つのグローバルアドレスを変換する。

･NAPT(IPマスカレード)
複数のローカルアドレスを一つのグローバルアドレスに変換する。
ポート番号を利用してパケットの対応づけを行う。

･NATトラバーサル
NAT/NAPTを利用したネットワークでIPSecを利用する技術。
IPSecパケットをNAT/NAPTを通過させるために必要な技術。

･Wi-FI暗号化

暗号化方式として以下がある。(プロトコル / アルゴリズム)
WEP / RC4
TKIP / RC4
CCMP / AES ※AESと呼ばれることが多い

認証方式としてパーソナルとエンタープライズがある。
パーソナル：PSK認証
エンタープライズ：専用サーバーでの認証

規格として以下がある。(方式/プロトコル/アルゴリズム)
WEP/WEP/RC4
WPA-PSK/CCMP/AES
WPA-PSK/TKIP/RC4
WPA2-PSK/CCMP/AES
WPA2-PSK/TKIP/RC4
WPA3-SAE/CCMP/AES

PSK(Pre-Shared Key)：共通パスワード
SAE(Simultaneous Authentication of Equals)：
パスワードそのものはやり取りせず、正しいパスワードを使って計算すれば正解が出る問題やり取りして認証する方式らしい。。

･電波帯

2.4GHz(g)：障害物に強い。他の電波(レンジ等)と干渉しやすい。
5GHz(a)：障害物に弱い。電波干渉が少ない。
WiFi5以降5GHz(a)を選択で問題ない｡

･IEEE802.11規格

ax：2.4GHz|5GHz / WiFi6 / 9.6Gbps
ac：5GHz / WiFi5 / 6.9Gbps(867Mbps*8)
n：2.4GHz|5GHz / WiFi4 /600Mbps(150Mbps*4)
g：2.4GHz / 第3世代 / 54Mbps
a：5GHz / 第2世代 / 54Mbps
b：2.4GHz / 第2世代 / 11Mbps

･b/g/n/axチャンネル
1-14チャンネル
1CHあたり22MHz

･a/n/ac/axチャンネル
J52：34,38,42,46
W52：36,40,44,48
W53：52,56,60,64
W56：100,104,108,112,116,120,124,128,132,136,140,144
1CHあたり20MHz

･ボンディング
隣り合うチャンネルを束ねる｡
NEC Aterm：デュアルチャネル､クワッドチャネル､オクタチャネル
バッファロー：倍速モード

･ストリーム数/アンテナ数
✕で表示されるているのは受信と送信｡
MIMOと呼ばれる｡本数分同時に通信できるので多い方が速度がでる｡
1ストリームごとの速度は規格によって違う｡
acの例)
2.4GHz(g)：150,300,450,600Mbps
5GHz(a)：433,867,1300,1733Mbps

･LANケーブル

cat5 / 100M bps
cat5e / 1G bps
cat6 / 1G bps
cat6A / 10G bps
cat7 / 10G bps
cat7A / 10G bps
cat8 / 40G bps

2017-01-12

C# 型情報取得

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;
using System.Reflection;

namespace インスタンスとクラスでのメンバ
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            this.Width = 800;
            this.Height = 600;

            TextBox tb = new TextBox();
            tb.Location = new Point(2, 57);
            tb.Multiline = true;
            tb.Size = new System.Drawing.Size(700, 445);
            tb.Anchor = AnchorStyles.Top | AnchorStyles.Right | AnchorStyles.Bottom | AnchorStyles.Left;
            tb.ScrollBars = ScrollBars.Both;
            Controls.Add(tb);

            Button btn = new Button();
            btn.Text = "click!";
            btn.Location = new Point(2, 2);
            btn.Size = new System.Drawing.Size(100, 50);
            Controls.Add(btn);
            btn.Click += new EventHandler((object sender, EventArgs e)=> {

                //typeofだと型を直接渡す。静的
                //MemberInfo[] mi = typeof(String).GetMembers(
                //GetTypeだとインスタンスから情報取得可能。動的
                System.String s = "Hello World";
                MemberInfo[] mi = s.GetType().GetMembers(
                    BindingFlags.Public | 
                    BindingFlags.NonPublic | 
                    BindingFlags.Instance | 
                    BindingFlags.Static | 
                    BindingFlags.FlattenHierarchy);

                string buff = "";
                foreach (MemberInfo m in mi)
                {
                    buff = m.Module + ": " + m.ReflectedType + ": " + m.MemberType + ": " + m.Name + "\r\n" + buff;
                }
                tb.Text = buff;
            });
        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Drawing;

using System.Windows.Forms;

using System.Reflection;

namespace インスタンスとクラスでのメンバ

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.Width = 800;

this.Height = 600;

TextBox tb = new TextBox();

tb.Location = new Point(2, 57);

tb.Multiline = true;

tb.Size = new System.Drawing.Size(700, 445);

tb.Anchor = AnchorStyles.Top | AnchorStyles.Right | AnchorStyles.Bottom | AnchorStyles.Left;

tb.ScrollBars = ScrollBars.Both;

Controls.Add(tb);

Button btn = new Button();

btn.Text = "click!";

btn.Location = new Point(2, 2);

btn.Size = new System.Drawing.Size(100, 50);

Controls.Add(btn);

btn.Click += new EventHandler((object sender, EventArgs e)=> {

//typeofだと型を直接渡す。静的

//MemberInfo[] mi = typeof(String).GetMembers(

//GetTypeだとインスタンスから情報取得可能。動的

System.String s = "Hello World";

MemberInfo[] mi = s.GetType().GetMembers(

BindingFlags.Public |

BindingFlags.NonPublic |

BindingFlags.Instance |

BindingFlags.Static |

BindingFlags.FlattenHierarchy);

string buff = "";

foreach (MemberInfo m in mi)

{

buff = m.Module + ": " + m.ReflectedType + ": " + m.MemberType + ": " + m.Name + "\r\n" + buff;

}

tb.Text = buff;

});

}

2017-01-112017-01-17

ds.min.js

<!DOCTYPE html>
<meta charset="utf-8">
<style>

body {
  margin: 0;
  background: #222;
  min-width: 960px;
}

rect {
  fill: none;
  pointer-events: all;
}

circle {
  fill: none;
  stroke-width: 2.5px;
}

</style>
<body>
<script src="http://d3js.org/d3.v3.min.js"></script>
<script>window.d3 || document.write('<script src="d3.min.js"><\/script>')</script>
<script>

var width = Math.max(960, innerWidth),
    height = Math.max(500, innerHeight);

var i = 0;

var svg = d3.select("body").append("svg")
    .attr("width", width)
    .attr("height", height);

svg.append("rect")
    .attr("width", width)
    .attr("height", height)
    .on("ontouchstart" in document ? "touchmove" : "mousemove", particle);

function particle() {
  var m = d3.mouse(this);

  svg.insert("circle", "rect")
      .attr("cx", m[0])
      .attr("cy", m[1])
      .attr("r", 1e-6)
      .style("stroke", d3.hsl((i = (i + 1) % 360), 1, .5))
      .style("stroke-opacity", 1)
    .transition()
      .duration(2000)
      .ease(Math.sqrt)
      .attr("r", 100)
      .style("stroke-opacity", 1e-6)
      .remove();

  d3.event.preventDefault();
}

</script>

<!DOCTYPE html>

<style>

body {

margin: 0;

background: #222;

min-width: 960px;

}

rect {

fill: none;

pointer-events: all;

}

circle {

fill: none;

stroke-width: 2.5px;

}

</style>

<body>

var width = Math.max(960, innerWidth),

height = Math.max(500, innerHeight);

var i = 0;

var svg = d3.select("body").append("svg")

.attr("width", width)

.attr("height", height);

svg.append("rect")

.attr("width", width)

.attr("height", height)

.on("ontouchstart" in document ? "touchmove" : "mousemove", particle);

function particle() {

var m = d3.mouse(this);

svg.insert("circle", "rect")

.attr("cx", m[0])

.attr("cy", m[1])

.attr("r", 1e-6)

.style("stroke", d3.hsl((i = (i + 1) % 360), 1, .5))

.style("stroke-opacity", 1)

.transition()

.duration(2000)

.ease(Math.sqrt)

.attr("r", 100)

.style("stroke-opacity", 1e-6)

.remove();

d3.event.preventDefault();

}

</script>