「プログラミング」カテゴリーアーカイブ

列ごとに複数列追加するマクロ

何度か使いそうな用件があったので、作ってみた。

選択した列範囲に指定した行数追加していくexcel用vbaマクロ

[vb]
Sub 列を追加する()
‘選択列の後ろに指定数挿入

Dim N As Integer
Dim startC, endC, currentC As Long
Dim LoopCount As Long
Dim i As Long
Dim LoopArea As Range
Dim SelectArea As String

SelectArea = Selection.Address
Set LoopArea = Selection

‘挿入したい列数を
N = 3

‘状況取得
startC = LoopArea.Cells(1).Column
endC = LoopArea.Cells(LoopArea.Count).Column

‘挿入処理
LoopCount = endC – startC + 1
currentC = startC

‘画面描画抑止
Application.ScreenUpdating = False

For i = 0 To (LoopCount – 1)
With ActiveSheet
.Range(.Columns(currentC + 1), .Columns(currentC + N)).Insert
End With
currentC = currentC + N + 1
Next

‘画面描画の再開
Application.ScreenUpdating = True

End Sub
[/vb]

ツイッターとかFacebookとかのボタンを付ける

付けてみました。

たまにはマークしていただけるようなことも書くだろうという期待を込めて。
以下はメモ。

WordPressには便利なプラグインもたくさんあるけど、テーマのファイルに追記して表示させる方法です。

編集すべきテンプレートはindex, page, とsingleでしょう。たぶん
[html lang_name=”true”]