Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72695 / 76732

←次へ　｜　前へ→


	【8519】Re:他のEXCELファイルの、ある範囲をパターン化しその結果を新規EXCELファイルに出力

INA - 03/10/22(水) 15:37 -


	引用なし

	パスワード

>１．まず、下記の、文字が存在すれば１、しなければ０のように、
>入力されているセルがどこまでの列か判別し、変換する方法がわかりません。
シートのレイアウトが分からないので、
UsedRangeで対応できるか分かりませんが・・・
（シート上のすべての値に対して実行します。）

Sub Sample()
Dim myRange As Range

　　For Each myRange In ActiveSheet.UsedRange
　　　　If myRange.Value <> "" Then
　　　　　　myRange.Value = "1"
　　　　Else
　　　　　　myRange.Value = "0"
　　　　End If
　　Next myRange
End Sub

1 hits

▼

【8512】他のEXCELファイルの、ある範囲をパターン化しその結果を新規EXCELファイル... テーブル 03/10/22(水) 12:04