Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5632 / 76732

←次へ　｜　前へ→


	【76708】マクロを実行するボタンの自動生成＆会社名の横に自動で配置

さとちぃ - 15/3/3(火) 9:32 -


	引用なし

	パスワード

いつもお世話になっております。
下記の件について、やり方がわからず教えていただけますでしょうか？

（やりたいこと）
緊急連絡網でそれぞれの会社名のセルの横に、検索用のための
マクロを走らせるボタン付けたいです。

単純にボタンを用意してマクロに関連付けることは出来ますが
会社が多すぎて、この作業をVBAにて自動化したいと考えてます。

　　　　A　　　　　　B　　　　　　　　C　　　　　　　D

1　株式会社ABC　　リンクボタン　　株式会社DFG　　リンクボタン
2
3　株式会社XYZ　　リンクボタン　　株式会社MOMOZ　　リンクボタン
4

　表には規則性があり、A、Cに必ず会社名が入り、その横のセルがリンクボタン用の
　セルとなります。　

　
（プログラムのコード）
　　
　　Sub 拠点情報ボタン自動生成
　　
　　もし、A列に文字列が入力されているならば、B列にオフセットしたセルにリンクボタンを生成しなさい。

　　もし、C列に文字列が入力されているならば、D列にオフセットしたセルにリンクボタンを生成しなさい。

　　ActiveSheet.Buttons.Add(以上のIF文で選択したセル).Select
　　Selection.OnAction = "拠点情報検索"
　　Selection.ShapeRange.ScaleWidth 14, msoFalse, msoScaleFromTopLeft
　　Selection.ShapeRange.ScaleHeight 7, msoFalse, msoScaleFromTopLeft
　　ActiveSheet.Shapes("Button 1635").Select
　　Selection.Characters.Text = "拠点情報"
　　With Selection.Characters(Start:=1, Length:=4).Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 11
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = 1
　　End With

　こんな形で考えてますが、条件文、ボタン自動生成について教えていただけますでしょうか？
　

290 hits

▼

【76708】マクロを実行するボタンの自動生成＆会社名の横に自動で配置 さとちぃ 15/3/3(火) 9:32