No.4ベストアンサー
- 回答日時:
> セルの数値や文字、関数などを一度にクリア
「・・・関数など」の「など」とは、ちょっと曖昧な点がありますが、
取り敢えず、「ロック情報だけを維持して」というように解釈しますと
Sub UnlockCellClear()
Dim Rng As Range
For Each Rng In UsedRange
If Rng.Locked = False Then
Rng.Clear
Rng.Locked = False
End If
Next
End Sub
こんな感じでいかがでしょうか。
No.3
- 回答日時:
保護のかかった状態でしたら、
Sub Macro1()
Dim i As Integer
For i = 1 To 20 '<- ロックされていないセルの数
ActiveCell.Next.Activate
ActiveCell = ""
Next
End Sub
なんていういいかげんな手口もありますね。最初にA1あたりに移動しといた方が
いいですけど。
No.2
- 回答日時:
#1ですが、コードを一部間違えてました。
スイマセン(^^;正しくは↓です。ただし、シート保護等がかかっていない状態を想定しております。先にシート保護を解除してから、下記コードを実行して下さい。
Sub Macro1()
'もしも決まったセル範囲でしたら、下記a,bに直接数値を代入した方が
'良いかも知れません。(例:A1~G50なら、a=50とb=7)
Dim a, b, c, d As Long
a = Range("A1").CurrentRegion.Rows.Count '行数(整数)
b = Range("A1").CurrentRegion.Columns.Count '列数(整数)
Application.ScreenUpdating = False
For c = 1 To a
For d = 1 To b
If Cells(c, d).Locked = False Then _
Cells(c, d).ClearContents
Next d
Next c
Application.ScreenUpdating = True
End Sub
No.1
- 回答日時:
下記のコードで可能なハズです。
ただしセル範囲が、あまり広いと時間がかかると思います。Sub Macro1()
'もしも決まったセル範囲でしたら、下記a,bに直接数値を代入した方が
'良いかも知れません。(例:A1~G50なら、a=50とb=7)
Dim a,b,c,d As Long
a = Range("A1").CurrentRegion.Rows.Count '行数(整数)
b = Range("A1").CurrentRegion.Columns.Count '列数(整数)
Application.ScreenUpdating = False
For c = 1 To a
For d = 1 To b
If Cells(c, d).Locked = False Then _
Cells(c, d).Value = ""
Next b
Next c
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/03/04 09:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセル、VBAで文字列から...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
マクロのデータ削除
-
ダブルクリックでセルに色をつ...
-
Excelの質問です。
-
EXCEL(VBA) セルをクリックし...
-
【VBA】アクティブセルだけ背景...
-
VBA ボタンをセルの右側に合わ...
-
結合セル内の値を、結合解除後...
-
IF関数で違う値もTRUEになる
-
選択範囲だけを相対値セルに変換
-
ExcelVBA コンボボックスに入力...
-
行方向の同じ値のセルを結合す...
-
【EXCEL-VBA】特定の値の入った...
-
エクセル:セルの色のコード番...
-
エクセルについての質問です。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
マクロのデータ削除
-
ダブルクリックでセルに色をつ...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
【VBA】アクティブセルだけ背景...
-
excel マクロでの特殊文字入力方法
-
セルをクリックしたら色を変え...
-
(エクセルVBA)セルを左クリッ...
-
【マクロ】1つのセルから結合...
-
ExcelVBA コンボボックスに入力...
-
Excelのマクロで選択している行...
-
VBA Rangeの足し算
-
エクセル:セルの色のコード番...
おすすめ情報