No.5ベストアンサー
- 回答日時:
#3 補足分
「月で試して・・Like "[4月・・3月]" Then Exit Sub
の Like の [ ] の使い方が難しいようです。
この行は 選択セルの列の○入力をするか見出しに応じて動的に判定するだけなので
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "*月" Then Exit Sub
列の見出しが X月、XX月、でなければ中止(注意:ほかの列の見出しにXXXXX月があると誤動作・・)
でも
列が固定なら
If Target.Column>5 or 12< Target.Column Then Exit Sub
でもよいでしょう。
ありがとうございました。VBA言語素人なもので、
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "*月" Then Exit Sub
のやり方でします。助かりました。
No.4
- 回答日時:
すこし別のアプローチで。
。。まとめて○を入力したいのであれば、入力予定のセルをctrlキーを押しながら選択してから「○」を入力してctrlキーを押しながらEnterキーを押すとまとめて入力されます。
参考URL:http://www.microsoft.com/japan/users/tips/Excel/ …
あと、仕掛けをつくるのが面倒ですが、Excelのフォーム(VBA用ではない方)に、チェックボックスというそのものズバリなオブジェクトがありますのでコレだったらマウスでチェックつけられます。(セル連動で集計も可能!)
覚えておくと、いつか役に立つかも。。。
この回答への補足
フォームのチェック使ってみました。
セル連動ということで少し使いづらいですが。
こちらの方法でチェックマーク付けたところのみ、集計結果をだせればいいのですが、例えば関数は何を使えばよろしいでしょうか。セル連動にしますとTRUEもしくはFALSEとなってしまう為COUNTA関数は使えませんよね。お願いします。
No.3
- 回答日時:
マクロ 動作
曜日の見出しの行( 例では 2行目)が
日月火水木金土 の列のセルを選択すると ○⇔""空白 反転
ツール マクロ VBエディタ
(表示>プロジェクトエクスプローラ)
入力する Worksheetの モジュール表示にして
↓貼り付け↓
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
見出しの行 = 2 '曜日の見出しの行
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "[日月火水木金土]" Then Exit Sub
If Target.Row <= 見出しの行 Then Exit Sub
Application.EnableEvents = False
For Each セル In Target
If Trim(セル.Value) = "" Then
セル.Value = "○"
Else
セル.Value = ""
End If
Next
Cells(2, Target.Column).Select
Application.EnableEvents = True
End Sub
この回答への補足
今、月で試しているのですが
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "[4月5月6月7月8月9月10月11月12月1月2月3月]" Then Exit Sub
でやるとうまくいきません。[]の中を4567891011121123とすれば10と11と12のところがうまく認識してくれません。教授願えませんでしょうか。
返答有難うございます。
マクロは使ったことなかったのですが、試してみた所このやり方は凄く便利ですね。
覚えておきます。有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- デスクトップパソコン パソコンの画面が固まった感じになり マウスの矢印を持って行って左クリックしても固まりに変化が起きない 2 2022/07/20 19:46
- ノートパソコン Onlineエクセルで右クリックが使えない 1 2023/07/01 22:07
- Windows 8 動画の再生とタイトルの変更方法を教えてください。 3 2022/08/01 14:51
- マウス・キーボード マウスのないパソコン 9 2022/03/30 10:53
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Excel(エクセル) オフィスをLibreOfficeからmicrosoft 2013に変えました。 1 2022/05/09 00:28
- Windows 10 Windows10の不具合(Critical Process Died) 9 2022/04/19 21:11
- その他(IT・Webサービス) AutoHotKeyで、キーボードにマウスの右クリックを割り当てられる? 1 2023/03/30 00:23
- Windows 10 (緊急)windowsのタスクバーやアプリ?が反応しない 3 2023/03/28 05:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで行の一番上にセルに...
-
Excelのテーブル上のセルの保護...
-
エクセルで休日の「休」という...
-
【エクセル】入力規則のプルダ...
-
エクセルでエンターを押すと隣...
-
名簿の漢字名を関数で半角カナ...
-
Excel入力規則とVLOOKUPの組み...
-
エクセルで既存数値を税抜きに...
-
エクセル : 指定位置へジャン...
-
エクセルのオートフィル機能で...
-
エクセルの数式を等間隔にオー...
-
EXCELで縦の行全てに一括して文...
-
A1 B1 A2 B2 A3 B3 の順に入力...
-
エクセルで空白に自動で文字を...
-
エクセルVBAの記述法(Workshee...
-
エクセルで決められた合計にな...
-
マクロ/VBAにてフレーム内複数...
-
エクセル2003 001からの連番を...
-
エクセル・真ん中の数字のみイ...
-
エクセルで「○なら△」の条件式...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのテーブル上のセルの保護...
-
名簿の漢字名を関数で半角カナ...
-
EXCEL 連動したドロップダウン...
-
EXCELで縦の行全てに一括して文...
-
【エクセル】入力規則のプルダ...
-
エクセルで決められた合計にな...
-
エクセルで行の一番上にセルに...
-
エクセルで空白に自動で文字を...
-
エクセルでエンターを押すと隣...
-
EXCELのNOW()関数の...
-
エクセルのオートフィル機能で...
-
オートフィルを列すべて(一番...
-
空白部分に連番の数字を記入し...
-
エクセルで休日の「休」という...
-
エクセル・・色の着いたセルの...
-
Excelでセルを次の行の先頭の列...
-
Excelで相対度数を求めたいので...
-
指定した行に飛ぶ事って可能で...
-
エクセルで年を1年ずつ増やすや...
-
エクセルの数式を等間隔にオー...
おすすめ情報