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/

**デフォルトの名無しさん** · 2018/01/26(金) 10:05:41.40

これ色付き以外のセルにも文字列は入ってるんだよな？

**486** · 2018/01/26(金) 11:04:59.89

あー〜スマン
>表Aのセルの色を付けると同時にB表のセルのイロを変える
この仕様を見逃してたわ
見なかったことにしてくれ

**デフォルトの名無しさん** · 2018/01/26(金) 19:09:34.97

>>487
入ってます
欲しいデータは1色で統一されてますが
ちなみに他に文字が存在しており、それらはほかの色で存在しています

>>488
お手数お掛けしております
ほんとにありがとうございます

色で判断をなくして、(条件で変えるので)>>483に書いてある欲しいデータ4種類を転記させるものでも良いのですが、難しいでょうか

**デフォルトの名無しさん** · 2018/01/26(金) 19:28:54.13

できると思うけど、見本の写真がよく見えない。

**490** · 2018/01/26(金) 21:06:22.97

パソコンで見たら見えた。
これ、変更したところだけ反映したいの？
それとも、元表の3行目全てを反映したいの？
というか、データだけなら=で結べばいいのでは？

**デフォルトの名無しさん** · 2018/01/26(金) 21:17:19.09

>>491
そこまでして見ていただいて申し訳ないです

三段目だけを反映させたいのですが、その手書きの表の列、行ともに結構長い表なのです
手っ取り早く一瞬で作れたらと思って質問した次第です

**デフォルトの名無しさん** · 2018/01/26(金) 21:21:20.15

Excel VBAスレいけば寄ってたかってみんなで教えまくってくれんじゃね？行けば？

**デフォルトの名無しさん** · 2018/01/28(日) 00:24:57.82

>>493
いまはゴキブリが湧いてるからあっちは行かない方が良さそう

**490** · 2018/01/28(日) 01:47:10.17

>>492
結構長いというけど、どれくらい？
数十列数十行くらいで、1回だけなら右にオートフィルして、行ごとコピペするのが早いと思う。
=で繋ぐだけなら1回やっておけば、あとは自動でかわる。

マクロでやるとしても、数式で=を入れればいいのか、値を持ってくるようにした方がいいのか。
表の範囲指定はどうするか？
current.regionか、usedrangeか、直接指定するか。（元の表に罫線が引いてあるか、空欄があるかで変わってくる）

**デフォルトの名無しさん** · 2018/01/28(日) 14:19:41.49

数式だって絶対参照、相対参照をきちんと意識して書けばRange=数式でアドレスに併せて変えてくれるから1回の代入で終わる。

以外と知らずに1セルずつ代入する人もいるけど。

**デフォルトの名無しさん** · 2018/01/28(日) 14:51:25.14

>>495
3段目に毎回同じ文字がくるとは限らず、最低3種類の文字がくるので、とりあえずif分使って作成しました

横に日数1年分、縦に各項目50程です

絵にある通り、全く同じ表をコピペして使いますが(線あり）、ほんとは転記先の表は1段で済ませたい所でした
日替わりで最低3種類のうちのひとつが返ってきたらいいので

わかりづらくてすいません

**デフォルトの名無しさん** · 2018/01/28(日) 14:52:48.13

>>496
そうなんです
やり方を知らないので今は1セルずつ代入しています

**490** · 2018/01/28(日) 17:27:50.85

>>498
fast-uploader.com/file/7072682105190/

目的のものと全然違うかもしれないけど作ってみました。
データの最初のセルだけは自分で指定してください。

**490** · 2018/01/28(日) 17:29:06.20

パス 0128

**デフォルトの名無しさん** · 2018/01/28(日) 18:08:34.70

>>499
乙です
老婆心ながらアップする前に「ブックの検査－ドキュメント検査」したほうがよろしいかと。

**499** · 2018/01/28(日) 18:41:56.85

サンクスです。
渡辺明さんになるところだったか。

**デフォルトの名無しさん** · 2018/01/28(日) 21:37:23.53

>>499
見れないのですが、消されたのでしょうか

**デフォルトの名無しさん** · 2018/01/28(日) 23:12:38.58

>>498
やり方も何も、例えばA1からA列に1、2、3、・・・と入力されてるとしてRange("B1:B10").Value="=A1"を動かしてみな。
全部A1を参照したいならRange("B1:B10").Value="=$A$1"とする。
本当はValueではなくてFormulaだけどValueでもちゃんと相対参照してくれる。

**499** · 2018/01/28(日) 23:23:45.53

fast-uploader.com/file/7072704922415/

パス 0128

**デフォルトの名無しさん** · 2018/01/29(月) 00:30:08.47

>>504
>>505
みなさん、無知ですみません
ほんとに助かります
ありがとうございます

>>505
ひとまずダウンロード致しましたので明日内容を確認します
お時間割いて作っていただいて、ただただ感謝です
おやすみなさい

**デフォルトの名無しさん** · 2018/01/29(月) 00:48:46.52

下から5行くらいにtext ってあるの、valueに直した方がいいかも。
textでも問題ないかもしれないけど。

**デフォルトの名無しさん** · 2018/01/29(月) 08:59:53.06

おはようございます

昨日ダウンロードさせてもらったファイル開かないのですが、どうやったら開きますか？

**デフォルトの名無しさん** · 2018/01/29(月) 18:12:06.82

エクセルのバージョンは？
当方2013で開けましたよ。

**デフォルトの名無しさん** · 2018/01/29(月) 21:31:37.99

>>509
2010です

すいません、どうやって開きました？

**デフォルトの名無しさん** · 2018/02/03(土) 14:43:09.33

プログラマですがvbaの初心者です。
C,java,lisp,python 基本的な言語とその意味論はだいたい知ってます。
vbaで書籍を探すと、大抵業務問題の解決という文脈で本が書かれているようですが
純粋に言語的な機能を抽出した言語仕様、あるいはリファレンスに相当するものを求めています。

そのような書籍のうちもっとも簡潔に記述されているような本はないでしょうか？

**デフォルトの名無しさん** · 2018/02/04(日) 02:06:08.04

>>511
本職のPGならマイクロソフトのディベロッパーセンターの英語版リファレンスを直に読んだ方が良い
あと、場合によってはVBAとほぼ同じシンタックスになってるVB.NET用のMicrosoft.Office.Interopクラス以下の各アプリケーションのオブジェクトのリファレンスの方が役に立つこともある

**デフォルトの名無しさん** · 2018/02/04(日) 09:03:45.01

テスト

**デフォルトの名無しさん** · 2018/02/04(日) 09:08:27.88

VLOOKUP関数の応用で、2列のリストがあり、検索セルではどちらかを入力するともう片方が入力されるものをVBAで作りたいのですが、、、

**デフォルトの名無しさん** · 2018/02/04(日) 09:30:57.37

>>514
左をキーにしてvlookup 、次に左をキーにしてvlookup すれば良いんじゃないか？
右と左に同じ内容が存在するとダメだけど。

**デフォルトの名無しさん** · 2018/02/09(金) 20:30:22.36

テスト

**デフォルトの名無しさん** · 2018/02/12(月) 15:08:18.20

グラフを作成するときにXValuesってすべての系列で統一しないといけないんですか？
x1={0., 1., 2.}, y2={0., 1., 4.}
x2={0., 0.5, 1., 1.5, 2.},y2={0., 0.25, 1., 2.25, 4.}
みたいな2つの系列があったときにplot(x1,y1), plot(x2,y2)みたいに扱いたいのですがどうしたらいいでしょうか

**デフォルトの名無しさん** · 2018/02/15(木) 06:58:28.28

特定のフォルダ内のすべてのブックにC列に複数存在する特定の文字列『a』のすべてに対して右隣のセルに文字列『aa』を入力して、さらに同じシート内でC列に複数存在する特定の文字列『b』のすべてに対して右隣のセルに文字列『bb』を入力するようにしたいのですがどのような感じになりますでしょうか？

**デフォルトの名無しさん** · 2018/02/16(金) 06:08:56.24

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**デフォルトの名無しさん** · 2018/02/17(土) 15:07:23.94

518ですが、自己解決しました。

**デフォルトの名無しさん** · 2018/02/19(月) 16:09:20.27

vbacでmdbファイルをcombineしていると､｢このアクションを実行するとプロジェクトがリセットされます。実行しますか？｣というダイアローグが出てくるのですが､回避策をご存じの方いますか？

**デフォルトの名無しさん** · 2018/03/07(水) 08:26:06.09

ＶＢＡ初心者です。
省略可能なキーワードOptionalに関して質問がございます。
・質問内容
以下のコードにおいて、なぜ"ABC"が２回繰り返されるのでしょうか？
Optionalで指定した１が初期値としてtmpに格納され、For～Nextステートメントの処理が０～１となり、回答は”ＡＢＣ”のみだと考えました。

・コード
Sub Sample1()

Call Sample2

End Sub

Sub Sample2(Optional tmp As Long = 1)

Dim i As Long
For i = 0 To tmp
Debug.Print "ABC"
Next i
End Sub

基礎的な質問で恐縮ですが、ご解説いただければ幸いです。
よろしくお願いします。

**デフォルトの名無しさん** · 2018/03/07(水) 09:34:45.98

>>522
0も1回と数えるから、i が0の時に1回、1の時に1回、合計で2回です

For i = 1 To tmp
にすれば1回になるよ

**デフォルトの名無しさん** · 2018/03/08(木) 09:50:20.87

>>523
解説頂きましてありがとうございます。
０も１と数えるのはややこしいですね。。
しっかり復習します。

**デフォルトの名無しさん** · 2018/03/08(木) 17:16:49.20

配列は0スタートとか知っておいたほうが良い（VBAの場合はOption Baseで切り替えられるけど）

**デフォルトの名無しさん** · 2018/03/08(木) 18:23:37.87

>>524
理屈で覚えればややこしくはないぞ。
配列の添字は距離のようなもので、「当該配列の1個目の要素のポインタを起点としたときに、そのポインタにどれだけ（何回）加算した場所に、その要素の格納されているメモリが存在するか」を示す数字。
1個目の要素から1個目の要素に移動するための加算回数＝距離は0だから、1個目の要素にアクセスするときの添字は0になる。

**デフォルトの名無しさん** · 2018/03/08(木) 20:23:06.52

>>514
if文でセルの指定範囲の時実行で1列目の時と2列目の時で分けたらどうですか？

**デフォルトの名無しさん** · 2018/03/08(木) 21:31:26.55

>>525
0スタートどころか-100スタートとかも可能

**デフォルトの名無しさん** · 2018/03/08(木) 21:40:28.86

こればかりはプログラマーを混乱させるために導入されたとしか思えない謎仕様

**デフォルトの名無しさん** · 2018/03/09(金) 07:32:15.03

こんなので混乱してるのはお前だけじゃね？ w

**デフォルトの名無しさん** · 2018/03/09(金) 19:02:04.18

>>530
お前はバカなんだからしゃべるな

**デフォルトの名無しさん** · 2018/03/09(金) 19:32:06.94

>>531
配列添字の範囲指定なんてPascalの時代からあるのにバカって悲しいな w

**デフォルトの名無しさん** · 2018/03/09(金) 19:47:08.42

>>532
あれ？発言を許可した覚えはないけど？

**デフォルトの名無しさん** · 2018/03/10(土) 04:04:01.67

>>529
C#だとint[] intArray = new int[2]で要素は[0] と[1]になるんだが、
vbaだとdim Array(2) as Longが0,1,2の三つになるからたまにコンパイルエラーで悩む。Collectionは一から始まるが
Dictionaryは0からというのもたまに嵌る。

**デフォルトの名無しさん** · 2018/03/10(土) 12:36:10.36

>>534
> vbaだとdim Array(2) as Longが0,1,2の三つになるからたまにコンパイルエラーで悩む。
0,1,2になるか1,2になるかはOption Baseによる
コンパイルエラーは意味わからんが

>>533
お前が黙っとけよ w

**デフォルトの名無しさん** · 2018/03/11(日) 13:41:16.21

>>535
オマエも黙っとけハゲ

**デフォルトの名無しさん** · 2018/03/11(日) 14:02:07.49

>>536
お前もなー

**デフォルトの名無しさん** · 2018/03/11(日) 14:18:05.90

ExcelのCellsの添え字が1オリジンだからデフォルトで使うしかない

**デフォルトの名無しさん** · 2018/03/11(日) 16:09:32.52

>>535
cell番地が1から始まるからbaseも１じゃなきゃ書けないバカはレス禁止

**デフォルトの名無しさん** · 2018/03/11(日) 16:12:01.55

Cellsはコレクションオブジェクトを返すプロパティ関数だから、インデクサが1オリジンなのは文法上当たり前

**デフォルトの名無しさん** · 2018/03/11(日) 16:16:16.76

>>540
配列の話してんだよバカチョン黙ってろや

**デフォルトの名無しさん** · 2018/03/11(日) 16:36:25.15

>>539
誰にレスしてんだよ、ボケ w

>>540
アホすぎ、そんなもん仕様によるだろ

**デフォルトの名無しさん** · 2018/03/11(日) 17:04:17.63

Excelが開発された当初はまだ0の発見前だったからだろ。
今作るなら0から始まるようになる。

**デフォルトの名無しさん** · 2018/03/11(日) 19:02:59.32

あーこれはスベったな

素人 · 2018/03/11(日) 22:39:56.16

こんばんは！　おしえてください！
VBAでフリーフォームを書いたり、既にあるフリーフォームの頂点編集をしようとしています。
書く方は上手くいって、Shapes.BuildFreeformに、AddNodesコマンドで１０点頂点を追加して、
楕円を書きました。

続いて、頂点の編集を行うべく、書かれたshapeのnodesや、Verticesで頂点情報を取得したら、
なぜか３０点あります。ベジェ曲線で描かれた頂点の座標はもう残っていないのでしょうか？？

**デフォルトの名無しさん** · 2018/03/15(木) 07:48:53.70

>>545
コード貼ればレス付くかも

**デフォルトの名無しさん** · 2018/03/24(土) 15:42:57.45

こんにちは。
VBA初心者です。
Excelで知恵袋のような社内用のQ&Aを作成中です。
質問フォームに入力すると質問が縦に書き込まれていくところまで作りました。
しかし回答を質問に対応させることができません。
回答は対象の質問の横に入力されていくように作りたいですが、どうしたらよろしいでしょうか。
教えて下さい。

分かりづらいかもしれませんが、下記のように作りたいです。

質問1 回答1 回答2 回答3…
質問2 回答2-1 回答2-2…
質問3

**デフォルトの名無しさん** · 2018/03/24(土) 17:19:37.49

シートを別にする
質問ごとにIDを振って回答にその質問IDを保持させる

**デフォルトの名無しさん** · 2018/03/25(日) 18:51:44.63

いけそうです。ありがとうごさいました。

**デフォルトの名無しさん** · 2018/04/26(木) 06:16:16.15

htmlからidやnameに属さない、独自の名前を付けられた値を取得したいです。
<li id="result_1" result-rank="1" data-original="hoge">
<li id="result_2" result-rank="2" data-original="fuga">
・・・
<li id="result_123" result-rank="123" data-original="hage">

data-original="hoge"の「hoge」を取得したいです。
常にidのresult_1を取得したいわけではなく、またidの値も検索結果によっては変動します。
data-originalは必ずliタグの中にあります。
htmlは変更できません。

ウィザード級の方々何卒お力をお貸しくださいませ。ｍ（_ _）ｍ

**550** · 2018/04/27(金) 04:34:25.39

自己解決しました。

**デフォルトの名無しさん** · 2018/04/27(金) 17:39:47.51

ExcelVBAの質問です
adodbStreamを使って、jisコード（ISO-2022-JP）で書かれたテキストファイルを読み込んで色々するマクロを作っています
対象のテキストは1行120バイトのレコードが何行も含まれるという体裁になっているファイルです
このファイルを入力ファイルに指定したところ、なぜか3行目のみ最初の12バイト分が読み込まれません
レコードの内容を変えて何度か試してみたのですが、決まって3行目のみ行頭の12バイトが抜け落ちてしまいます
adodbを使う際に何か必要なことがあるのでしょうか？

**デフォルトの名無しさん** · 2018/04/27(金) 17:40:39.83

上げておきます

**デフォルトの名無しさん** · 2018/05/07(月) 00:53:53.60

Webにあるスクリプト入れても動いたり動かなかったり
厳しいね、これは。

**デフォルトの名無しさん** · 2018/05/11(金) 11:32:55.94

ファミコンゲームを再現したいんですが、単純な構造のゲームってありますか？

**デフォルトの名無しさん** · 2018/05/11(金) 12:17:07.84

シート1のA44:I44のセルの内容を、マクロでシート2の最後列に貼り付けていきたいです。
下記のマクロだと、シート1のA44のセルをシート2の最後列のAのセルにのみ、コピーするだけになってしまいます。
どう変更すればいいのか、よかったら教えて頂きたいです。
よろしくお願いします。

Sub テスト()
Dim LastRow As Long
With Worksheets("シート２")
LastRow = Worksheets("シート２").Range("A"&Rows.Count).End(xlUp).Row + 1
Range("A"&LastRow).Value=Worksheets("シート１").Range("A44:I44").Value
End With
End Sub

**デフォルトの名無しさん** · 2018/05/11(金) 12:32:44.52

>>556
Resizeで貼り付ける範囲を広げてあげる
幅を9セルにしたいならResize(, 9)って付け足す

**デフォルトの名無しさん** · 2018/05/11(金) 15:54:14.26

>>557
できました！ありがとうございました！

**デフォルトの名無しさん** · 2018/05/23(水) 19:25:31.94

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

HCSP8

**デフォルトの名無しさん** · 2018/05/24(木) 10:45:12.88

HCSP8

**デフォルトの名無しさん** · 2018/05/30(水) 16:34:41.89

VBAってリボンにメニューを作成出来る？

**デフォルトの名無しさん** · 2018/05/31(木) 12:50:35.76

できるよ

**デフォルトの名無しさん** · 2018/05/31(木) 22:00:54.69

出来ないだろ

**デフォルトの名無しさん** · 2018/05/31(木) 22:10:43.12

シートにボタンがいくつかあって、押したときの処理が結構複雑なんです
とりあえずclickedをシートモジュールに書いて、そこから呼び出される関数も全部シートモジュールに書いたら分量がすごいことになりました
やっぱりクリック検出だけにしぼって残りは全部標準モジュールにすべきなんですかね。そのシートでしか呼び出されないわけで分けるのも分かりにくいような気もして

**デフォルトの名無しさん** · 2018/05/31(木) 23:13:50.53

>>563
Excel2003までのツールバーにメニュー追加するコードを書くと2007以降ではリボンにメニューが追加されるけど違う話かな？

**デフォルトの名無しさん** · 2018/07/02(月) 19:23:11.48

Access2016でコンボボックスの規定値をnullから1へ変更したくて
フォーム！コンボボックス.DefaultValue = """1"""とするフォーム上は1と表示されるんだが､プロパティーシート上は全く変化なくて､フォームをとじてから開くと規定値が変わっていなくてNullのまま。
VBAからは既定値の変更が出来ないのかな？

**デフォルトの名無しさん** · 2018/07/04(水) 18:36:07.99

フォームを閉じるときに変更を保存しなけりゃ普通に考えてもとに戻るわけだが

**デフォルトの名無しさん** · 2018/07/04(水) 19:06:38.06

>>567
仰るとおりでした

**デフォルトの名無しさん** · 2018/07/04(水) 22:40:17.29

5OK

**デフォルトの名無しさん** · 2018/07/06(金) 12:23:43.73

5OK

**デフォルトの名無しさん** · 2018/07/26(木) 23:25:17.04

ここはjscriptはアカンけ？outlookをjsで弄りたいんだが

**デフォルトの名無しさん** · 2018/07/27(金) 11:07:24.57

Jscriptなら近いのはVBSじゃないか？

**デフォルトの名無しさん** · 2018/07/27(金) 11:15:30.85

HTAとか

**デフォルトの名無しさん** · 2018/08/01(水) 19:27:32.96

Wordで読みとり専用推奨で保存されてるファイルをVBAで書き込み可で開いて編集して上書き保存したいんですが、やる方法はありますか？

**デフォルトの名無しさん** · 2018/08/01(水) 22:01:52.24

読み取り専用推奨なんて属性ビットがあるのか？

**デフォルトの名無しさん** · 2018/08/01(水) 22:05:26.28

マジだったカオスと思ったが
開くと読み取り専用か聞いてくるのか

まあ、OS側でなくワード側で制御してそうだから、回避は厳しそうな気がする

**デフォルトの名無しさん** · 2018/08/01(水) 22:15:26.91

カオス言いたい年頃なのでどうか大目に見てやって下さい

**デフォルトの名無しさん** · 2018/08/01(水) 22:18:30.88

カオスは天地が分かれる前の状態　あるいは光と闇が分かれる前の状態

**デフォルトの名無しさん** · 2018/08/01(水) 22:21:17.59

カオスエンジェルで抜いた

**デフォルトの名無しさん** · 2018/08/02(木) 00:14:28.59

>>576
VBAを使わずにファイルを開いてダイアログのウィンドウをつかまえて「いいえ」ボタンにメッセージを送るという力技ぐらいしか方法はないんでしょうか？

Excelでは開くときにIgnoreReadOnlyRecommenedというのを指定すれば良さそうなんですが

**デフォルトの名無しさん** · 2018/08/02(木) 01:48:50.77

document.openメソッドにも引数readonly があるみたいだけど

**デフォルトの名無しさん** · 2018/08/02(木) 08:52:11.65

>>581
ReadOnlyにFalseを渡しても読みとり専用で開かれるのは確認済みです

**デフォルトの名無しさん** · 2018/08/02(木) 12:49:47.07

>>574
ありません。
Wordは手動でやるしかない。
Excelとは違いますから。

**デフォルトの名無しさん** · 2018/08/02(木) 18:55:35.87

>>580
VBAでもその力業で出来るけどね。
でも読み取り専用推奨で保存する目的はそのメッセージを出すことにあると思うからそれをスキップするコードを書くべきかという問題もある。

**デフォルトの名無しさん** · 2018/08/02(木) 19:38:51.82

>>582
すくなくともうちの環境では、ReadOnly:=Falseで書き込み可能で開いてるけど？
その状態からReadOnlyRecommended = Falseにして保存したら、読み取り専用推奨は外れてるが

まあうちの環境がかなり古いから最近では出来ない可能性もあるが
それホントに推奨なだけなのか？

**デフォルトの名無しさん** · 2018/08/02(木) 20:14:42.01

>>585
試した環境はWord2010ですがここに書いてある通りです。できません。

https://support.microsoft.com/en-us/help/275976/word-document-opens-as-read-only-when-you-try-to-programmatically-open

**デフォルトの名無しさん** · 2018/08/02(木) 21:07:22.34

>>586
じゃあ2010から出来なくなったんだな
うちの2007ではできてるから

ただそこの文書
Note The following example applies to Word 2003 and 2002:
とか書いてあるな
Last Updated: Apr 19, 2018
らしいけど、適用対象バージョンがよくわからんな