読者です 読者をやめる 読者になる 読者になる

ExcelからWord内の単語を置換する

環境はWindows10 & Office 2013 Dim wdObj As Object Dim wdDoc As Object Set wdObj = CreateObject("Word.Application") wdObj.Visible = True wdObj.Activate Set wdDoc = wdObj.Documents.Open(ThisWorkbook.Path & "\test.docx") With wdDoc.Content.Fi…

Excelのコマンドボタンの右クリックを有効にする方法

以下の二つは共存可能。 Private Sub CommandButton1_Click() MsgBox ("左クリック") End Sub Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then MsgBox ("…

VBAでカレンダーコントロールを自作する

簡単にコピペで再現できるようにボタンなどのコントロールの配置やそのプロパティはすべてコードに記述。フォームやモジュールを追加して下記をコピペするだけで完成。①カレンダーフォーム「Calender」を追加する Option Explicit Private Sub UserForm_Init…

Excelユーザーフォームに動的にコマンドボタンを追加する

クラスモジュール「Button_Setting」をあらかじめ追加しておく Option Explicit Public WithEvents original_button As CommandButton Private Sub original_button_Click() 'クリックイベントをここに記載 End Sub Option Explicit Sub ユーザーフォームを…

きれいな棒グラフを描く

ピンク (255,153,255) 黄色 (255,255,102) 水色 (204,236,255) グリーン (102,255,102)

きれいな円グラフを描く

薄い青 (134,202,232) グレー (153,165,204) ピンク (246,170,200) 薄い黄 (254,210,122) 薄いオレンジ (245,162,108) ライム (163,202,112)

きれいなグラフを描く

外の塗りつぶしはテクスチャの「便箋」、影は「オフセット(斜め右下)」 内の塗りつぶしは白、影は「内側(斜め左上)」 バーのグラデーションは「右方向」 青のグラデーション (97,126,159) (59,109,168) (40,77,122)赤のグラデーション (255,0,0) (230,0,…

不要な列を削除する

Dim 列 As Integer Dim a As Integer 列 = Cells(1, Columns.Count).End(xlToLeft).Column For a = 列 + 1 To 1 Step -1 If Cells(1, a) = Empty Then Cells(1, a).EntireColumn.Delete Shift:=xlToLeft Next