A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
No.3です。
たびたびごめんなさい。
前回のコードではエラーが発生しますので、前回のコードはすべて削除して
↓のコードに変更してください。
尚、100回以上の場合はサイコロが振られた回数を表示するようにしてみました。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Intersect(Target, Range("A2:A7")) Is Nothing Then Exit Sub
Cancel = True
With Target
.Offset(, 1) = .Offset(, 1) + 1
End With
If WorksheetFunction.Sum(Range("B2:B7")) >= 100 Then
MsgBox WorksheetFunction.Sum(Range("B2:B7")) & "回振られました"
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A7")) Is Nothing Then Exit Sub
Cancel = True
With Target
.Offset(, 1) = .Offset(, 1) - 1
End With
End Sub 'この行まで
どうも失礼しました。m(_ _)m
No.3
- 回答日時:
こんにちは!
>ボタン式で、押した回数をカウントして表示させるような機能ありますか?
オートシェイプやコマンドボタン、ユーザーフォームを使う方法がありますが、
今回は直接セル上でダブルクリックする方法です。
↓の画像のような表を作成しておきます。
A2~A7セルがサイコロの出た目として、
そのセル上で「ダブルクリック」するとB列の回数が1回ずつプラスされ、
間違った場合のコトを考慮し、右クリックで1ずつマイナスするようにしてみました。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り
A2~A7セルをダブルクリックまたは右クリックしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Intersect(Target, Range("A2:A7")) Then
Cancel = True
With Target
.Offset(, 1) = .Offset(, 1) + 1
End With
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A7")) Then
Cancel = True
With Target
.Offset(, 1) = .Offset(, 1) - 1
End With
End If
End Sub 'この行まで
※ 最初に書いたように、オートシェイプ・コマンドボタン等を6個挿入し
一つ一つにコードを割り当てれば同様の操作も可能です。m(_ _)m
No.1
- 回答日時:
メニューバーで右クリックから「フォーム」をクリックします。
「スピンボタン」を押して、作図し、スピンボタンで右クリックして「コントロールの書式設定」で、
リンクするセルに、表示させるセル番号を指定します。
その際に、最大数や増分値をいくつにするか等の指定が出来ます。
これで、このスピンボタンの▲を押せば「増分」、▼を押せば「減算」された数値が表示されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 教えて!goo 質問をして回答者さんにお礼文を書こうとしても、お礼のカウントを押すボタンだけは表示されて、それ以外の 1 2022/07/26 10:19
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) エクセルでINDEXとMACTHで出てきたデータの数を数えるには? 1 2023/04/25 10:21
- Excel(エクセル) 【Excel質問】 「本日の日付」から指定条件を満たす営業日経過後の日数を表示させる関数式 3 2022/06/06 23:28
- Excel(エクセル) Excelでの複数条件のカウントについて 1 2022/09/25 07:40
- Excel(エクセル) エクセルの条件付き書式 4 2023/04/17 11:05
- Excel(エクセル) 【エクセル関数】アルファベットで以上だったらカウントする 4 2022/07/09 14:07
- 教えて!goo 今更ながらgooに対する幾つかの質問です。 5 2023/02/14 09:02
- その他(スマートフォン・携帯電話・VR) スマホ振り子(横揺れ式)について質問です! Googlefitがやっとカウントするようになったと思っ 2 2022/06/14 08:00
- Visual Basic(VBA) VBAのことで質問があります 2 2022/10/12 14:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白を無視して一番...
-
Excelでシート全体が灰色になり...
-
エクセル 単位を百万から億単...
-
DATEVALUE関数がエラーになる
-
エクセル日付の引き算
-
60進数と10進数の足し算について
-
エクセルで全ての数字の前に文...
-
エクセルのセル内の文字が逆表...
-
Excelのセルの書式設定「右から...
-
エクセルで数字の桁数を固定し...
-
Open Officeで表の中に日付を入...
-
EXCELで年令計算するDATEDIF関数
-
半角の引用符 “ ” の打ち方
-
パソコンでダウンロードしたmp4...
-
エクセルの挿入図形で文字が隠...
-
「“」と「”」について
-
半角で漢字を??
-
Yを逆さにした「スターデルタ結...
-
フォルダ名を並び替えても必ず...
-
キーボードの感度が良すぎて困...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白を無視して一番...
-
Excelでシート全体が灰色になり...
-
エクセルで全ての数字の前に文...
-
DATEVALUE関数がエラーになる
-
Open Officeで表の中に日付を入...
-
エクセル 単位を百万から億単...
-
セル内の数値を二段で表示する方法
-
HTMLのソースをエクセルに貼り...
-
エクセルのセル内の文字が逆表...
-
エクセルで数式が文字列になっ...
-
エクセル エラー?表示
-
エクセルで集金表つくり
-
60進数と10進数の足し算について
-
エクセルの条件付き書式
-
エクセル日付の引き算
-
エクセルで計算式を入力しても...
-
【エクセル】1234567を123万と...
-
エクセル VBA不良率算出について
-
エクセルでセルに入力した文字...
-
エクセルで「1」を入力すると...
おすすめ情報