Excel VBA質問箱 IV

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

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


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

214 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【78185】エクセル内のデータ転送に関して

TODD - 16/5/20(金) 8:24 -


	引用なし

	パスワード

VBAを使用し始めた初心者です。
宜しくお願い致します。　Excel 2010

(ご質問内容)
列Fに入力している言葉を検索ワードとし列Aを検索、検索ワードと一致した場合、
同じ行のB列、C列に入力された情報をG、Hに移動させ、次の行に入力されている
検索ワードで同様のことをしたいと考えております。

　　　　　　　　　　　　　　　　　　　　一回目　　　　　　　　2回目
　　　A　　　　 B　　　C　　　　　F　　　　G　　　H　　　 I　　 J　 K
1　りんご1　　100円　青森　　りんご1　　100円　青森　りんご1　
2　バナナ1　　 80円　沖縄　　りんご2　　　　　　　　　りんご2
3　みかん1 　 120円　兵庫　　りんご3　　　　　　　　　りんご3
4　りんご2 　 110円　長野　　みかん1　　　　　　　　　みかん1
5　　　　　　　　　　　　　　みかん2　　　　　　　　　みかん2
6　　　　　　　　　　　　　　みかん3　　　　　　　　　みかん3
7　　　　　　　　　　　　　　バナナ1　　　　　　　　　バナナ1

sub くだもの
Dim i as Integer
Dim LastRow as Interger

LastRow = Range("A65500").end(xlup).Row
For i = 1 to LastRow

If range("A" & i).value = "りんご1" then
　 Range("G1").value = Range("B" & i)
　 Range("H1").value = Range("C" & i)

End if
Next
End sub

りんご1検索後、自動で次にりんご2で検索を行い、
データをG、Hに転送させるには、どうすればよいでしょうか？

また全てのF列の検索ワードのデータを転送後、
A、B、Cに新しい情報を上書きし、I、J、Kにデータを転送できるように
したいと考えております。

大変申し訳御座いませんが、ご教授して頂けないでしょうか？
宜しくお願い致します。

以上

・ツリー全体表示


	【78184】Re:ファイルのあるフォルダ名取得

GG - 16/5/17(火) 3:57 -


	引用なし

	パスワード

早速のお返事ありがとうございます。

試しに参照ページを見て、実験というフォルダにブックを作り
標準モジュールに以下のコードを書きました。

Sub テスト1()
　　
　　MsgBox ThisWorkbook.Path
　　
End Sub

これで目的とする値を得ることができました。

▼カリーニンさん：
>参考になると思います。
>
>ht　tp://www.k1simplify.com/vba/tipsleaf/leaf233.html
>
>今回は、
>ThisWorkbook.Path
>で行けると思います。

・ツリー全体表示


	【78183】Re:ファイルのあるフォルダ名取得

カリーニン - 16/5/16(月) 22:08 -


	引用なし

	パスワード

参考になると思います。

ht　tp://www.k1simplify.com/vba/tipsleaf/leaf233.html

今回は、
ThisWorkbook.Path
で行けると思います。

・ツリー全体表示


	【78182】ファイルのあるフォルダ名取得

GG - 16/5/16(月) 22:00 -


	引用なし

	パスワード

よろしくお願いします。WIN7　EXELL2010

ファイルの位置を動かされないように考えています。
対策の一つとして特定のフォルダ内から動かされてしまった場合。
戻すようメッセージを出したいと思います。

Workbook　openにコードを書けばよい所まではわかります。

ここでファイルを起動する時に、ファイルがどのフォルダ内にあるか
判定するようなコードはありますでしょうか？

・ツリー全体表示


	【78181】Re:VBAでのIE制御について

γ - 16/5/15(日) 19:53 -


	引用なし

	パスワード

何のコメントもなしに、追加で新しいスレッドを立ち上げ、
また削除された。こういうことは止めて欲しい。

・ツリー全体表示


	【78180】Re:VBAでのIE制御について

γ - 16/5/14(土) 22:41 -


	引用なし

	パスワード

高いスキルをお持ちのようだが、礼儀は知らないんですね。

・ツリー全体表示


	【78178】Re:VBAでのIE制御について

γ - 16/5/14(土) 12:44 -


	引用なし

	パスワード

まったく詳しくないので黙っていたらいいのですが、
コメントがつかないようなので、ひとことだけ申し上げて失礼します。

コード例と対象サイトでも書いてあれば共通認識に立って
議論ができるかもしれませんが、それもなしでは、回答者側の
負荷が大きすぎるのではないですか？

この手の話はサイトの作りにもよる話かもしれず、色々な要素があるんでしょう。
そうした原因を詰めていく作業を回答者に依頼するのはどうかなと思いました。

・ツリー全体表示


	【78177】Re:メール送信

γ - 16/5/14(土) 12:30 -


	引用なし

	パスワード

▼ａａａさん：
>γ さん：
>error は　でなくて
>実行が終わらない状態になります
了解です。
しかし原因は私にはわかりません。メーカーではないので。

別のコードも引用し、私はこれで送信できましたと書いているのですが、
そちらは実行してみたのですか？
こちらの言うことも聞いてください。

また、常に使っているメールソフトは何ですか？
それを使ったマクロコードを探してみたのですか？

・ツリー全体表示


	【78176】VBAでのIE制御について

TT - 16/5/10(火) 13:38 -


	引用なし

	パスワード

現在エクセル2007を使い、VBAでIEを制御しております。

OSが32bitのパソコンだと正常に動きますが、64bitのパソコンだと動かなくなる事例が発生しております。

IEをcreateした後、画面遷移しても遷移先のHTMLを読み込んでもらえません。
（ローカルウィンドウでみるとcreate直後のページのHTMLを読み込んでいます。）

遷移先のHTMLを読み込ませることはできないのでしょうか。
詳しい方ご回答をお願い致します。

・ツリー全体表示


	【78175】Re:メール送信

ａａａ - 16/5/9(月) 11:10 -


	引用なし

	パスワード

γ さん：
error は　でなくて
実行が終わらない状態になります

・ツリー全体表示


	【78174】Re:グラフ作成　指定範囲をCellsで

Ken - 16/5/8(日) 0:12 -


	引用なし

	パスワード

▼β さん：
β さん、ありがとうございます。
Cellsで固定数字を入れて正常に走るかどうかを、まず確認した次第でした。
早くに解決できました。ありがとうございました。

・ツリー全体表示


	【78173】Re:グラフ作成　指定範囲をCellsで

β - 16/5/7(土) 17:39 -


	引用なし

	パスワード

▼Ken さん：
>β さん、ありがとうございます。まちがえていました。
>ActiveChart.SeriesCollection(1).XValues = "='sheet1'!" & Range(Cells(7, 8), Cells(30000, 8)).Address
>でうまくはしりました！
>ありがとうございます！！

？？

このコードでも、領域は固定ですよね？
その都度変化するのでは？
変化のたびにコードを変更するのですか？

であれば、最初に、そちらがアップしたコードでも問題ないのでは？

・ツリー全体表示


	【78172】Re:グラフ作成　指定範囲をCellsで

マナ - 16/5/7(土) 17:35 -


	引用なし

	パスワード

addressはExternal:=trueを使うと便利ですよ。

あと、こんな書き方も

Sub test()
　　Dim r As Range
　　
　　Set r = Sheets("Sheet1").Range("j7:j3000")
　　ActiveChart.SeriesCollection(2).XValues = r
　　
End Sub

・ツリー全体表示


	【78171】Re:グラフ作成　指定範囲をCellsで

Ken - 16/5/7(土) 16:47 -


	引用なし

	パスワード

β さん、ありがとうございます。まちがえていました。
ActiveChart.SeriesCollection(1).XValues = "='sheet1'!" & Range(Cells(7, 8), Cells(30000, 8)).Address
でうまくはしりました！
ありがとうございます！！

・ツリー全体表示


	【78170】Re:グラフ作成　指定範囲をCellsで

Ken - 16/5/7(土) 16:36 -


	引用なし

	パスワード

β さん、ありがとうございます。
ActiveChart.SeriesCollection(1).XValues = "='sheet1'!" & Range(Cells(7, 30000), Cells(7, 30000)).Address
でいいでしょうか？
でもエラーでとまってしまいます。

・ツリー全体表示


	【78169】Re:グラフ作成　指定範囲をCellsで

β - 16/5/7(土) 16:20 -


	引用なし

	パスワード

▼Ken さん：

範囲が変化するため　ということですので、そのへんかする領域がどこかは
把握しなければいけませんし把握できるということですね。

であれば、Range を使おうが Cells を使おうが、それは好きなほうでいいのですが

ActiveChart.SeriesCollection(2).XValues = "='sheet1'!" & その領域オブジェクト.Address

でいけますけど。

・ツリー全体表示


	【78168】グラフ作成　指定範囲をCellsで

Ken - 16/5/7(土) 15:34 -


	引用なし

	パスワード

VBA初心者です｡
グラフ作成をしたく､マクロの記録で
ActiveChart.SeriesCollection(2).XValues = "='sheet1'!$J$7:$J$30000"
となったところを､範囲が変化するため､
$J$7:$J$30000ではなく、Cellsで指定したいです。
どのように書けばのでしょうか｡
よろしくお願いします。

・ツリー全体表示


	【78167】Re:ｍａｃでＳＱＬを使った検索処理を行...

ひつじ - 16/5/5(木) 23:57 -


	引用なし

	パスワード

▼γ さん：

ご指摘いただいていた件について、
ActiveXコントロールがサポートされていない時点で、ADO接続ができないので、そもそも記載したSQLを利用した方法では無理だったのですね。
SQLを利用しない処理を組むことで解決をすることにしました。
ありがとうございました。

これで、この件についてクローズとさせていただけたらと思います。
不快な気分にさせてしまい、大変申し訳ございませんでした。

・ツリー全体表示


	【78166】Re:ｍａｃでＳＱＬを使った検索処理を行...

ひつじ - 16/5/5(木) 19:45 -


	引用なし

	パスワード

▼γ さん：
>> その先の英語がわからなく、どうインストールしたらいいのか分からない状態です。
>英語を翻訳して自分に説明してくれないか、ということですか？
>それを見ていませんが、普通は誰にもわかるように書いてあるんじゃないですか？
>具体的に、インストールしたけれどこういうエラーが発生してしまう、
>といった質問なら分からんでもない。
>しかし、インストールの説明すら分からないなら、
>そういうことをする資格が備わっていない（失礼）ということなので、
>macではなく、windowsを使うことをお勧めします。
>今後も、同じようなことが色々と出てくるはずですから。

失礼いたしました。
ご指摘いただきまして、ありがとうございます。

仰るとおりですね。
焦っていたとはいえ、申し訳ございませんでした。

インストールをして進めてから
改めてご質問させていただきたいと思います。

ちなみに、失礼を承知でお伺いしたいのですが、
今回、実行したいと思っているExcel for Mac上で、SQLを利用した処理の情報が載っているサイトや、勉強するのに良いサイトなどありましたら、検索ワードなどを教えていただけたら幸いです。

何卒よろしくお願いいたします。

・ツリー全体表示


	【78165】Re:ｍａｃでＳＱＬを使った検索処理を行...

γ - 16/5/5(木) 19:26 -


	引用なし

	パスワード

> その先の英語がわからなく、どうインストールしたらいいのか分からない状態です。
英語を翻訳して自分に説明してくれないか、ということですか？
それを見ていませんが、普通は誰にもわかるように書いてあるんじゃないですか？
具体的に、インストールしたけれどこういうエラーが発生してしまう、
といった質問なら分からんでもない。
しかし、インストールの説明すら分からないなら、
そういうことをする資格が備わっていない（失礼）ということなので、
macではなく、windowsを使うことをお勧めします。
今後も、同じようなことが色々と出てくるはずですから。

・ツリー全体表示


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

214 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free