No.5
- 回答日時:
No.1・3です。
>右クリックの動作を追加する(右クリックは逆の動作を考えています)場合どのようにすればいいのでしょうか.
については前回のVBE画面に
↓のコードを追加してみてください。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
With Target
Select Case .Value
Case "大"
.Value = "中"
Case "中"
.Value = "小"
Case Else
.Value = "大"
End Select
End With
End Sub 'この行まで
これで右クリックで 大 → 中 → 小 → 大・・・
と繰り返されるはずです。
>今回このエクセルを扱うのはパソコンが苦手な友人なので,ダブルクリックではなく,クリックで行いたいのと
に関してですが、
↓のコードにすれば選択(クリック)しただけでの変更は可能です。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
Select Case .Value
Case "小"
.Value = "中"
Case "中"
.Value = "大"
Case Else
.Value = "小"
End Select
End With
End Sub
ただし、これは文字通り「SelectionChange」イベントですので
セル選択が変わった時に実行されるマクロとなります。
すなわち別セルを選択した状態で元のセルを選択する必要があります。
おそらくお望みとしてはセル移動せずに
クリック で 小 → 中 → 大
右クリックで 大 → 中 → 小
といった動きだと思いますが、
シングルクリックだけでは難しいように思われます。
たとえ
>今回このエクセルを扱うのはパソコンが苦手な友人なので
といってもPCを使おうか!という人であれば「ダブルクリック」くらいは問題ないと思いますので、
前回の「ダブルクリック」のコードを今回の「右クリック」のコードを併用してもらってはどうでしょうか?
その方がセルの移動なしで可能ですのでこの方法をオススメしたいのですが・・・m(_ _)m
No.4
- 回答日時:
>書かれている内容が[小→中→大→小]の様に
とは、先の回答者さんのように[小→中→大→小]を表示させることですか?
それとも、例えば、A1のセルに「会社」と入力されていて、
A1セルをクリックするたびに、
「会社」の表示を(フォントのポイントを)、「小さいフォントポイント」から「標準フォントポイント」そして「大きいフォントポイント」というふうに
表示させたい
ということですか?
この回答への補足
解答ありがとうございます.
言葉足らずですみません.
先の回答者さんの内容であっています.今回自分が作成したいのは,クリックする事に表示しているセルの内容が○が表示されていたら△へと言ったような事をしたいんです.
わかりにくいかもしれませんが,例:「○―クリック→△―クリック→×―クリック→○―以降ループ→」
といった感じっです.すみませんがよろしくお願いします.
No.3ベストアンサー
- 回答日時:
No.1です!
たびたびごめんなさい。
余計なコードがたくさんありました。
↓のコードに変更してください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
With Target
Select Case .Value
Case "小"
.Value = "中"
Case "中"
.Value = "大"
Case Else
.Value = "小"
End Select
End With
End Sub 'この行まで
※ ダブルクリックでの操作ですので、必要でないものがかなりありました。
何度もごめんなさいね。m(_ _)m
この回答への補足
返事が遅くなり申し訳ありません.
回答と素晴らしいコードありがとうございます.
ですが申し訳ないですが,要望があります.
今回このエクセルを扱うのはパソコンが苦手な友人なので,ダブルクリックではなく,クリックで行いたいのと,この記述に,右クリックの動作を追加する(右クリックは逆の動作を考えています)場合どのようにすればいいのでしょうか.
注文ばかりですみませんが,ご教授下さい.よろしくお願いします.
No.2
- 回答日時:
エクセルには
「セルをクリックすると内容が変わる」
という不便な機能はありませんので、
この機能が欲しいと思ったらVBAを使って自作する必要があります。
ですが、VBAの起動タイミングとして用意されているのは
あるセルをクリックしたら、で考えると
・ダブルクリックしたら
・右クリックしたら
・フォーカスが移動したら
主にこの三つです。
例えば「A1をクリックしたら」としたい場合、
・A1セルをダブルクリックしたら
・A1セルを右クリックしたら
・他のセルからA1セルにフォーカスを移したら
と言うことです。
で、これをごく簡単に書いてみると
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Select Case Target
Case "小"
Target = "中"
Case "中"
Target = "大"
Case "大"
Target = "小"
Case Else
Exit Sub
End Select
Else
Exit Sub
End If
End Sub
以上、ダブルクリックの場合。
右クリックに反応させるなら、1行目を
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
移動時なら1行目を
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
に書き換え、シートモジュールに用意してやればOKです。
試してみるとご理解いただけると思いますが、
「連続操作が出来ない」点でどちらにしても不便だと思います。
(好みですので「思います」と表現しています。)
ここから先は私の好みの話ですが、
私なら「ボタンあるいは四角形をクリックしたらセルを書き換える」として
例えば四角形をセル内の邪魔にならないところに配置し、
Sub 正方形長方形1_Click()
Select Case Range("A1")
Case "小"
Range("A1") = "中"
Case "中"
Range("A1") = "大"
Case "大"
Range("A1") = "小"
Case Else
Exit Sub
End Select
End Sub
これを仕込みます。
以上、参考までに。
※VBA(及びVBE)の使い方は別途お調べください。
回答ありがとうございます.
細かくわかりやすく説明していただきありがとうございます.
かなり参考になりました.今後も参考にさせてもらいます.
No.1
- 回答日時:
こんにちは!
一例です。
(1)ひとつのセルにクリックするたびに・・・
とすると、間違ったセルを選択しても反応してしまいますので、
ダブルクリックとしてみました。
(2)対象セル範囲が判らないので、とりあえずA1~A10セルだけが反応するようにしています。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてA1~A10セルをダブルクリックしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Count <> 1 Then Exit Sub
Cancel = True
Application.EnableEvents = False
With Target
Select Case .Value
Case "小"
.Value = "中"
Case "中"
.Value = "大"
Case Else
.Value = "小"
End Select
End With
Application.EnableEvents = True
End Sub 'この行まで
※ セル範囲は実際の配置に合わせて適宜変更してください。
(コード内の「Range("A1:A10")」部分です)
※ 空白にする選択肢があっても良いと思いますが、
とりあえずはご質問通りにやってみました。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) Excelで、Excelの小テストで、中央揃えとかありますが、右クリックで、セルの書式設定から中央ぞ 3 2022/12/29 12:43
- Excel(エクセル) ユーザー関数の自動計算(excel2003) 1 2023/02/06 06:46
- Excel(エクセル) MSさん、シッカリしてよ~んッ! 3 2023/01/30 13:15
- Visual Basic(VBA) EXCEL VBA データベースの内容をユーザーフォームに表示したい。 5 2023/02/14 11:40
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) 【Excel】hyperlink関数を解除してもハイパーリンクが活きるようにできますか? 3 2023/05/22 11:22
- 会計ソフト・業務用ソフト Excelマクロに詳しい方教えてください 1 2023/06/29 16:18
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelはなんで先頭の0を消すん...
-
Excel元に戻す方法を教えてくだ...
-
【Microsoft Office Excel Comp...
-
Excelが固まってしまった。
-
西暦や和暦の表示をyyyymmdd表...
-
Excel 2019 のピボットテーブル...
-
【関数】スペースがいくつ入っ...
-
【Excel】セル内の時間帯が特定...
-
excelの不要な行の削除ができな...
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excelのセルを飛ばして入力する
-
Excel初心者です。 詳しい方、...
-
エクセルの行の抽出について質...
-
Excel初心者です。 詳しい方、...
-
【マクロ】エクセルにかいてあ...
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシート クエリ関数 1...
-
エクセルで指定した日付、店舗...
-
Excelのグラフ軸について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報