Clear全て ClearContents数式文字列 ClearCommentsコメント ClearFormats書式 ClearOutlineアウトライン 最近Javaばかりやってたから、If文すらすぐに思い浮かばなくてビビった。 deleteってやってしまい上詰めでセルが消えて泣きそうになった。

Do while Activecell.value <> "" intKakko = InStr(Activecell.value, "(") If intKakko >0 Then Activecell.value = Left(activecell.value, intKakko -1) End If Activecell.offset(1,0).Activate Loop 最近文字列操作のマクロ作成の依頼が多い。 前の会…

For i = 1 To Sheet.Count If Sheet(i).Name Like "*" & "探す名前" & "*" Then Sheet(i).Activate Exit For End If Next i 左から探して見つかったら終わっちゃうから、2つあってもそれは見つからない。 状況に応じて開始位置を変えてうまいことやろう。

Range("A1").DisplayFormat.Interior.Color 帳票まとめマクロを作成する際、コピー元のセルの色まで欲しいと要望があった。 ただ、そのまま張り付けると書式がずれるから何とかしろとのこと。