Excel_VBAマクロ忘備録

なにかでExcel VBAのマクロが必要になり、作ったときの忘備録です。

セル10行飛ばし

Sub セル10行飛ばし()

i = 5

j = 13

For insert10 = 1 To 500

Rows(i & ":" & j).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

i = i + 10
j = j + 10

Next insert10

End Sub

エラー修復

Option Explicit

Const mass As String = "AAA"
Const check As String = "チェック"
Const masscell As String = "H"
Const checkcell As String = "H"
Sub error修復()

Sheets(mass).Select
Columns(masscell).Select
Selection.Replace What:="　", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(check).Select
Columns(checkcell).Select
Selection.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(mass).Select
Columns(masscell).Select
Selection.Replace What:="　", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(check).Select
Columns(checkcell).Select
Selection.Replace What:="　", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(mass).Select
Columns(masscell).Select
Selection.Replace What:="（", Replacement:="(", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(mass).Select
Columns(masscell).Select
Selection.Replace What:="）", Replacement:=")", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets(mass).Select
Columns(masscell).Select
Selection.Replace What:=",", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

テキストコピー作りかけ

Sub Sample2()

' Sheets("aa").Select
' Open "" For Input As #1
' Do Until EOF(1)
' Line Input #1, buf
' n = n + 1
' Cells(n, 1) = buf
' Loop
' Close #1
'
End Sub

初心者のうちは忘れる

これ、初心者のうちは理解しきれていないので忘れてしまいますね…

 

せっかく作ったので、忘備録にしてみました。

 

もし、使えるものがあれば…使ってみて下さい!!

当ブログで2019年にオススメするポイントサイトは
モッピーです。モッピーはクリックポイントも公告利用も、
そして何より運営会社の景気が良いポイントサイトです♪
モッピー(moppy)攻略・評価・稼ぎ方まとめ