Excel_VBAマクロ忘備録

ポイントサイト比較しました

Excel_VBAマクロ忘備録

読了までの目安時間:約 5分

 

なにかで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

初心者のうちは忘れる

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

 

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

 

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


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

 

雑記事   コメント:0

この記事に関連する記事一覧

コメントフォーム

名前

 

メールアドレス

 

URL

 

 

コメント

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

TOPへ戻る