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

1デフォルトの名無しさん2015/05/21(木) 10:52:44.71ID:KLv0vQmm
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もOK

ゲーム作り、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/

508デフォルトの名無しさん2018/01/29(月) 08:59:53.06ID:flk0qVid
おはようございます

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

509デフォルトの名無しさん2018/01/29(月) 18:12:06.82ID:acQcDZwj
エクセルのバージョンは?
当方2013で開けましたよ。

510デフォルトの名無しさん2018/01/29(月) 21:31:37.99ID:flk0qVid
>>509
2010です

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

511デフォルトの名無しさん2018/02/03(土) 14:43:09.33ID:xQQ90zOV
プログラマですがvbaの初心者です。
C,java,lisp,python 基本的な言語とその意味論はだいたい知ってます。
vbaで書籍を探すと、大抵業務問題の解決という文脈で本が書かれているようですが
純粋に言語的な機能を抽出した言語仕様、あるいはリファレンスに相当するものを求めています。

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

512デフォルトの名無しさん2018/02/04(日) 02:06:08.04ID:Nq0C9+DR
>>511
本職のPGならマイクロソフトのディベロッパーセンターの英語版リファレンスを直に読んだ方が良い
あと、場合によってはVBAとほぼ同じシンタックスになってるVB.NET用のMicrosoft.Office.Interopクラス以下の各アプリケーションのオブジェクトのリファレンスの方が役に立つこともある

513デフォルトの名無しさん2018/02/04(日) 09:03:45.01ID:PHOmwLAR
テスト

514デフォルトの名無しさん2018/02/04(日) 09:08:27.88ID:PHOmwLAR
VLOOKUP関数の応用で、2列のリストがあり、検索セルではどちらかを入力するともう片方が入力されるものをVBAで作りたいのですが、、、

515デフォルトの名無しさん2018/02/04(日) 09:30:57.37ID:VbMnR6W2
>>514
左をキーにしてvlookup 、次に左をキーにしてvlookup すれば良いんじゃないか?
右と左に同じ内容が存在するとダメだけど。

516デフォルトの名無しさん2018/02/09(金) 20:30:22.36ID:fQxgZtkH
テスト

517デフォルトの名無しさん2018/02/12(月) 15:08:18.20ID:IVihLGwq
グラフを作成するときに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)みたいに扱いたいのですがどうしたらいいでしょうか

518デフォルトの名無しさん2018/02/15(木) 06:58:28.28ID:oNAH0wTr
特定のフォルダ内のすべてのブックにC列に複数存在する特定の文字列『a』のすべてに対して右隣のセルに文字列『aa』を入力して、さらに同じシート内でC列に複数存在する特定の文字列『b』のすべてに対して右隣のセルに文字列『bb』を入力するようにしたいのですがどのような感じになりますでしょうか?

519デフォルトの名無しさん2018/02/16(金) 06:08:56.24ID:W1XJdyx1
☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が3分の2を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

520デフォルトの名無しさん2018/02/17(土) 15:07:23.94ID:1VKCp1qU
518ですが、自己解決しました。

521デフォルトの名無しさん2018/02/19(月) 16:09:20.27ID:CaXwZ0Gg
vbacでmdbファイルをcombineしていると、「このアクションを実行するとプロジェクトがリセットされます。実行しますか?」というダイアローグが出てくるのですが、回避策をご存じの方いますか?

522デフォルトの名無しさん2018/03/07(水) 08:26:06.09ID:tPOSTBDK
VBA初心者です。
省略可能なキーワードOptionalに関して質問がございます。
・質問内容
以下のコードにおいて、なぜ"ABC"が2回繰り返されるのでしょうか?
Optionalで指定した1が初期値としてtmpに格納され、For〜Nextステートメントの処理が0〜1となり、回答は”ABC”のみだと考えました。

・コード
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

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

523デフォルトの名無しさん2018/03/07(水) 09:34:45.98ID:1c1zt9Ui
>>522
0も1回と数えるから、i が0の時に1回、1の時に1回、合計で2回です

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

524デフォルトの名無しさん2018/03/08(木) 09:50:20.87ID:kgkGNmtQ
>>523
解説頂きましてありがとうございます。
0も1と数えるのはややこしいですね。。
しっかり復習します。

525デフォルトの名無しさん2018/03/08(木) 17:16:49.20ID:1OkrDYdr
配列は0スタートとか知っておいたほうが良い(VBAの場合はOption Baseで切り替えられるけど)

526デフォルトの名無しさん2018/03/08(木) 18:23:37.87ID:bSaoLb8p
>>524
理屈で覚えればややこしくはないぞ。
配列の添字は距離のようなもので、「当該配列の1個目の要素のポインタを起点としたときに、そのポインタにどれだけ(何回)加算した場所に、その要素の格納されているメモリが存在するか」を示す数字。
1個目の要素から1個目の要素に移動するための加算回数=距離は0だから、1個目の要素にアクセスするときの添字は0になる。

527デフォルトの名無しさん2018/03/08(木) 20:23:06.52ID:wcvra3LB
>>514
if文でセルの指定範囲の時実行で1列目の時と2列目の時で分けたらどうですか?

528デフォルトの名無しさん2018/03/08(木) 21:31:26.55ID:Tr04o/zO
>>525
0スタートどころか-100スタートとかも可能

529デフォルトの名無しさん2018/03/08(木) 21:40:28.86ID:Og1NJDFT
こればかりはプログラマーを混乱させるために導入されたとしか思えない謎仕様

530デフォルトの名無しさん2018/03/09(金) 07:32:15.03ID:KC7p8RhA
こんなので混乱してるのはお前だけじゃね? w

531デフォルトの名無しさん2018/03/09(金) 19:02:04.18ID:M2r/B6Zk
>>530
お前はバカなんだからしゃべるな

532デフォルトの名無しさん2018/03/09(金) 19:32:06.94ID:CekgNpjO
>>531
配列添字の範囲指定なんてPascalの時代からあるのにバカって悲しいな w

533デフォルトの名無しさん2018/03/09(金) 19:47:08.42ID:M2r/B6Zk
>>532
あれ?発言を許可した覚えはないけど?

534デフォルトの名無しさん2018/03/10(土) 04:04:01.67ID:hJ8m/Sii
>>529
C#だとint[] intArray = new int[2]で要素は[0] と[1]になるんだが、
vbaだとdim Array(2) as Longが0,1,2の三つになるからたまにコンパイルエラーで悩む。Collectionは一から始まるが
Dictionaryは0からというのもたまに嵌る。

535デフォルトの名無しさん2018/03/10(土) 12:36:10.36ID:f+B2oLbA
>>534
> vbaだとdim Array(2) as Longが0,1,2の三つになるからたまにコンパイルエラーで悩む。
0,1,2になるか1,2になるかはOption Baseによる
コンパイルエラーは意味わからんが

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

536デフォルトの名無しさん2018/03/11(日) 13:41:16.21ID:1qbV0tMy
>>535
オマエも黙っとけハゲ

537デフォルトの名無しさん2018/03/11(日) 14:02:07.49ID:z1FVyjSJ
>>536
お前もなー

538デフォルトの名無しさん2018/03/11(日) 14:18:05.90ID:AoygmFYl
ExcelのCellsの添え字が1オリジンだからデフォルトで使うしかない

539デフォルトの名無しさん2018/03/11(日) 16:09:32.52ID:auu5o0Ru
>>535
cell番地が1から始まるからbaseも1じゃなきゃ書けないバカはレス禁止

540デフォルトの名無しさん2018/03/11(日) 16:12:01.55ID:ULAXnW5C
Cellsはコレクションオブジェクトを返すプロパティ関数だから、インデクサが1オリジンなのは文法上当たり前

541デフォルトの名無しさん2018/03/11(日) 16:16:16.76ID:auu5o0Ru
>>540
配列の話してんだよバカチョン黙ってろや

542デフォルトの名無しさん2018/03/11(日) 16:36:25.15ID:z1FVyjSJ
>>539
誰にレスしてんだよ、ボケ w

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

543デフォルトの名無しさん2018/03/11(日) 17:04:17.63ID:sEfAJdP7
Excelが開発された当初はまだ0の発見前だったからだろ。
今作るなら0から始まるようになる。

544デフォルトの名無しさん2018/03/11(日) 19:02:59.32ID:lvju0XX+
あーこれはスベったな

545素人2018/03/11(日) 22:39:56.16ID:/xAIuEgQ
こんばんは! おしえてください!
VBAでフリーフォームを書いたり、既にあるフリーフォームの頂点編集をしようとしています。
書く方は上手くいって、Shapes.BuildFreeformに、AddNodesコマンドで10点頂点を追加して、
楕円を書きました。

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

546デフォルトの名無しさん2018/03/15(木) 07:48:53.70ID:O8Mn8lcP
>>545
コード貼ればレス付くかも

547デフォルトの名無しさん2018/03/24(土) 15:42:57.45ID:5WWUtLn7
こんにちは。
VBA初心者です。
Excelで知恵袋のような社内用のQ&Aを作成中です。
質問フォームに入力すると質問が縦に書き込まれていくところまで作りました。
しかし回答を質問に対応させることができません。
回答は対象の質問の横に入力されていくように作りたいですが、どうしたらよろしいでしょうか。
教えて下さい。

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

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

548デフォルトの名無しさん2018/03/24(土) 17:19:37.49ID:S4dIExI6
シートを別にする
質問ごとにIDを振って回答にその質問IDを保持させる

549デフォルトの名無しさん2018/03/25(日) 18:51:44.63ID:S3aSBsrx
いけそうです。ありがとうごさいました。

550デフォルトの名無しさん2018/04/26(木) 06:16:16.15ID:5eP/vpMI
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は変更できません。

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

5515502018/04/27(金) 04:34:25.39ID:HRYENVs1
自己解決しました。

552デフォルトの名無しさん2018/04/27(金) 17:39:47.51ID:Ewgb7+aM
ExcelVBAの質問です
adodbStreamを使って、jisコード(ISO-2022-JP)で書かれたテキストファイルを読み込んで色々するマクロを作っています
対象のテキストは1行120バイトのレコードが何行も含まれるという体裁になっているファイルです
このファイルを入力ファイルに指定したところ、なぜか3行目のみ最初の12バイト分が読み込まれません
レコードの内容を変えて何度か試してみたのですが、決まって3行目のみ行頭の12バイトが抜け落ちてしまいます
adodbを使う際に何か必要なことがあるのでしょうか?

553デフォルトの名無しさん2018/04/27(金) 17:40:39.83ID:Ewgb7+aM
上げておきます

554デフォルトの名無しさん2018/05/07(月) 00:53:53.60ID:Zjii9/TV
Webにあるスクリプト入れても動いたり動かなかったり
厳しいね、これは。

555デフォルトの名無しさん2018/05/11(金) 11:32:55.94ID:Vbz54Hwk
ファミコンゲームを再現したいんですが、単純な構造のゲームってありますか?

556デフォルトの名無しさん2018/05/11(金) 12:17:07.84ID:Pz/tQeeR
シート1のA44:I44のセルの内容を、マクロでシート2の最後列に貼り付けていきたいです。
下記のマクロだと、シート1のA44のセルをシート2の最後列のAのセルにのみ、コピーするだけになってしまいます。
どう変更すればいいのか、よかったら教えて頂きたいです。
よろしくお願いします。

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

557デフォルトの名無しさん2018/05/11(金) 12:32:44.52ID:p+/wpzED
>>556
Resizeで貼り付ける範囲を広げてあげる
幅を9セルにしたいならResize(, 9)って付け足す

558デフォルトの名無しさん2018/05/11(金) 15:54:14.26ID:Pz/tQeeR
>>557
できました!ありがとうございました!

新着レスの表示
レスを投稿する