' ' セルを方眼化する。 ' Sub セルを方眼化() On Error Resume Next Application.ScreenUpdating = False With Cells .ColumnWidth = 2.17 .RowHeight = 13.5 End With Range("A1").Select Application.ScreenUpdating = True End Sub

選択範囲をRangeとして取得します。 Ctrlキーを押しながら選択すると複数の選択範囲が指定可能ですが、その場合はSelectionでは全ての選択範囲が取得出来ません。 Selection.Areasを利用して全ての選択範囲を結合したRangeを取得します。 ' ' 選択範囲をRang…

Excelブックが保存されているフォルダを開きます。 ' ' 開いているブックが保存されているフォルダを開く。 ' Public Sub フォルダを開く() If ActiveWorkbook.path = "" Then MsgBox "ファイルはまだ保存されていません。", vbCritical, "エラー" Else Crea…

全てのシートの左上セルを選択後に先頭シートをアクティブにします。 ドキュメント作成後にこのマクロを実行してから保存すると良いと思います。 ' ' 全てのシートを左上選択状態にする ' Public Sub 全シート左上セル選択() On Error Resume Next ' 画面更…

下記のようにKeyValuePairのリストや配列を指定するだけで、DataSource／DisplayMember／ValueMemberを設定することができるメソッドをComboBoxに追加します。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles…

using System.Drawing; /// <summary> /// 番号付きの画像を生成する。 /// </summary> /// <param name="sourceImage">元画像。</param> /// <param name="number">番号。</param> /// <param name="fontColor">番号の文字色。</param> /// <returns>番号付きの画像。</returns> public static Image CreateNumberImage(Image sourceImage, int number, Font f…

Imports System.Text ''' <summary> ''' 文字列からバイト数を指定して部分文字列を取得する。 ''' </summary> ''' <param name="value">対象文字列。</param> ''' <param name="startIndex">開始位置。（バイト数）</param> ''' <param name="length">長さ。（バイト数）</param> ''' <returns>部分文字列。</returns> ''' <remarks>文字列は <c>Shift_JIS</c> でエンコーディングして処理を行います。</remarks>

''' <summary> ''' 切り上げ。 ''' </summary> ''' <param name="value">対象の数値。</param> ''' <param name="decimalPlaces">有効小数桁数。</param> ''' <returns>切り上げした数値。</returns> Public Shared Function RoundUp(ByVal value As Decimal, ByVal decimalPlaces As UInt32) As Decimal Dim rate As Decimal = CDec(Math.Pow(10.0R, d…

Imports System.IO Imports System.Security.AccessControl ''' <summary> ''' ファイル・フォルダに対しフルアクセスを許可する。 ''' </summary> ''' <param name="path">パス。</param> Public Shared Sub AddFullAccessRule(ByVal path As String) Dim fileInfo As New FileInfo(path) Dim fileSec As F…

下記のようにすることで、コントロールを配置位置でソートできるようにします。 Dim controlList As New List(Of Control)() ... controlList.Sort(AddressOf CompareByPosition) 上記のソートを行うためのComparisonジェネリック デリゲートは下記の通りで…

using System.Windows.Forms; /// <summary> /// コントロール上にマウスカーソルが含まれるかどうかを判断する。 /// </summary> /// <param name="control">コントロール。</param> /// <returns>コントロール上にマウスカーソルが含まれるかどうか。</returns> public static bool ContainsMouseCursor(Control control) { retu…

using System.Windows.Forms; /// <summary> /// コンテナを考慮してアクティブなコントロールを取得する。 /// </summary> /// <param name="container">コンテナ。</param> /// <returns>アクティブなコントロール。</returns> public static Control GetActiveControl(IContainerControl container) { if (container.ActiveContro…

using System.Drawing; /// <summary> /// 画像をマージする。 /// </summary> /// <param name="sourceImage">元画像。</param> /// <param name="overlayImage">オーバーレイする画像。</param> /// <returns>マージした画像(Image)。</returns> public static Image MargeImage(Image sourceImage, Image overlayImage) { using (Graphics g = Graphics.F…

using System.Drawing; using System.Drawing.Imaging; /// <summary> /// 半透明の画像を生成する。 /// </summary> /// <param name="sourceImage">元画像。</param> /// <returns>半透明化した画像。</returns> public static Image CreateAlphaImage(Image sourceImage) { int imageWidth = sourceImage.Width; int imageHeight = …

下記のように配列やリストをパラメータとしてCSVファイルを出力できるようにするクラスです。 using (CsvWriter writer = new CsvWriter(filePath, Encoding.GetEncoding("Shift_JIS"))) { string[] values = new string[] { "AAA", "BBB", "CCC" }; writer.…

using System.Diagnostics; using System.Text; using System.Xml; /// <summary> /// MSBuildのパス。 /// </summary> private const string MSBuildPath = @"C:\WINDOWS\Microsoft.NET\Framework\v3.5\MSBuild.exe"; /// <summary> /// MSBuildを実行する。 /// </summary> /// <param name="projectFilePath">プロジェクトファ</param>…

Stylusなどのアドオンを使用して、Googleの検索結果をハイライト表示します。ハイライト表示するために下記のUserStylesを設定します。 適当に編集して好みのスタイルにしてください。 #center_col { width:650px !important; } /* キーワード */ em { color…