Excel VBA質問箱 IV

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

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


18888 / 76738 ←次へ | 前へ→

【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


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

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


参考までに。
0 hits

【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 お礼

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