VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2017/02/23(木) 16:07:14.86

今までは長い時で1～1.5秒程止まっていました
>>268さんの言われた通り、Selection.ClearContentsの位置を変えたらスムーズになりましたのでこれで行こうと思います
たくさんご意見頂きありがとうございました

**デフォルトの名無しさん** · 2017/02/23(木) 16:14:41.52

>>269
> If TypeName(Selection) <> "Range" Then Exit Sub
だよ

**デフォルトの名無しさん** · 2017/02/26(日) 14:44:16.79

エクセルのマクロでも質問大丈夫でしょうか？
名前と同じファイル名の画像を名前セルの隣に貼り付けるプログラムなんですが
Sub ボタン1_Click()
Const n As Long = 2
Dim i As Long
Dim x As Double
Dim s As String
Dim t As FileDialog
Dim m As VbMsgBoxResult
With ActiveSheet
For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 6
Set r = .Cells(i, 3).MergeArea
s = "D:\画像\1\" & .Cells(i, 2).Value & ".jpg"
Dir Application.Path
With .Pictures.Insert(s).ShapeRange
.LockAspectRatio = msoTrue
x = Application.Min(r.Width / .Width, (r.Height - n) / .Height)
.Width = .Width * x
.Left = r.Left + (r.Width - .Width) / 2
.Top = r.Top + (r.Height - .Height) / 2
End With
Next
End With
End Sub
この"D:\画像\1\"の部分をフォルダ選択できるようにしたいので
Dim s As String
　　Dim t As FileDialog
Set t = Application.FileDialog(msoFileDialogFolderPicker)
s = "t" & .Cells(i, 2).Value & ".jpg"
としたら「1004　PicturesクラスのInsertプロパティを取得できません。」と実行できません
どうしたら"D:\画像\1\"の部分をフォルダ選択できるようにできるのでしょうか？ご教示お願い致します。

**デフォルトの名無しさん** · 2017/02/26(日) 16:00:22.84

>>272
Dim s As String
Dim t As String
With Application.FileDialog(msoFileDialogFolderPicker)
　　If .Show = False Then Exit Sub
　　t = .SelectedItems(1) & "\"
End With
'途中省略
s = t & .Cells(i, 2).Value & ".jpg"

じゃないかな?
あと
元コードもそうだけど
フォルダ内にその画像ファイルが存在してなかった時の対策も必要だと思うよ
同じエラーになるぞ　それとも絶対あるのが確定してる?

**デフォルトの名無しさん** · 2017/02/26(日) 16:45:49.33

>>273
大変ありがとうございます！
ただ、貼り付ける画像は複数あり、貼り付けるたびにフォルダ選択画面が出てしまいますので、一気に貼り付けられないものでしょうか？
ファイルが存在してない時の対策は、セルの状態を色変えて罫線で斜線を挿入したいと考えてますが、まだそこまで進む前段階がクリアできないので困ってます
よろしくお願いします

**デフォルトの名無しさん** · 2017/02/26(日) 16:51:45.39

>>274
ん? そこは分ってるとおもたよ
フォルダ選択部分は Forループの外だよ
↓ここねw
With Application.FileDialog(msoFileDialogFolderPicker)
　If .Show = False Then Exit Sub
　t = .SelectedItems(1) & "\"
End With

**デフォルトの名無しさん** · 2017/02/26(日) 16:57:59.74

>>275
あっ！できました！ありがとうございます！助かりました！

**デフォルトの名無しさん** · 2017/03/06(月) 23:29:36.96

こんにちは。

パワーポイント2013のVBAについて分かる方教えて下さい。

やりたいことは、グラデーションの塗りつぶしがあるシェイプのGradientStopsのそれぞれの色を変化させるアニメーションの方法です。

2013ではできないけど2016ではできる等の情報もあればお願い致します。

**デフォルトの名無しさん** · 2017/03/08(水) 21:50:45.20

vbaだけでhttpサーバーって出来る？

**デフォルトの名無しさん** · 2017/03/08(水) 23:04:04.36

俺が手を下すまでもないな
答えてやれよ
>>280

**デフォルトの名無しさん** · 2017/03/09(木) 01:39:01.40

VBAだけってのが
外部コントロール使用禁止
API呼び出し禁止
なら不可能です

**デフォルトの名無しさん** · 2017/04/09(日) 15:56:17.26

VBAの変数の値を次回の処理を行う時まで記録しておくのにセルに書き込みをしたりしていますが、

セルにアクセスするのを減らすためにセルに記録しなくて処理終了時に変数値をVBA内で保存しておいてくれる一次記憶領域みたいな物はないのでしょうか？

**デフォルトの名無しさん** · 2017/04/09(日) 16:02:56.39

ちりも積もればの話ですが
足し算引き算割り算レベルの計算をセルに関数を割り当てて行うのと
同じ計算式を変数を用いてVBAで書いて実行するのとで、より処理速度が速いのはどちらでしょうか？

**デフォルトの名無しさん** · 2017/04/09(日) 16:09:57.30

>>281
セルでいいんじゃないの？
ただそのIOは配列アクセスを使うべき
ループで1セルづつ読み込むとかがナンセンス

**デフォルトの名無しさん** · 2017/04/09(日) 16:14:42.36

>>281
説明がいまいち分かりにくい。
次回ってのは何時のことを言ってる?
グローバルな変数じゃダメなの?
次にそのブックを開くまで保持したいならセルってのも分かるんだが。
で、その場合にセルの代わりに保持したいならCustomDocumetProperties使ったりするかな。

**デフォルトの名無しさん** · 2017/04/09(日) 16:27:32.06

>>283
ありがとうございます。
＞配列アクセス
勉強してみます。

>>284
Bookを閉じずに他からデーターを取り込み再度VBA実行を繰り返します。
＞グローバル変数
＞CustomDocumetProperties
勉強してみます。

グローバル変数に代入した数値は処理を中断しても生き続けるのであればそれで解決しそうです。

**デフォルトの名無しさん** · 2017/04/09(日) 16:44:07.10

>>284
プロシージャの上に定義すると処理が終了しても最終定義された内容は残ったままなんですね！
今まで処理を中断する必要がある場合は変数をすべてセルに書き出していましたが大発見です。ありがとうございました。

**デフォルトの名無しさん** · 2017/04/09(日) 19:39:59.08

Public変数もしくは通常の変数の指定数の限界はあるのでしょうか？
問題なく動くレベルは何個ぐらいでしょうか？

50個
100個
1000個
10000個でも平気だっり？
実は
100000個以上でも問題ないとか？

**デフォルトの名無しさん** · 2017/04/09(日) 19:51:50.86

>>287
使えるメモリは決まってる
変数の個数じゃなくてそれぞれのバイト数の合計

**デフォルトの名無しさん** · 2017/04/09(日) 23:55:43.90

>>287
グローバル変数(Public)は便利に見えるけどスコープを考えて必要無い所では使わない方が良い。
PublicかPrivateかプロシージャ内で宣言するかを意識して使った方が良いね。

**デフォルトの名無しさん** · 2017/04/10(月) 02:47:06.39

日曜の午後からずっとVBAを書いてるけどまだおわらね～
てかやればやるほど選択肢が爆発的に増えてきて一生かかってもおわりそうにね～！ｗ

**デフォルトの名無しさん** · 2017/04/10(月) 04:05:13.85

>>287
しかもEndやErrorで抜けたら破棄されるという罠

**デフォルトの名無しさん** · 2017/04/11(火) 00:40:18.97

素数や組み合わせ爆発のような数学の迷宮的な問題に陥って
一生かかってもコードを完成させるのは無理ですよみたいな場合もあるのでしょうか？

**デフォルトの名無しさん** · 2017/04/11(火) 10:41:22.79

>>292
数学的バックグラウンドがなければコードが書けないという類いの問題はあるね。
たとえばNP困難なやつ。
巡回セールスマンとかナップサック問題とか、ナーススケジューリング問題とか。
自力でなければ、それなりの回答が得られる解法（コード）が既に存在してるものもある。

**デフォルトの名無しさん** · 2017/04/11(火) 11:01:45.96

問題を解く方法を考案するのと、その方法をコンピューター言語に翻訳する作業は別ですわ
それぞれに異なった知識と才能が必要となりますので

**デフォルトの名無しさん** · 2017/04/11(火) 11:03:15.94

>>291
End Subの行にブレークポイント、これ

**デフォルトの名無しさん** · 2017/04/12(水) 22:41:46.94

パブリック変数で

1000個
10000個でも平気だっり？

とかどんな拷問なんだよw

**デフォルトの名無しさん** · 2017/04/20(木) 23:26:11.80

テストしてみたがパブリック変数500個は問題なく動いた。
もっと使ってる人いる？

**デフォルトの名無しさん** · 2017/04/21(金) 19:40:41.67

いらない

**デフォルトの名無しさん** · 2017/04/21(金) 21:22:06.10

変数の一部を変数にする事は出来ないのでしょうか？（代入
とかではなく）
たとえば↓はイメージですが変数名の箇所を文字列をつなぎ合わせる時と
同じように変数をわりあてられないのでしょうか？（以下は動きませんがphpではこれができます。）
dim aaa1
dim aaa
dim no
dim bbb

aaa1=例文１
aaa=aaa
no=1

aaa & no = bbb

msgbox bbb
↓
結果は「例文１」　と表示されますみたな、、　

**デフォルトの名無しさん** · 2017/04/21(金) 21:28:31.62

>>299
最終的には
aaa1＝「例文１」
aaa2＝「例文2」
aaa3＝「例文3」
・
・
とし
aaa & no のno番号だけ差し替えて制御するみないな感じで使います。
ただしnoの番号は連続した数字ではなく他の集計結果からランダムに発生するため
ループ処理等では成り立たず変数のように扱う必要があります。

**デフォルトの名無しさん** · 2017/04/21(金) 22:10:11.53

>>300
aaa1とかaaa2を変数として捉えず、文字列と数値を要素に持つ2次元配列と見れば良い
で、データ全体を制御するときは、aaa1，aaa2...の2次元配列全てを要素として持つコレクションオブジェクトを生成して操作する

**デフォルトの名無しさん** · 2017/04/21(金) 22:18:30.36

>>300
Dictionaryのkeyにすれば良いんじゃね

**デフォルトの名無しさん** · 2017/04/21(金) 22:25:23.50

CollectionよりDictionaryだな、確かに

**デフォルトの名無しさん** · 2017/04/21(金) 23:24:44.93

そういう質問、初心者によく聞かれるわ
普通は配列を使えと教えるもんだが

**デフォルトの名無しさん** · 2017/04/22(土) 06:16:50.97

>>302
>>301
ありがとうございます。Collection　Dictionary　調べてみましたが
どちらも説明をざっと読んでも使い方が理解できませんでしたが挑戦してみます。

phpのように　（aaa & no） =
と変数名自体を複数の変数で合成する事は出来ないのですね。

**299** · 2017/04/22(土) 08:27:20.54

>>300
>>301
>>302
>>304

aaa1＝「状況に応じて変化する数値１」
aaa2＝「状況に応じて変化する数値2」
aaa3＝「状況に応じて変化する数値3」
・
・
すみません説明を単純にするために「例文１」としてましたが
変数に格納されるのは状況に応じて変化する数値（他の集計の計算結果）でした。
固定された文言であればDictionary keyで処理できるというのはわかりましたが
格納されている物が変化する数値の場合かつ
変数名を数字で管理（他の集計から３という結果が出たら→aaa3が適応されるみたいな）
したい場合こういうことを実現する方法はありますでしょうか？

**デフォルトの名無しさん** · 2017/04/22(土) 08:53:12.92

>>306
変数名を数字だけで管理する方法はない。
VBAの仕様上、できない。

というか、その集計結果なるものがプログラム実行時に決定するのだとしたら、集計結果を格納する変数の名前に集計結果の数値をはじめから盛り込もうとするのは無理があるし、そもそも理由が分からない。
やりたいことを実現するにはもっと適切な他の方法があるんじゃないかな。

**デフォルトの名無しさん** · 2017/04/22(土) 11:27:30.44

>>306
Dictionaryのvalueは変更可能

**299** · 2017/04/22(土) 15:29:06.19

>>308
>>307
理解するのにかなり時間がかかりましたがDictionaryなんとなくわかりました。
これって Dim とかPublicとかの変数とは別に存在できるんですね。
全く未知の分野ですが使ってみます。ありがとうございました。

**デフォルトの名無しさん** · 2017/04/22(土) 20:43:48.30

Dim dic As New Dictionary
Dim i As Integer

dic.Add "キー1", "アイテム1"
dic.Add "キー2", "アイテム2"
dic.Add "キー3", "アイテム3"

Dictionaryで指定した"キー"と "アイテム"は処理が終了するとリセットされるようですが、
グローバル変数のように処理が終了しても次実行されるまで記憶させておくようにする事は出来ないのでしょうか？

**デフォルトの名無しさん** · 2017/04/22(土) 22:48:51.75

>>310
プロシージャを跨いで値を保持させるなら、グローバルな配列変数、（アプリケーションがExcelならば）セル、シェイプ、カスタムドキュメントプロパティ、グローバルコレクション、自作のグローバルクラスのインスタンスなどに値を記憶させるしかない

でもそれならわざわざプロシージャ内でDictionaryを使って連想配列を操作するより、ExcelのセルにKeyと値を書き込んで配列アクセスして読み書きする処理の方が遥かに楽だと思う

**デフォルトの名無しさん** · 2017/04/22(土) 23:30:15.48

>>311
ありがとうございます。
今作っているコードでセルへのアクセスが膨大になってきて処理時間がどんどん長くなる傾向がみられまして
全操作をセルにアクセスせずに完結させようと色々考えていましたがなかなかそうはいかないようですね。

**デフォルトの名無しさん** · 2017/04/23(日) 05:30:19.61

>>312
Dim dic As New Dictionary
の宣言を何処でしているかによるんじゃね？

**デフォルトの名無しさん** · 2017/04/23(日) 10:16:09.39

>>312
標準モジュールとかでDictionary型のオブジェクト変数をグローバルスコープ（Public）でNew宣言すれば、処理を抜けてもDictionaryのItemは初期化されないんじゃないのかな
ただ単なる配列の処理でデータが数千件程度なら、描画止めた状態でワークシート使った方が遥かに楽だと思うが。

**デフォルトの名無しさん** · 2017/04/23(日) 16:51:51.75

>>311
引数に渡すってのを忘れてるぞ。
一番使われてるんじゃないか?

**デフォルトの名無しさん** · 2017/04/23(日) 17:11:32.92

>>315
何の引数に渡すことを指してるのかな？

**デフォルトの名無しさん** · 2017/04/23(日) 18:02:04.26

>>316
プロシージャを跨ぐって話だろ。
別のプロシ－ジャに引数として渡せば形の上ではそれぞれのローカル変数でも値は保持されるだろ。

**デフォルトの名無しさん** · 2017/04/23(日) 18:27:09.16

>>317
>>310を読んでなんとなく、一個のルーチンのプロシージャ間の値の受け渡しの話ではなく、ルーチン内で一度AddしたDictionaryのKeyとItemを何らかの形で保存して、同じルーチンを再実行したときにKeyとItemを再利用することが出来るかどうかという話だと思ったんだが

まぁ、オブジェクトプロパティへの値の保存も実際はそのオブジェクトを定義してるクラスのメソッドに引数を渡してるのと同じだから、変わらないといえば変わらないけど

**デフォルトの名無しさん** · 2017/04/28(金) 17:33:41.10

超既出FAQですな。

『Public 宣言された変数の有効期間』
https://support.microsoft.com/ja-jp/help/408871

簡単に言うと、メソッド実行中以外はいつでもpublic変数はクリアされうるから、値が残っていることを期待したマクロを書くなってこと。

**デフォルトの名無しさん** · 2017/04/28(金) 19:14:11.69

>>319
俺は使う時にクリアされてるかチェックしてクリアされてたら再設定するようにしてるな。
値が0だったら値を取得するFunctionを呼び出すって感じ。

**デフォルトの名無しさん** · 2017/04/28(金) 22:13:43.74

Publicな静的変数は使わない。
エクセルのセルとかワードの文書変数とかの規定オブジェクトにデータを書き込んだ方が便利

**デフォルトの名無しさん** · 2017/04/29(土) 02:16:02.91

>>321
いや、それは格好悪いんじゃね?
セルを使ったりCustomDocumentPropertiesも使うけど、それに合ったものだから使うわけでPublic変数に合ったものもある。
適材適所だろ。

**デフォルトの名無しさん** · 2017/05/25(木) 20:51:55.45

ontime で実行するプロシージャって標準モジュールに書かないとあかんのか。
このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。って出た。

**デフォルトの名無しさん** · 2017/05/25(木) 21:07:30.77

>>323
スコープ
普通にCallで呼び出せる場所にないと実行できないのは、どの方法でも同じ

**デフォルトの名無しさん** · 2017/05/26(金) 00:03:34.69

>>324
ThisWorkBookのモジュールからOnTimeでThisWorkBookのモジュール内のPrivate Sub を予約したんですが・・・これじゃ駄目なんですかね？

**デフォルトの名無しさん** · 2017/05/26(金) 23:19:52.51

>>325です
OnTimeで実行予約するプロシージャを標準モジュールに移動したら動くようになりました～

**デフォルトの名無しさん** · 2017/06/05(月) 21:02:56.92

特定の文字が含まれているセル（複数ある）を検索し、

検索されたセルを含む行全体（Entirerow）を同時選択する方法

以上お願いします。

**デフォルトの名無しさん** · 2017/06/05(月) 21:06:49.56

その文字を含むセルを、行ごと削除したり、行ごとコピーしたりと、いろいろしたいので質問致しました。

**デフォルトの名無しさん** · 2017/06/05(月) 21:25:48.60

鮮やかな丸投げっぷりにﾜﾗﾀ
作成依頼OKな Excel VBAスレと間違えてない？

**デフォルトの名無しさん** · 2017/06/05(月) 21:31:47.51

>>328
とりあえず、複数行を選択するところをマクロの記録で見てみたら？
ｃｔｒｌキー押しながら選択するのとshiftキーを押しながらのとで。

**デフォルトの名無しさん** · 2017/06/05(月) 21:41:12.12

検索対象のセル範囲でForループを回す
セル値に特定文字を含むセルが見つかる度にEntireRowを取得して変数に入れるかUnionで選択対象の範囲をマージしていく
ループ終了後にSelectする
以上

**デフォルトの名無しさん** · 2017/06/05(月) 21:45:35.27

>>327
Ctrl+Fで検索しろやボケナス
ちゃんと行選択までしてくれるぜ

**デフォルトの名無しさん** · 2017/06/05(月) 22:37:03.17

ごめんなさい、質問者です。
ここじゃなかったのですね。上に上がったやり方でできそうなのでやってみます。ありがとうございます

**デフォルトの名無しさん** · 2017/06/06(火) 05:49:03.11

色々細かい条件でどんなコードが効率いいか、変わってくるでしょ。

例えばそのセルがあるのは、特定の行だけとか、検索文字列はセルに完全一致なのか含まれるのか、など。

**デフォルトの名無しさん** · 2017/06/06(火) 09:11:47.41

331だが、同じ行に該当セルが複数ある場合は無駄が生じるな
実現したい機能次第だが、工夫が必要かもな

**デフォルトの名無しさん** · 2017/06/07(水) 19:31:10.77

はじめまして。以下2点、教えていただけると幸いです。
環境は、OS:Windows7, Excel2010です。よろしくお願いします。

1.プルダウンの初期値設定
セルA1にりんご、A2にバナナ、・・・のようにA列にある項目をプルダウンで選択したいです。
このとき、「A列のj行目（パラメータ選択可能）を初期値にしたプルダウンをB1に設置する」VBAのコマンドを教えていただきたいです。

2.ファイル名の変更
aaa.txtというファイルをデスクトップに出力するマクロを作れました。
このマクロ実行後、再度実行するとaaa(2).txtのファイルを、再度実行するとaaa(3).txtのファイルを出力・・・
このようなVBAのコマンドを教えていただきたいです。

**デフォルトの名無しさん** · 2017/06/07(水) 21:49:32.12

>>336
コマンドはありません

**デフォルトの名無しさん** · 2017/06/07(水) 22:23:27.64

>>336
txtファイルをデスクトップに出力っていう日本語の破壊力がやべぇ

**デフォルトの名無しさん** · 2017/06/08(木) 05:33:24.44

>>336
1
・B1セルを選択してからマクロの記録を実行
・入力規則でリストを選択にリストの内容でA列を選択する
・マクロ記録の終了をする
・できたコードを修正してA列の任意のセルをデフォルトにするように変更する

2
・デスクトップにaaa.txtが存在するかチェックする。
・存在しない場合はaaa.txtを作成して終了。
・存在する場合はDo~Loop中にデスクトップにaaa(i).txtが存在するかチェックする
・存在する場合はiをカウントアップして次のループ
・存在しない場合はそのiを使用してaaa(i).txtを作成して終了。

**デフォルトの名無しさん** · 2017/06/25(日) 17:10:56.20

A1セルに　=NOW()-TODAY()　と入力すると
現在時刻が表示されますが。

MsgBox Range("a1")
とすると　0.0110212・・・と言ったような数値が出ます。

Dim now As Date　
now=Range("a1")
と型を指定した変数に格納してやると　
MsgBox now で　21:49:32 といった一般的な時間表記を示せますが、

変数化を省略して
MsgBox Range("a1")～に補足コードを書くなどで同じ処理を実現する方法は無いのでしょうか？

**デフォルトの名無しさん** · 2017/06/25(日) 17:20:36.10

MsgBox Range("A1").Text
とか
MsgBox Format(Range("A1"), "hh:mm:ss")
とか

**デフォルトの名無しさん** · 2017/06/25(日) 17:26:03.97

>>341
なんと！！
変数をだらだら定義すること無く綺麗さっぱり解決できました！ありがとうございました。m(_ _ )m

**デフォルトの名無しさん** · 2017/07/17(月) 17:20:20.62

プロシージャの中で1回しか使わないのに、わざわざ変数にするやつとかいるよね。（しかもハンガリアン記法で）

100行に満たない程度のコードなら、Withステートメント使ったほうがむしろ可読性は上がる。

**デフォルトの名無しさん** · 2017/07/17(月) 17:25:26.05

マシンパワーが貧弱だった大昔ならともかく、今時はリソースを気にする必要なんてないんだから、可読性を最優先で記述するべきだよ。

**デフォルトの名無しさん** · 2017/07/23(日) 22:54:52.46

>>343
ああ、俺だ。
Ubound(配列)とか、For～Nextの中で何回も実行すると、
なんか遅いような気がして、一度変数に入れちまう。

**デフォルトの名無しさん** · 2017/07/24(月) 03:07:48.10

>>345
何回も実行するなら変数に入れたほうがいいんじゃね？

**デフォルトの名無しさん** · 2017/09/01(金) 23:04:37.73

>>345
(1)
For I1 = 1 to UBound(xxx)
For I2 = 1 to UBound(xxx)
(2)
J=UBound(xxx)
For I1 = 1 to J
For I2 = 1 to J

普通に考えて本のチョット早いと思われますが、記述の労力ほどじゃない。
他の方の書いてますが、今は、処理速度が物凄く早くなっています。
気にしなくていいと思います。
ただし、私はEXCELでVBAを書くのですが、シートのセルに書き出すと物凄く遅くなる。
VBAの配列とかメモリーならばほとんど気にしなくていいです。
ですから、メモリー内で処理して最後の最後にシートに書くようにしてます。

**デフォルトの名無しさん** · 2017/09/02(土) 08:26:52.52

>>347
> ですから、メモリー内で処理して最後の最後にシートに書くようにしてます。
基本中の基本だからいちいち書かなくてよろし

**デフォルトの名無しさん** · 2017/09/05(火) 10:53:29.80

アノニマスに入会したいんですがVBA知ってるだけで入れますか?
あと入会ってどうやんの? スーツ着て履歴書持って事務所に面接に行くの？

**デフォルトの名無しさん** · 2017/09/05(火) 12:25:17.40

たまにハローワークに求人出てるから行ってみれば？

**デフォルトの名無しさん** · 2017/09/12(火) 02:10:43.27

超初心者です
同じブック内の複数のシートにある顧客データをUserFormを用いて（検索するイメージ）抽出し、別のシートへ出力するコードを書きたいのですがいまいちわかりません。
大変困っているのでヒントをくださればありがたいです。

**デフォルトの名無しさん** · 2017/09/12(火) 02:30:21.88

>>351
超初心者には無理です
パソコン教室に通ってせめて初級をクリアしてから質問してください

**デフォルトの名無しさん** · 2017/09/12(火) 04:10:40.96

>>352
返信ありがとうございます
Excel自体触ったことない超初心者ですが頑張っているところです( ??? )

**デフォルトの名無しさん** · 2017/09/12(火) 08:28:28.15

>>351
自称初心者がどこでUserFormとか覚えたの？
まずはシート上でやってみようね

**デフォルトの名無しさん** · 2017/09/12(火) 12:27:40.35

どこで覚えようとお前の知った事じゃねえだろｗ
なんだこのバカはｗｗｗ

**デフォルトの名無しさん** · 2017/09/12(火) 13:06:30.39

>Excel自体触ったことない超初心者

ユーザーフォームを作ったことはあるのか？
　無けりゃ、この時点でやろうとしていることはもう無理

VBAはほんの少しでも書いたことはあるのか？
まぁ最初は>>354の言うようにシート上で実現して、それをユーザーフォームにもっていくのが順当
というか触ったこと無いって時点で釣り確定

**デフォルトの名無しさん** · 2017/09/12(火) 16:38:53.70

VBA参入門書とネットの知識を詰め込みました。
Excel初心者は本当です。友達に教えてもらいつつやっています。気分を害された方、すみません。
>>356さん非常に分かりやすいです。
二日間くらい最初からコードを書こうとしてもがいていましたが、マクロの記録が使えそうな気がします。
そのコードをいじってボタンで起動するユーザーフォームとくっつけるイメージで挑戦してみます。

**デフォルトの名無しさん** · 2017/09/12(火) 16:41:08.80

>>354さんもありがとうございます！参考＆励みになります

**デフォルトの名無しさん** · 2017/09/12(火) 20:34:49.57

このスレで一番の基地外が満を持して遅れて登場

**デフォルトの名無しさん** · 2017/09/12(火) 20:51:47.27

俺のことかな？

**デフォルトの名無しさん** · 2017/09/13(水) 00:17:05.57

>>357
ユーザーフォームでその機能を実現する必然性が感じられない
フィルタオプション機能を用いて、検索結果の出力先を新規シートに設定するだけで事足りると思うぞ

**デフォルトの名無しさん** · 2017/09/14(木) 07:47:53.75

フィルタオプションとマクロの記録で8割方完成できるな

**デフォルトの名無しさん** · 2017/09/15(金) 10:19:31.10

ADOの事でちょっと質問です
変数を定義する時に

Dim wkR as New ADODB.Recordset

ってするんだけど、RecordsetとRecordの違いって何？

あ · 2017/09/15(金) 10:57:55.87

http://matsuri.2ch.net/test/read.cgi/morningcoffee/1472464096/

**デフォルトの名無しさん** · 2017/09/18(月) 06:42:59.71

>>361-362　ありがとうございます、簡単なプログラムですが完成して感動しました。
Ifとマクロの記録が万能すぎることを肝に銘じてこれからもがんばります( ??? )

**デフォルトの名無しさん** · 2017/09/18(月) 15:10:56.93

>>365
万能過ぎないけどね。
そればっかり使ってる人は永遠に初心者なままだし、色々な面で出来の悪いプログラムになる。
自動生成されたコードのそれぞれの意味を理解して自分なりに書けるようになると上達する。

例えば
Range("B4").Select
Selection.Value=10
のようなコードが生成されると思うけど意味を考えたら
Range("B4").Value=10
で良いとわかるよね。

**デフォルトの名無しさん** · 2017/09/18(月) 20:44:49.78

>>363
Recordset オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364264.aspx
Record オブジェクト
https://msdn.microsoft.com/ja-jp/library/cc364270.aspx

**デフォルトの名無しさん** · 2017/09/18(月) 23:50:59.42

すみませんお力添えをお願いします！
エクセルマクロ（VBA)の件でお尋ねいたしたく思います！
まずグラフの系列名はセル参照で表示させてます
シート名：あいうえお
適用グラフ：グラフ4
系列範囲：A11：Z11
必要なデータ選択は全ての系列で済ませています
あとはグラフで不要な系列を削除したいため、グラフに乗せたくない系列名は”×”になるようにしてます
この系列名”×”をVBAで自動的に削除させることは可能でしょうか？
またグラフは別シートの数値入力をもって自動作成される仕様にしているので、トリガーは設けません
デフォルトだと全部”×”のため（初めは数値データの入力がないため）
数値が入ると正しい系列名に変更されるため、VBAではまず”×”で削除して、”×”以外の系列名に変わったら復活するという構想を練っています
とりあえず、まず”×”を消すコードを見よう見まねで書いてみたのですが動作しませんでした
消すのは良いですが復活させるのも組み込むとなるとちんぷんかんぷんです
是非ともご教示お願いします！
Sub test()
Dim d As Long
Dim i As Long
Dim j As Long
For i = 2 To Sheets.Count
d = Range("A11:Z11").End(xlUp).Row
With Worksheets(i).ChartObjects("グラフ 4").Shapes.AddChart.Chart
.ChartType = xlLineMarkers
For j = .SeriesCollection.Count To 1 Step -1
If .SeriesCollection(j).Name <> "×" Then
.SeriesCollection(j).Delete
End If
Next j
End With
Next
End Sub

**デフォルトの名無しさん** · 2017/09/19(火) 20:55:54.78

>>367
説明サイトへのリンク、ありがとう。
取り敢えず、「階層構造のデータ間を移動する手段として」のRecordオブジェクトは使うこと無さそうw