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/12/02(土) 00:51:50.91

>>451
そういう運用は良いのかという問題がある。
それぞれのアドインがバッティングしないのなら、そもそもアドイン1つに纏めるべきじゃね?
カテゴリが別だからとか色々理由が有るんだろうけど、その理由がそのままいくつも参照すべきという理由になるだろ。

アドインを1つに纏めるべきかいくつも参照すべきのどちらかじゃね?

**デフォルトの名無しさん** · 2017/12/02(土) 10:54:25.96

>>457
・プロジェクトエクスプローラが縦に長くなりすぎて使いづらい。
・巨大なクラスになるとfacadeパターンを使って分割しているのですが、
　その際に処理を委譲するクラス名にxxx_reader, xxx_outputter等つけています。
　ファイルを分けられれば単にreader, outputterで済むのですっきりさせたい。
この辺が分けたい理由です。
触るのが久しぶりだったので忘れていたのですが、a→b→cで参照が連鎖している場合、
a→cの参照がないとaからcの関数を呼び出せないだけで、プログラム自体は動くんですね。
いくつも参照でやってみようと思います。

>>453
単一目的のマクロ（そのutilityを呼び出す側）はそれほど大きくならないのですが、
画像操作、データシート処理のラッパー、デバッグ機能など
汎用的に使える機能をutility一つにまとめて行ったら大きくなってしまいました。
この辺を別ファイルにしようと思っています。

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

どうせ使う時は全部必要なんだろｗ
無駄なことすんなｗ

**デフォルトの名無しさん** · 2017/12/02(土) 13:17:30.17

使うときは割と全部必要ですが、細かく分かれていないと
機能追加やリファクタリングが面倒なんですよ。
モジュールをディレクトリ分けしてツリー構造にするような
ことができれば一番いいんですが。

**デフォルトの名無しさん** · 2017/12/03(日) 00:26:04.64

出来るかどうか知らんが
親のユーティリティで子を自動的に参照設定すればいいんじゃね
たしか参照設定もVBAからいじれたはず

**デフォルトの名無しさん** · 2017/12/07(木) 12:49:30.75

ほまは

**デフォルトの名無しさん** · 2017/12/09(土) 18:42:21.44

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("domon@sapporotakusho.co.jp")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

検索すると出てくるこのプログラムだと、
再送しようとした場合、BCCが複数追加されてしまいます

Outlookで自動的にBCCを設置するプログラムは調べたら乗っているのですが
BCCに既に設定したいアドレスがあった場合は追加処理をしないというプログラムを追加したいです

**デフォルトの名無しさん** · 2017/12/09(土) 22:22:36.98

>>463
変数objMeを宣言している行の直前に以下の処理を追加

Item.BCCプロパティに設定されている文字列を取得して、その中にdomonなんたらっていうアドレスが含まれているかどうかをInStr関数で調べる
含まれていたらExit Sub

**デフォルトの名無しさん** · 2017/12/10(日) 10:15:21.59

ありがとうございます

間違えてメールアドレスそのまま載せてしまいました
やってしまった…

もう一度頑張ってみます

**デフォルトの名無しさん** · 2017/12/16(土) 05:30:44.06

滅入るよね

**デフォルトの名無しさん** · 2017/12/18(月) 22:21:50.88

Excelに「Python」搭載検討　Microsoftがアンケート実施中
https://headlines.yahoo.co.jp/hl?a=20171218-00000045-zdn_n-sci

Python知らんけど余計なことすんなボケ

**デフォルトの名無しさん** · 2017/12/19(火) 07:02:00.39

VBAとPythonが併用できるのかな？
前例あるの？

**デフォルトの名無しさん** · 2017/12/19(火) 08:02:47.16

一営利企業の一製品に過ぎませんから

**デフォルトの名無しさん** · 2017/12/27(水) 06:37:14.56

ざんねん！

**デフォルトの名無しさん** · 2017/12/27(水) 11:51:23.41

python入る言うてもどのバージョンかとかライブラリかとかアップデートはするのかとか色々課題あるだろ

**デフォルトの名無しさん** · 2018/01/25(木) 12:20:39.14

質問なのですが、別表の項目から他の表の項目(セルの位置)にデータを飛ばしたいんですが、できますか？

**デフォルトの名無しさん** · 2018/01/25(木) 12:55:31.94

できます。

**デフォルトの名無しさん** · 2018/01/25(木) 13:07:55.93

ご教授ねがいたいのですが

**デフォルトの名無しさん** · 2018/01/25(木) 13:19:32.33

×ご教授
○ご教示
あと、見も知らぬ他人にタダで教えてもらうんならそれ相応の作法は必要じゃないのって、端で見てて思う

**デフォルトの名無しさん** · 2018/01/25(木) 13:38:48.56

>>472
もっと具体的にどんなのが作りたいか書いてもらわないと難しいです。

5列目を変更した時に同じシートの1列目を選択するようにしたい、とか。
あるいは、別のシートのA1セルを選択したいとか。

飛ばすといっても、そのタイミングが変更した時なのか、選択したときなのか、特定の数値が入ったときなのか。

**デフォルトの名無しさん** · 2018/01/25(木) 14:35:16.74

こんな感じの表Aがあって、似たような表Bが別シートにあるんですけど、
表Aのセルの色を付けると同時にB表のセルのイロを変える

または、セルの文字も一緒に持ってくる

できますか？
https://i.imgur.com/u3mc1ot.jpg

**デフォルトの名無しさん** · 2018/01/25(木) 14:36:19.20

すいません、よろしくおねがいします

**デフォルトの名無しさん** · 2018/01/25(木) 16:44:16.87

できるけど、コード教えてもらって、それを標準モジュールなり、sheet1モジュールなりに書き写せます？
それを使いやすいように改良できます？

**デフォルトの名無しさん** · 2018/01/25(木) 17:08:48.29

できるって書いたけど、色を変えるのをイベントにするのは無理だから、マクロをボタンに登録するか、何かほかのイベントに割り当てるかしないとダメだわ。

**デフォルトの名無しさん** · 2018/01/25(木) 17:26:04.37

書き写しくらいはできます！

**デフォルトの名無しさん** · 2018/01/25(木) 18:45:37.13

>>477
RaiseEventを使う

**デフォルトの名無しさん** · 2018/01/25(木) 19:01:57.40

>>482
お忙しいのにみなさんありがとうございます
ちょっと詳しく説明すると、こんな感じです
左のsheetの表は一項目につき3段、その3段目の情報で仮にA,Bが記載されてある色つきのセルの情報のみを抜き出し、右にある別sheetの表に反映させたいのです

分かりづらかったらすいません

どのように組めば行けるのか、詳しく教えて頂くとありがたいです

https://i.imgur.com/M5bti06.jpg

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

指１本で核ボタン押せる

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

>>484
スマン激しく誤爆

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

おわび
御貴兄たち、何卒添削お願いします。変数colとかrowのほうが良かったな
Const OFFSET_X = 1
Const OFFSET_Y = 1
Const BLOCKS_Y = 3
Const WIDTH = 6
Const HEIGHT = 6
Private Sub CommandButton1_Click()
　　Dim src As Worksheet
　　Dim dst As Worksheet
Dim x As Integer, y As Integer
Dim des_x As Integer, des_y As Integer
　　Set src = ThisWorkbook.Sheets("sheet2")
　　Set dst = ThisWorkbook.Sheets("sheet3")
　　dst.Cells.Clear
　　des_x = 1 + OFFSET_X
　　des_y = 1 + OFFSET_Y
　　For y = 1 + 3 To HEIGHT * BLOCKS_Y Step 3
　　　　For x = 1 To WIDTH
　　　　　　If src.Cells(y, x + OFFSET_X).Value <> "" Or _
　　　　　　　　src.Cells(y, x + OFFSET_X).Formula <> "" Or _
　　　　　　　　src.Cells(y, x + OFFSET_X).Interior.ColorIndex <> xlNone Then 'エラー判定は無し
　　　　　　　　src.Range(src.Cells(y, x + OFFSET_X), src.Cells(y, x + OFFSET_X)).Copy _
　　　　　　　　　　　Destination:=dst.Cells(des_y, des_x)
　　　　　　End If
　　　　　　des_x = des_x + 1
　　　　Next x
　　　　des_x = 1 + OFFSET_X
　　　　des_y = des_y + 1
Next y
End Sub

**デフォルトの名無しさん** · 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)って付け足す