エクセルマクロについて

 ◇-?エクセルマクロについて-OOITOS(初)-11/10-16:27(173)-No.428920
 　 ┗?!Re:エクセルマクロについて...-sss-11/10-18:16(171)-No.428932
 　 　 ┗?!?Re:エクセルマクロについて...-OOITOS-11/10-20:08(169)-No.428951
 　 　 　 ┗?!?!Re:エクセルマクロについて...-sss-11/11-07:29(158)-No.429014
 　 　 　 　 ┗?!?!【解決】Re:エクセルマクロに�...-OOITOS-11/12-15:56(126)-No.429180

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

428920	エクセルマクロについて	OOITOS(初)	2007/11/10-16:27
メーカー名：NEC 日本電気 OS名：Windows2000 パソコン名：PC-MA66HLZT7 ソフト関連：表計算Excel 使用回線：光 -- エクセル2000を使っています。最初のシートに社員ID（番号）を入力→その社員のシートに入力した時間を 1のセルに自動記入→違う時間に同じ社員がIDを入力→その社員のシートに入力した時間を2のセルに自動記入　ということを同じ社員で一日6回したいです。一人の社員のシートに　8:00 12:00 13:00 16:00 18:00 21:00のように初心者がいろいろ調べて下記のように一人一人のシートにマクロボタン（6個）を作って時間の入力は出来るようになったのですが　ボタンですと押し間違え、違う人のシートを押してしまうという事が多いので、ID入力で出来るようにしたいです。 Sub 出勤() 最終行 = Range("D65536").End(xlUp).Row For Each セル In Range("D2:D" & 最終行) If Day(セル.Value) = Day(Date) Then Range("G" & セル.Row).Value = Format(Now, "hh:mm") Exit Sub End If Next End Sub Sub 退勤() 最終行 = Range("D65536").End(xlUp).Row For Each セル In Range("D2:D" & 最終行) If Day(セル.Value) = Day(Date) Then Range("H" & セル.Row).Value = Format(Now, "hh:mm") Exit Sub End If Next End Sub すみませんが　教えて下さい。

▲このページのトップに戻る

428932	Re:エクセルマクロについて	sss	2007/11/10-18:16
記事番号428920へのコメント OOITOS(初)さんは No.428920「エクセルマクロについて」で書きました。 >違う人のシートを押してしまうという事が多いので、ID入力で出来るようにしたいです。 Bookを開いたときUserFormが立ち上がりTextBoxにIDを入力すると、その該当Sheetが開くマクロです。 UserForm上にTextBoxとCommandButtonを配置して下さい。 '標準モジュールに記入 Sub auto_open() UserForm1.Show End Sub 'UserFormに記入 Private Sub CommandButton1_Click() If TextBox1.Value = 1234 Then　　'1234がIDです Sheets("Sheet3").Select UserForm1.Hide End If If TextBox1.Value = 1111 Then　　　'1111がIDです Sheets("Sheet1").Select UserForm1.Hide End If End Sub

▲このページのトップに戻る

428951	Re:エクセルマクロについて	OOITOS	2007/11/10-20:08
記事番号428932へのコメント sssさんは No.428932「Re:エクセルマクロについて」で書きました。 SSS様　早々にありがとうございます。 UserFormが出るようになりましたがいつもUserFormが出るようにはならないでしょうか？常時、ブックは開いたままなので次の人がブックを開いたままでTextBoxにIDを入力するとその人のところのシートが開くようにしたいのですがわがままですみません。

▲このページのトップに戻る

429014	Re:エクセルマクロについて	sss	2007/11/11-07:29
記事番号428951へのコメント OOITOSさんは No.428951「Re:エクセルマクロについて」で書きました。「一人一人のシートにマクロボタン（6個）を作って」とあるので各マクロボタンの最後にUserForm1.Show と記述して動作確認をして見てください。

▲このページのトップに戻る

429180	Re:エクセルマクロについて	OOITOS	2007/11/12-15:56
記事番号429014へのコメント sssさんは No.429014「Re:エクセルマクロについて」で書きました。ありがとうございました。 SSSさんの助言を参考に　いいものが出来ました。このたびは　ありがとうございました。

パソコントラブル解決・過去ログTOP > ログTOP > エクセルマクロについて

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言