|
いつもお世話になっております。
下記の件について、やり方がわからず教えていただけますでしょうか?
(やりたいこと)
緊急連絡網でそれぞれの会社名のセルの横に、検索用のための
マクロを走らせるボタン付けたいです。
単純にボタンを用意してマクロに関連付けることは出来ますが
会社が多すぎて、この作業を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 = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
こんな形で考えてますが、条件文、ボタン自動生成について教えていただけますでしょうか?
|
|