レイアウトは行が氏名、データが「時間の合計」です。 (4)マクロにパスワードをかける アマノのセキュリティ・入退室管理ソフト「TimePro-NX入室」は、入退室の履歴管理から在室状況のリアルタイム把握まで、セキュリティレベルに合わせて幅広い設定が可能です。「TimePro-NX就業」と連携することで、より正確な履歴管理を実現できます。 3 10月29日    19:00    19:22 (4) 15:45 それで、最終手段として、 を参考にしてください。 2007/9/6 15:11:54   5 どうか宜しくお願いします。, #VALUE!が出ます。 表示形式は通常の日付になっています。 (1)ボタンを押したらそのボタンは押せなくなり、一度ブックを閉じて再度開いても、その日の日付が入力されていたら、該当するボタンを押せないように設定する。 読み取ろうとするバーコードの種類に対応しているバーコードリーダーであれば よろしくお願いいたします。, No.1です。 非接触icカード 偽造や複製が困難で   Else 他のフォルダーにあるEXCELの項目の内容を取り込みたいです。 b1:20 Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照 ・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。 試用不可 使用手順付 それで十分ということです。 そこで、 (2)シート保護をかけて、ユーザは直接管理表のセルに入力したり削除したりできなくする。(ユーザが入力するセルだけは、セルの書式設定の「保護」からロックを解除する) しかし今でも、誤ったら他人の行にデータを入れ放題ですか。 readBook.Close False ' 相手ブックを閉じる といった具合です。, エクセルの表において、該当の日付の中から、一番早い時間を抽出したいのですが、どういう関数を使ってどう書けばいいのでしょうか。  End With バーコードの種類については ・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。 Dim writeSheet As Worksheet ' 自分自身の書き出し先シート すると「履歴表」シートに「日付」「曜日」「時間」「生徒ID」「名前」 宜しくお願いします。, 計算式、ありがとうございます。 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, 【Excel】月々のデータを年間通してのデータにまとめるVBAのコードを教えてください, Accessへ反映させるExcelの変更について 前任者が、Excel2つからデータベースを作成し、. =IF(INT($A3)=INT(B$1),"○",""), こんばんは!エクセルで、なにかデータを入力した横のセルに、その日の日付が自動的に入るような方法があれば、是非教えてくださいm(__)m横の列に手動で日付を入力すればよいといえばよいのですが^^;その列には、また別の日に、追加でデータを入力していきたいですので、前の日の日付もその日の日付も残るようにしたいんです。today関数とかじゃ全部その日になってしまいますよね。。。もし、データを入力しただけで、そのようなことができる方法があれば、是非教えてください。よろしくお願いしますm(__)m, マクロを組むしかありません。過去の質問を検索すれば結構出てきますよ。   End If この機能を使うことで学習塾等で生徒の入退室管理ができます。, 使用手順 CTRL+:、CTRL+;などの操作を覚えてもらうほうが良いでしょう。ボタンクリックとそう手間は変わらない。, こんにちわ!    .CommandButton2.Enabled = False バーコードリーダーは、キーボードやテンキー、マウスと一緒で、一つの入力装置です。 氏名合計 そこで...続きを読む, 初めまして、よろしくお願いします。 Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照 ?_ ;_ @_ \$#,##0_);\(\$#,##0\) \$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\) � 0_);[Red]\(0\) � [<=999]000;000\-00 � mmm\-yyyy � 0.0 � "Yes";"Yes";"No" � "True";"True";"False" � "On";"On";"Off" � m/d � 0.00_ シェアウェア(有料です)作者:nonnonさん 6 2010/10/29 19:22    000-0000001 writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む, いつもお世話になります。 ◯入室の場合 画像例のどの列の合計がおかしいのですか? 【元データ】    .CommandButton1.Enabled = True Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照 以上、よろしくお願いします。, 配列式やSUMPRODUCT関数、作業列などは使うまでもありません。  エクセルで分ごとの最大値と最小値を求める関数を教えて頂きたく、よろしくお願いします。 (2) 15:00 宜しく御願いします。, 私の簡単な例ではうまく行きましたが? ユーザー定義 [h]:mm しています。 a4:15 )」は、バーコードリーダーを使った入退室管理をすることができます。 「Excelで入退室管理」は次の機能を備えています。 入退室の記録を保存できます。 この機能を使うことで学習塾等で生徒の入退室管理ができます。 (1) ""  そして、B2セルをコピーして、C2から右方向に向かってコピーして下さい。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 具体的には、以下のようにA列に日付があり、1行目に該当日付(抽出日付)が 宜しくお願いします。, 申し訳ありません。 という手が考えられます。しかし、画面からシート保護をかけると、マクロの中でもセルに時刻を入力することができなくなるのです。したがって、 WINDOWS XP EXCELL2003 特定のIDで抽出で0:43の変換、日付の取得は必要ありません。 すると「履歴表」シートに「日付」「曜日」「時間」「生徒ID」「名前」 ※バーコードは、別途バーコード作成ソフトで作成してください。 "   If .Cells(3, Day(Date) + 1).Value = "" Then エクセルマクロを使って在庫管理をできるものを作ろうと思っています。 またIF関数以外でも同様のことができれば構いません。 2007/9/6 15:10:08    12 End Sub 2007/9/6 15:10:10   23 Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照 4 2010/10/30 7:38      000-0000001 それから、左側のThisWorkbookという文字をダブルクリックしてください。新たに白いシートが右に出ます。 仮に、新しいブックで A1セルを選択した後に、バーコードリーダーで何らかの値を とするのは簡単です。しかし、これには抜け道があり、いったん入力した時刻を手動で削除し、ブックを開き直すと、またボタンが押せるようになってしまいます。      ” そこで、USBバーコードリーダーなるものを発見したのですが、こういったバーコードリーダーをエクセルマクロを用いて読み取ることは可能でしょうか? 入退室管理表 テンプレート Excelで作成しています、ダウンロードしExcelで編集しご使用ください。 1日1枚と日付記入の2種類で、記入項目も異なります 8 2010/10/29 18:32    000-0000008 " はできるのですが、どこまで徹底的にやるかでやり方は変わってきます。 10月30日の入室時間と退出時間、間違えていました。 宜しくお願いします。, 会社で勤務時間をEXCELで管理することになりました。(タイムカードのように) 2007/9/6 15:10:33   22 7 2010/10/29 19:00    000-0000001 あるとして、2行めに抽出結果を出したいです。 End Sub ーン (YouTube), 音声ペンドットコードリーダー. (1)の場合は、下記のコードを ThisWorkbook に記述してください。 どのワークシートでも機能します。 (adsbygoogle = window.adsbygoogle || []).push({}).     ※ユーザー定義 [h]:mm 済み ステム TimePro-XG就業, 就業管理クラウドサービス TimePro-VGCloud, 人事労務管理パッケージ TimePro-NX 入室, 入退室の履歴管理から在室状況のリアルタイム把握まで幅広い運用に対応, TimePro-NX就業との連携でより正確な履歴管理を実現, 各種リストの作成・出力にも対応.   ◆アンインストールの方法 (3) 07:29 http://www.sensor.co.jp/barcode/jiten/barcode02.html 実際に読み込んでみて、正しければOKです。  With Worksheets("Sheet1") 入退室管理簿(兼点検記録簿)セキュリティ確保のため、入退室の管理に必要な措置として、入退室者の氏名、入室及び退室の日時を記録する入退室管理簿テンプレートです。点検記録簿としても使用できます。ファイル形式はPDF(.pdf)。無料ダウンロード可能です。  尚、この方法では、3行目以下に○を入れなくとも正常に動作致します。 読み取りの作業についてはあまりマクロは意識しなくてもよいと思います。 If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value 総計16:15 writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む   End If よろしくお願いします!, 私がやる方法です。 今まで数字ではうまくできたのですが時間では上手くゆきません。 , : _ "\"* #,##0.00_ ;_ "\"* \-#,##0.00_ ;_ "\"* "-"? たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。 9 2010/10/29 18:31    000-0000007 入退出時刻記録Excel(エクセル)プログラム付き QRコードリーダーCP-01 CP-01 プラス 動画 ExcelとQRコードリーダーを利用した入退室管理システムを動画にて掲載しております。 試してみると日付の比較でエラーが出ているようでうまく計算できません。 結果は 1  日付  入室時間  退室時間 2007/9/6 15:10:10   23 Set readBook = Nothing, 私がやる方法です。 どなたかご教示を御願いできませんか。 > また、一度押したら確定(押し直しができない)とすることはできますでしょうか? プログラムを作成するしか方法はないでしょうか? こういうのはお金(給与)や名誉(遅刻)に関連することで、個人が所有CDの整理表を自分で作るなどとは違うのです。 Private Sub Workbook_Open()  CommandButton2.Enabled = False 縦横が逆だったということなので、今度はA列がタイトル行で、1行目のB列より右に日付が入っており、出社時刻が2行目、退社時刻が3行目に入るものとします。