Excel

VBAで折れ線グラフの線やマーカーを変更する

Sub chart() ActiveSheet.ChartObjects("graph").Activate ActiveChart.FullSeriesCollection(3).Select 'マーカーの型とサイズを指定 With Selection .MarkerStyle = 8 .MarkerSize = 5 End With 'マーカーの色を指定 With Selection .MarkerBackgroundColo…

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 ("…

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

簡単にコピペで再現できるようにボタンなどのコントロールの配置やそのプロパティはすべてコードに記述。フォームやモジュールを追加して下記をコピペするだけで完成。①カレンダーフォーム「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 ユーザーフォームを…

きれいなグラフを描く

外の塗りつぶしはテクスチャの「便箋」、影は「オフセット(斜め右下)」 内の塗りつぶしは白、影は「内側(斜め左上)」 バーのグラデーションは「右方向」 青のグラデーション (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