Excel VBA質問箱 IV

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

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


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

23942 / 76738

←次へ　｜　前へ→


	【58151】Re:指定セルの範囲内の数字の抽出

neptune - 08/10/6(月) 16:38 -


	引用なし

	パスワード

▼yukigod さん：
こんにちは

>とりあえず、それぞれのファイルの指定した範囲のセルからコピーすることは出来ました。
>ですが、その中で1～10の値だけを抽出して、マクロを実行するブックに貼り付けの仕方がわかりません。

先ず、コピペは必要ありません。

シートから値を変数に入れる例
dim lngBuf as long
lngBuf = objWBK.worksheets("シート名").range("セルアドレス").value
で、取得できます。

次に、
objSH.range("セルアドレス").value=lngBuf
で、任意のBookの任意のシートの任意のセルにデータを転記できます。

次にデータの比較
データが「1以上　且つ　１０未満である」と言う事を条件として判断します。
if lngBuf>=1 and lngBuf <=10 then
　　転記処理
end if

これらの手法を工夫して組み合わせて使ってみてください。

1 hits

▼

【58150】指定セルの範囲内の数字の抽出 yukigod 08/10/6(月) 16:13