Excel
VBAを使ってエクセルで使えるカレンダーコントロールを作ります。ボタンの配置などを含めてすべてコードに落とし込んでいるためコピーペーストのみで再現できます。そのため5分もかからず使えるようになります。
二つのグラフを重ねることによってExcelの折れ線グラフに矢印を追加する方法です。
二つのグラフを重ねることによってグラフに3軸目を追加する方法です。
二つのグラフを重ねることによってExcelで折れ線グラフを棒グラフの後ろに描く方法です。
前方にも後方にも線形補間を適応したかった。 PythonのPandasを使って思うようにできなかったのでExcelを用いることにした。 以下は個人的メモです。 Sub 補間() Dim count_ As Integer count_ = Selection.count Selection.Item(1).Activate Dim a As Integ…
Dim last_row As Integer last_row = Cells(Rows.Count, 1).End(xlUp).Row Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Cells(last_row + 1, 1).PasteSpecial Transpose:=True Rows("1:" & last_row).Delete Shift:=xlUp
Application.PrintCommunication = False With ActiveSheet.PageSetup '縦方向 .Orientation = xlLandscape 'シートを1ページに印刷 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.PrintCommunication = True ActiveWindow.S…
touch-sp.hatenablog.com 上記記事よりさらに細かい設定を加えました。 '折れ線グラフを描く ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim graphdata As Range Set graphdata = Range("A1").CurrentRegion ActiveSheet.Shapes.Ad…
ActiveSheet.ChartObjects("graph").Activate ActiveChart.FullSeriesCollection(1).Select 'マーカーを消す(.MarkerStyle = -4142も同じ) With Selection .MarkerStyle = xlNone End With 'マーカーの型とサイズを指定 With Selection .MarkerStyle = 8 .…
Excel VBAを使ってWord内の単語を置換する方法です。
以下の二つは共存可能。 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を使ってエクセルで使えるカレンダーコントロールを作ります。ボタンの配置などを含めてすべてコードに落とし込んでいるためコピーペーストのみで再現できます。そのため5分もかからず使えるようになります。