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以上 且つ 10未満である」と言う事を条件として判断します。
if lngBuf>=1 and lngBuf <=10 then
  転記処理
end if

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

1 hits

【58150】指定セルの範囲内の数字の抽出 yukigod 08/10/6(月) 16:13 質問
【58151】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:38 回答
【58153】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:42 発言
【58152】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:40 発言

23942 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free