はじめに前回の拡張です。 touch-sp.hatenablog.com テキストボックス、ラベルも使えるように拡張してみました。プロンプト ユーザーフォームを2行3列に分割し1行目にラベル、ボタン、ボタン、2行目にテキストボックス、テキストボックス、ボタンを並べたい…

はじめに以前PySide6を使って同様のことをしました。 touch-sp.hatenablog.com 今度はVBAでチャレンジしました。システムプロンプトシステムプロンプトに例を記述しておきます。 以下はVBAでユーザーフォームにボタンを6個（縦3行、横2列）追加するためのサ…

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 .…

VBAを使ってエクセルで使えるカレンダーコントロールを作ります。ボタンの配置などを含めてすべてコードに落とし込んでいるためコピーペーストのみで再現できます。そのため5分もかからず使えるようになります。