Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6661 / 13646 ツリー ←次へ | 前へ→

【43936】フォームのオプションボタンについて。 kouka 06/10/30(月) 10:38 質問[未読]
【43937】Re:フォームのオプションボタンについて。 りん 06/10/30(月) 11:02 発言[未読]
【43938】Re:フォームのオプションボタンについて。 kouka 06/10/30(月) 11:34 発言[未読]
【43939】Re:フォームのオプションボタンについて。 りん 06/10/30(月) 11:37 発言[未読]
【43942】Re:フォームのオプションボタンについて。 kouka 06/10/30(月) 13:50 お礼[未読]
【43940】Re:フォームのオプションボタンについて。 maverick 06/10/30(月) 11:45 回答[未読]
【43943】Re:フォームのオプションボタンについて。 kouka 06/10/30(月) 13:55 お礼[未読]

【43936】フォームのオプションボタンについて。
質問  kouka  - 06/10/30(月) 10:38 -

引用なし
パスワード
   こんにちは、koukaです。
ちょっと教えてください。

シート上にフォームのオプションボタンを2つ配置して、
(税込みと、税抜きのオプションボタン)
印刷ボタンを押したときに、どっちが押されているかによって、
『印刷用』シートのA30セルに、税込みか、税抜きと入れたいのですけど、
マクロの記録を使っても、ボタンを押す所が記述されません・・・。
どっちが押されているかの判断の部分のコードを教えてください。
よろしくお願いします。

【43937】Re:フォームのオプションボタンについて。
発言  りん E-MAIL  - 06/10/30(月) 11:02 -

引用なし
パスワード
   kouka さん、こんにちわ。

>シート上にフォームのオプションボタンを2つ配置して、
>(税込みと、税抜きのオプションボタン)
>印刷ボタンを押したときに、どっちが押されているかによって、
>『印刷用』シートのA30セルに、税込みか、税抜きと入れたいのですけど、

マクロじゃないですが。
シート上のフォームのオプションボタンで右クリックして、
 コントロールの書式設定→コントロールのタブ→リンクするセル
で、入力用シートのどこかのセル(例えばAA1)にリンクを設定しておく。
印刷用シートのA30セルに以下の数式を入れる
=IF(入力用!AA1=1,"税込み","税抜き")
これでお望みの結果になりませんか?

【43938】Re:フォームのオプションボタンについて。
発言  kouka  - 06/10/30(月) 11:34 -

引用なし
パスワード
   こんにちわ、りんさん。

>シート上のフォームのオプションボタンで右クリックして、
> コントロールの書式設定→コントロールのタブ→リンクするセル
>で、入力用シートのどこかのセル(例えばAA1)にリンクを設定しておく。
>印刷用シートのA30セルに以下の数式を入れる
>=IF(入力用!AA1=1,"税込み","税抜き")

うぅ、ごめんなさい!
説明不足でした・・・。
『入力用』シートに入力したデータは、一旦『データ』シートに格納して、
何件か連続で入力してから、印刷ボタンで一括印刷するようにしています。
なので、『データ』シートのAK列にどっちが選択されているかを、
入れておきたいのです。
(セルに税抜きか、税込みと。)
と、いうわけでどちらが選択されているかの判断のコードが知りたいのです。
申し訳ありませんが、よろしくお願いします。

【43939】Re:フォームのオプションボタンについて。
発言  りん E-MAIL  - 06/10/30(月) 11:37 -

引用なし
パスワード
   kouka さん、こんにちわ。

>『入力用』シートに入力したデータは、一旦『データ』シートに格納して、
>何件か連続で入力してから、印刷ボタンで一括印刷するようにしています。
>なので、『データ』シートのAK列にどっちが選択されているかを、
>入れておきたいのです。
『データ』シートへ転記の際に、オプションボタンのリンク先のセルに入っている値での分岐を追加するだけでいいのでは?

【43940】Re:フォームのオプションボタンについて。
回答  maverick  - 06/10/30(月) 11:45 -

引用なし
パスワード
   Sub test()
  If ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = 1 Then
    MsgBox "税込み"
  ElseIf ActiveSheet.Shapes("Option Button 2").ControlFormat.Value = 1 Then
    MsgBox "税抜き"
  End If
End Sub

【43942】Re:フォームのオプションボタンについて。
お礼  kouka  - 06/10/30(月) 13:50 -

引用なし
パスワード
   こんにちわ、りんさん。

>『データ』シートへ転記の際に、オプションボタンのリンク先のセルに入っている値での分岐を追加するだけでいいのでは?

あぁ・・・、その通りですよね!
変に難しく考えすぎてました。
もっと柔軟な考え方をしないとダメですね。
私のノーミソ年齢はだいぶ年をとっているのかも(^^;)
『入力用』シートにリンク設定して、『データ』シートへ転記の際に、
税込みか税抜きかを判断させるようにしました。
ありがとうございました。m(_ _)m

【43943】Re:フォームのオプションボタンについて。
お礼  kouka  - 06/10/30(月) 13:55 -

引用なし
パスワード
   こんにちは、maverickさん。

図として、その名前(?)を選択してあげると出来るのですね。
すばらしいです!
ありがとうございました。

6661 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free