とまと あんらいぷ…

エンジニアの活動記録とかつぶやきとか

GitHub

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

【Excel-マクロ】選択セルの操作(ループ)

何かと使いそうなので保持!
以下の関数は、Excelにて選択したセルをクルクルと回して
ゴニョゴニョしてる例です。


Sub セル内操作_シングル囲いを自動でやります()
Dim r As Range
Dim celltext As String
Dim idx As Long
idx = 0

'選択セル内の値を「'」で囲います
For Each r In Selection
If Len(Trim(r.text)) > 0 Then
idx = idx + 1
r.Value = "''" + r.Value + "'"
End If
Next
End Sub

スポンサーサイト
次のページ

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。