Excel VBA質問箱 IV

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

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


3250 / 13644 ツリー ←次へ | 前へ→

【63277】オプションボタンを使っての代入処理 超超超初心者 09/10/22(木) 11:46 質問[未読]
【63278】Re:オプションボタンを使っての代入処理 seg 09/10/22(木) 12:46 発言[未読]
【63280】Re:オプションボタンを使っての代入処理 超超超初心者 09/10/22(木) 15:56 回答[未読]
【63288】Re:オプションボタンを使っての代入処理 超初心者 09/10/23(金) 9:56 発言[未読]
【63293】Re:オプションボタンを使っての代入処理 超超超初心者 09/10/23(金) 14:08 お礼[未読]
【63286】Re:オプションボタンを使っての代入処理 seg 09/10/23(金) 9:02 発言[未読]
【63292】Re:オプションボタンを使っての代入処理 超超超初心者 09/10/23(金) 14:06 お礼[未読]

【63277】オプションボタンを使っての代入処理
質問  超超超初心者  - 09/10/22(木) 11:46 -

引用なし
パスワード
   始めまして。
VBAを使って作業しようとしましたが、行き詰まりました。
アドバイスお願いします。


  場所     件名
  ●●    あああ
  △△    いいい
  ××    ううう
  ●●    えええ
  □□    おおお

上記のようなデータを使って・・・

・まず『場所』それぞれのシートがある。

・上記のシートで、オプションボタンを使って『●●』の場所を選択した時に
 『●●』のシートに飛び『件名』を自動的に代入処理したい。


以上です。
説明が下手で申し訳ないですが、
よろしくお願いします!

【63278】Re:オプションボタンを使っての代入処理
発言  seg  - 09/10/22(木) 12:46 -

引用なし
パスワード
   状況が全然解りません。
>  場所     件名
>  ●●    あああ
>  △△    いいい
>  ××    ううう
>  ●●    えええ
>  □□    おおお
>
>上記のようなデータを使って・・・
↑のシートは?

>・まず『場所』それぞれのシートがある。
合計4シートあるんですね。

>・上記のシートで、オプションボタンを使って『●●』の場所を選択した時に
> 『●●』のシートに飛び『件名』を自動的に代入処理したい。
オプションボタンはいくつ?4つ?
代入処理とは?
どこかのセルに件名を入れるのか、シート名を件名にするのか。

【63280】Re:オプションボタンを使っての代入処理
回答  超超超初心者  - 09/10/22(木) 15:56 -

引用なし
パスワード
   早速の返信ありがとうございます。
説明不足ですみません!

 >オプションボタンはいくつ?4つ?

 オプションボタンは場所分ですので、4つです。

>代入処理とは?

  同じ内容を指定したセルに入れたい、という意味です。

>>  場所     件名
>>  ●●    あああ
>>  △△    いいい
>>  ××    ううう
>>  ●●    えええ
>>  □□    おおお

>↑のシートは?
>合計4シートあるんですね。
>どこかのセルに件名を入れるのか、シート名を件名にするのか。

 すみません!

 肝心な事を説明し忘れていました。

 基となるシート+場所分の4シートで計5シートになります。

 尚、上記のシートが基となるシートです。
 
例えば、基となるシートの『場所●●』の件名【あああ】と【えええ】を
オプションボタンの【●●】を選ぶと
『●●シート』の件名(例えばD列)に入るようにしたいのです。


まだ説明が足りないと思いますが、以上の補足でよろしくお願い致します。

【63286】Re:オプションボタンを使っての代入処理
発言  seg  - 09/10/23(金) 9:02 -

引用なし
パスワード
   >  場所     件名
>  ●●    あああ
>  △△    いいい
>  ××    ううう
>  ●●    えええ
>  □□    おおお

>・上記のシートで、オプションボタンを使って『●●』の場所を選択した時に
> 『●●』のシートに飛び『件名』を自動的に代入処理したい。

う〜ん、ごめん私の理解力が乏しいのか、未だ仕様が解りません;

Private Sub OptionButton1_Click()
  Sheets("●●●").Activate
  ActiveSheet.Cells(1, 1) = "●●●"
End Sub

上記で件名をセルA1に入力出来ますが、汎用性が全くありません。
オプションボタン毎にそれぞれ設定しなければならず
内容が変わると、それに応じてソースを変更するハメに・・・

他に解る方いたらヘルプ願います。。

【63288】Re:オプションボタンを使っての代入処理
発言  超初心者  - 09/10/23(金) 9:56 -

引用なし
パスワード
   ▼超超超初心者 さん:

私だったら・・・・・

やりたい作業をマクロ記録してみます。

「基となるシート」でオートフィルターにて
「●●」のとなる件名を抽出・コピーして
目的のシートに貼り付ける。

こんな作業でしょうか?

一応、動作をマクロ記録したそのまんまです。
(少しコメントを追加してみました^^;)

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/10/23 ユーザー名 :
'

'
  Range("A1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:="●●"
  Range("B2:B5").Select  'Range("B2:B" & range("B" & cells.rows.count).end(xlup).row).select
  Selection.Copy
  Sheets("●●").Select
  Range("D1").Select     '例えばD列
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheets("Sheet1").Select   '基となるシートへ
  Range("A1").Select
  Application.CutCopyMode = False
  Selection.AutoFilter Field:=1
  Selection.AutoFilter
End Sub


これをオプションボタンのイベントに登録すれば、
結構希望に近い形になるのではないでしょうか。

完璧ではないと思うので、出てきた不具合をヘルプで調べてみたり、
それでも分からない部分を質問したりすると良いかもしれません。


参考までに。

【63292】Re:オプションボタンを使っての代入処理
お礼  超超超初心者  - 09/10/23(金) 14:06 -

引用なし
パスワード
   ▼seg さん:

segさんの理解力が乏しい訳ではないです。

私に説明力がないだけです・・・。

segさんの意見も参考にしつつ、

超初心者さんからの教えていただいたマクロを使用してやってみたいと思います。

親切に教えていただいて、ありがとうございました♪

【63293】Re:オプションボタンを使っての代入処理
お礼  超超超初心者  - 09/10/23(金) 14:08 -

引用なし
パスワード
   ▼超初心者 さん:

ありがとうございますっ!!

おかげで解決しました♪

背伸びせず、最初からマクロを使用すれば良かったです。

超初心者さんの意見を参考にして、

自分でチャレンジしてみます。

本当にありがとうございました!!

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