![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
先に言っておきますが、カスタマイズ等は受け付けませんので、あとは自力で頑張ってください。
(本職ではないのでツライんですw)あと、質問カテゴリは「デジタルライフ > Macintosh」ではなく「デジタルライフ > ソフトウェア > Office系ソフト」にした方が詳しい方がおられると思います。
とりあえず、エクセルの関数とマクロの組み合わせで素人なりに作ってみました。
とりあえずコピペしてみて
■■■■■■エクセルのシート(CSV)ここから■■■■■■
,,1,2,3,4,5,6,7,8,9
=today(),,イチロー,ジロー,サブロー,シロー,ゴロー,ロクロー,ナナコ,ハチロウ,キュウちゃん
=COUNTA(B:B),11月30日,,,,,,,,,
,12月1日,,,,,○,,,,
■■■■■■エクセルのシートここまで■■■■■■
内容をコピーして「テキストエディット」にペーストしてフォーマットを標準テキストにして「出欠簿.csv」として保存してください。
そのファイルをエクセルで開いて(A2)セルとB列を日付の書式にしてください
■■■■■■マクロここから■■■■■■
Sub 日付を追加()
END_LINE = Range("A3").Value + 3
'(A3)セルには「=COUNTA(B:B)」
'B列は日付の書式
'(A2)セルには「=TODAY()」
Range("A2").Select
Selection.Copy
Range("B" & END_LINE).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub 出欠()
INPUT_LINE = Range("A3").Value + 2
MEMBER_ID = InputBox("メンバーIDを入力してください")
If MEMBER_ID = "" Then Exit Sub
MEMBER_ID = MEMBER_ID + 2
Cells(INPUT_LINE, MEMBER_ID) = "○"
End Sub
■■■■■■マクロここまで■■■■■■
マクロは今日の日付を追加するもの と ID確認して○をつけるもの
の2種類です。
で、(日付を追加)ボタンと、(出欠)ボタンをシートに配置すればできあがりです。
メンバーIDは数字です。
あとはメンバー登録ボタンでも作ればそれっぽくなるかな...
いろいろしていただきありがとうございました。
がんばって完成させることができました。
これも全てdailylabさんのおかげです。
マクロの勉強になりました。
またどこかで・・
ありがとうございました
No.2
- 回答日時:
あんまり詳しくないです...さらに詳細が不明ですのでとりあえず...
思ったことを書きます。参考になれば幸いです。
まず、今日の日付を新しい行に自動で入力するボタン(マクロ)を作成します。
today関数で今日の日付を表示するセルを用意しておきます。
日付が何列目まで入力されているのかカウントするセル〈例えば =COUNTA(2:2)〉を用意
カウントによって最新行(今日入力すべき行)が特定できますんで、今日の日付の値をソコに代入します。
/
メンバーIDの値をExcelの行と同じ値に設定しておけば(最新行,ID)で「○」を付けるX,Y座標が〈(5,4)みたいな感じで〉出ますね
あとは「入力」ボタンを押したらInputBox(数値)が出てメンバーIDの入力を求めるようにしておけば...
(最新行,メンバーID)の場所に○を付ける事ができる...ハズ
この回答への補足
ご回答ありがとうございます。
まだマクロのことを分かっていないので、マクロそのものを送ってくれたら幸いです。 どうぞよろしくお願いします。
例えば・・・↓
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/11/30 ユーザー名 : *****
'
'
ten = InputBox("IDを入力してください")
Select Case ten
Case 1
MsgBox "=一覧表!G2"
Sheets("出席表").Select
Range("G7").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 2
MsgBox ""
Sheets("出席表").Select
Range("G8").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 3
MsgBox ""
Sheets("出席表").Select
Range("G9").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 4
MsgBox ""
Sheets("出席表").Select
Range("G10").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 5
MsgBox ""
Sheets("出席表").Select
Range("G11").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case Else
MsgBox "IDが違います"
End Select
End Sub
これのどこに入れればよいでしょう。 ごめんなさいめんどくさい事させてしまって;;
よろしくお願いします。
No.1
- 回答日時:
も・ちょっと説明いただけますでしょうか?
出席簿と言うからには何人もメンバーがいる訳ですよね..
入力用セルに0001と入れるとAさんの行の今日の日付の列に○が入る
入力用セルに0002と入れるとBさんの行の今日の日付の列に○が入る
みたいな感じでいいんでしょうかね?
この回答への補足
ご回答ありがとうございます。
InputBoxをSelectとして使った形です。
こんな感じですね↓
ten = InputBox("IDを入力してください")
Select Case ten
Case 1
MsgBox "=一覧表!G2"
Sheets("出席表").Select
Range("G7").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 2
MsgBox ""
Sheets("出席表").Select
Range("G8").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 3
MsgBox ""
Sheets("出席表").Select
Range("G9").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 4
MsgBox ""
Sheets("出席表").Select
Range("G10").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case 5
MsgBox ""
Sheets("出席表").Select
Range("G11").Select
ActiveCell.FormulaR1C1 = "○"
Sheets("ターミナル").Select
Case Else
MsgBox "IDが違います"
End Select
End Sub
ご返事お願いします。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】行の最終更新日を...
-
excelからexcelへの差し込み印刷
-
エクセル シート内の一番下の...
-
VLOOKUP関数について、文字列と...
-
エクセルの保存データが文字化...
-
エクセルで目次自動生成
-
エクセル IF関数を教えてくださ...
-
エクセルシートに保存できるデ...
-
エクセルでB4:E7,H8:I8,H9:I9,K...
-
エクセルで自動的に連続番号が...
-
エクセルで縦に順に数字入力を...
-
エクセル・平均の出し方
-
エクセルで経過年を表示したい。
-
エクセル表でフィールドに選択...
-
音声認識を利用したExcelの操作
-
起算日の定義
-
30日サイト90日サイトってなん...
-
手形は何で送ればいいですか?
-
手形の支払期日が土日のときは?
-
銀行スリップの意味がわからない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】行の最終更新日を...
-
excelからexcelへの差し込み印刷
-
VLOOKUP関数について、文字列と...
-
エクセルのフィルタ検索で、空...
-
エクセルでオートシェイプをデ...
-
EXCELで入力したセルを変更でき...
-
エクセルで縦に順に数字入力を...
-
エクセルVBAのリストボックスに...
-
ワードパッドからエクセルへ
-
MacのNumbersで列ごと、行ごと...
-
エクセル・平均の出し方
-
音声認識を利用したExcelの操作
-
エクセルシートに保存できるデ...
-
行数の違う表への数式のコピー...
-
【エクセル】フィルタの「再適...
-
エクセル2007 セルの条件表示
-
誕生日順の並び替え
-
エクセルで。A列の名前のよみ...
-
エクセル表でフィールドに選択...
-
エクセルのセルをENTERで指定箇...
おすすめ情報