[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 指定した範囲のセルの値をクリアする

スポンサード リンク

【答え】
シートの名前、列番号の指定した行から最後の行までの範囲のセルの値をクリアするサンプルコードです。
下のサンプルはclearCellという Functionです。

以下のパラメータを指定します。

sheetname・・・シート名
from_row・・・開始する行番号。
column_no・・・クリアする列

例えば from_rowに3、column_noに4を指定すると、4列目の(3から最後の行までのセルの値をクリアします。

サンプル========================================
Rem 指定したシートのrowname行からcolumn_no行の最後までのセルをクリアする
Rem from_rowから最大行までクリアする
Function clearCell(sheetname As String, from_row As Integer, column_no As Integer)

i = from_row
maxrow = Worksheets(sheetname).Cells(Rows.Count, column_no).End(xlUp).Row
Do While i <> maxrow + 1
Worksheets(sheetname).Cells(i, column_no) = ""
i = i + 1
Loop
End Function

================================================


スポンサード リンク

[VBScript FAQ トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014