人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【正答100P】Excel2000、又はOpenOffice.org Calc(最新)で自動処理:

列A、列B、列C の、行100?150、行200?250、行300?350 のみに対する処理
「もしセルの内容がnull、又は数値111、又は文字「-」だった場合、そのセルを数値「0」に書き換える」

よろしくお願い申し上げます。

●質問者: akkeyyyy
●カテゴリ:コンピュータ 学習・教育
✍キーワード:Calc OpenOffice.org セル 自動
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●100ポイント ベストアンサー

セルの内容がnullというのはちょっとわからないところです。

セルの内容が空白でもnullにはならないので、空白ならばにしています。

Sub Macro()
 Dim r As Range
 Dim rs As Range
 
 Set rs = Range("A100:C150,A200:C250,A300:C350")
 For Each r In rs
 If r.Value = "" Or r.Value = 111 Or r.Value = "-" Then
 r.Value = 0
 End If
 Next
End Sub

2 ● きゃづみぃ
●100ポイント
Sub main()

 For a = 100 To 150
 If Cells(a, "A") = "" Or Cells(a, "A") = "111" Or Cells(a, "A") = "-" Then
 Cells(a, "A") = "0"
 End If
 If Cells(a, "B") = "" Or Cells(a, "B") = "111" Or Cells(a, "B") = "-" Then
 Cells(a, "B") = "0"
 End If
 If Cells(a, "C") = "" Or Cells(a, "C") = "111" Or Cells(a, "C") = "-" Then
 Cells(a, "C") = "0"
 End If
 Next a
 
 For a = 200 To 250
 If Cells(a, "A") = "" Or Cells(a, "A") = "111" Or Cells(a, "A") = "-" Then
 Cells(a, "A") = "0"
 End If
 If Cells(a, "B") = "" Or Cells(a, "B") = "111" Or Cells(a, "B") = "-" Then
 Cells(a, "B") = "0"
 End If
 If Cells(a, "C") = "" Or Cells(a, "C") = "111" Or Cells(a, "C") = "-" Then
 Cells(a, "C") = "0"
 End If
 Next a
 
 For a = 300 To 350
 If Cells(a, "A") = "" Or Cells(a, "A") = "111" Or Cells(a, "A") = "-" Then
 Cells(a, "A") = "0"
 End If
 If Cells(a, "B") = "" Or Cells(a, "B") = "111" Or Cells(a, "B") = "-" Then
 Cells(a, "B") = "0"
 End If
 If Cells(a, "C") = "" Or Cells(a, "C") = "111" Or Cells(a, "C") = "-" Then
 Cells(a, "C") = "0"
 End If
 Next a
 
 For a = 100 To 150
 If Cells(a, "A") = "" Or Cells(a, "A") = "111" Or Cells(a, "A") = "-" Then
 Cells(a, "A") = "0"
 End If
 If Cells(a, "B") = "" Or Cells(a, "B") = "111" Or Cells(a, "B") = "-" Then
 Cells(a, "B") = "0"
 End If
 If Cells(a, "C") = "" Or Cells(a, "C") = "111" Or Cells(a, "C") = "-" Then
 Cells(a, "C") = "0"
 End If
 Next a

End Sub

ExcelのVBAです。

わかりやすくするために そんなに難しくしていません。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ