Excel2007 で｢並べ替え｣をするには、以下のようなVBAのコードになります。 これは自動記録したマクロにちょこっと手を加えただけのものです。 Sub Macro1R() Dim shtA As Worksheet Dim sortA As Sort Dim rngA As Range Set shtA = Worksheets("Sheet1") Se…

Excel2007 で、枠線に合わせて縦線と横線を引いてから、↓のマクロを実行してみました。 Sub Macro1() Dim lineV As Shape ' 縦線 Dim lineH As Shape ' 横線 Set lineV = ActiveSheet.Shapes(1) Set lineH = ActiveSheet.Shapes(2) Debug.Print "◆◇◆ Macro1 …

Excel2007 で、開始位置が同じである縦線と横線を引いてから、↓のマクロを実行してみました。 Sub Macro1() Dim lineA(1 To 2) As Shape Set lineA(1) = ActiveSheet.Shapes(1) Set lineA(2) = ActiveSheet.Shapes(2) Debug.Print "◆◇◆ Macro1 ◆◇◆" Debug.Pr…

Excel2007 で縦の直線を引いて、↓のマクロを実行してみました。 Sub Macro1() Dim lineA As Shape Set lineA = ActiveSheet.Shapes(1) Debug.Print "◆◇◆ Macro1 ◆◇◆" Debug.Print "高さ：" & lineA.Height, "幅：" & lineA.Width End Sub Sub Macro2() Dim l…

｢検索｣や｢置換｣のダイアログを出すと、何故か中途半端に日本語と英語が混ざってます。(笑) 勿論、普通に Ctrl + F や Ctrl + H で出すとこんなことにはなりません。 これは、Excel2007 で↓のコードを実行すれば再現可能です。 「検索」 Application.Dialogs(…