Excel VBA 質問スレ Part69

2020/12/13(日) 00:22:23.67

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part68
https://mevius.5ch.net/test/read.cgi/tech/1598756127/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/01/07(木) 12:14:22.04

Timerで1秒以内の2回目は止めたら

2021/01/07(木) 13:06:20.76

for eachでフィルターがかけられた列をコレクションし、現在のセルと一つ下のセルの値を比較しようと思ったのですが、offsetだと隠れた行の数値が参照されてしまいます。
フィルタリングして可視状態の一つ下のセルを参照するには、どうすればよいのでしょうか。

2021/01/07(木) 15:55:15.71

無理だな
一つ上のを覚えといて比較しな

2021/01/07(木) 17:04:40.85

該当セルから下方向に、
VidibleがTrueなセルに当たるまで探せば

2021/01/07(木) 20:16:51.59

>>194
マウス離した時に実行するのがExcelに限らず一般的な動作だと思うが

2021/01/07(木) 23:26:20.22

確かに
↓＼→ 弱ボタン離す、でも波動拳出るな

2021/01/07(木) 23:51:53.97

はどうけんてなんですか

2021/01/07(木) 23:59:30.52

イギリスのロックバンドのことです

2021/01/08(金) 07:36:54.65

行とか列のデータのある範囲を選択するメソッドありますか？
currentregionの1行だけみたいなイメージで
今思いつくのは無理くり
Range("C5").CurrentRegion.Offset(略).Resize(略～
ないしは
Endとかで割り出してから選択する
とかなんですが
なんかもう少しスマートな書き方があれば知りたいです

2021/01/08(金) 07:38:15.90

説明捕捉
>>203
の表の列はAからD以上まである感じです

2021/01/08(金) 08:45:53.52

columnsとかrowsプロパティで範囲から希望の列や行を取り出すじゃ駄目なの？

2021/01/08(金) 09:53:03.11

>>205
いや、rowsだと行全体が選ばれてしまうので

例えば
1行目は4列
2行目は5列
とデータの入っている列数がバラバラな場合
（値は全て入っているものとして）
それぞれ4列とか5列分ぴったりに選ぶメソッドは無いものかと
C列基準とかで選べたら一番いいけど
A1選んで「ctrl+shift+→」と同じ結果でもいいです

2021/01/08(金) 10:06:49.06

すみません
>>205
のヒントで自己解決しました

Range("C5").EntireRow.SpecialCells(引数)
でいけました
失礼しました

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/08(金) 10:12:04.47

>>206
一発で求めるメソッドやプロパティはない
たとえば3行目だけ選択だと、たぶんこれが最短
Range([A3], [A3].End(xlToRight)).Select

2021/01/08(金) 10:18:16.84

>>208
ありがとうございます
やっぱり1発ではないんですね
自分が書いたspecialcellも定数と数式とが混在してると
やはりUnionで繋ぐなどしかないので
煩雑になるなあと思っていたので
その書き方の方が良さそうですね

2021/01/09(土) 19:33:14.89

Dirコマンド、
コマンドプロンプトに直書きだとローカルもネットワークも取れるのに、
VBAからWSHで取ると、ローカルしか取れないのは何故?

2021/01/09(土) 22:38:35.27

理由は知らないけど、コマンドプロンプトのDIRコマンドと、VBAのDir関数は別物です

2021/01/09(土) 22:40:13.80

あ、失礼いたしました
VBAのDirでなく、スクリプト経由なのか
１つ前のレスは撤回します

2021/01/10(日) 01:05:09.81

>>210
まあユーザ認証回りだとおもうけど
ちょっとコード晒してみて

2021/01/10(日) 01:13:14.86

>>213
これそのまま
http://officetanaka.net/excel/vba/tips/tips27.htm

sCmd = "dir [ローカル]" だとOKで、
sCmd = "dir [ネットワーク]" だと取れない
Len(Result)で調べると0文字になってる

コマンドプロンプトでやると取れるから、打ち間違いじゃないと思うんだけど

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/10(日) 01:40:53.81

>>214
手動でコマンドプロンプトからネットが見えるか再確認した？
Windows Updateするとファイル共有が勝手にoffにされることがけっこうあるよ

2021/01/10(日) 02:36:39.33

>>215
そんなことねーよ
死ね

2021/01/10(日) 08:23:59.20

>>215
確認した
\\ネットワークにＣｈｒ（３４）入れて"\\ネットワーク"にしてもダメ
　　　　　　　　　(↑半角だと書き込めない)

2021/01/10(日) 08:51:06.81

>>214
[ネットワーク]の指定方法正しいか？
\\サーバ\共有名でないと、\\サーバだけではだめだぞ

手元で試したけど、うちではUNCパスでもネットワークドライブでもちゃんと動いた
ただし、パスワードは事前に保存済み
パスワード保存してないリソースはテストしてない

2021/01/10(日) 09:02:01.60

ネットワークパス使ってファイルアクセス可能かまず調べる

2021/01/10(日) 09:03:56.67

>>218
\\サーバ\共有名って、\\サーバ\共有されてるフォルダ名?
それなら合ってる
ちなみに\\アドレスの数字\共有されてるフォルダ名ってのも試した
パスワードは、エクスプローラーから開くときにパスワード入れなくていい状態になってるから、
保存済だと思う

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/10(日) 11:56:30.27

うちではサンプルのままで問題なく共有フォルダのファイル一覧が出るからWSHのせいではないと思う
エラーコードやエラーメッセージは何も出てない？
Windowsのシェルを置き換えるとか、何かマニアックなカスタマイズしてる？

2021/01/10(日) 12:45:12.99

>>221
いや、サンプルのC:\"を\\～に変えただけ
エラーも何もなく0文字で返ってくる
強いて言えば、試したのがVPN環境
後でVPNなしでどうなるか試してみるけど

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/10(日) 14:01:53.42

>>222
ホスト側のOSはWindows？双方にSMBは間違いなくフルセットで入れてある？

2021/01/10(日) 16:37:15.38

>>223
Windows
SMBがどうとかは、IT部門じゃないからわからない(会社の)

2021/01/10(日) 17:55:38.15

エラー（メッセージ）が出てないのはたぶん標準出力しかひらってないから
標準エラー出力になんか出てると思われ

2021/01/10(日) 18:05:33.95

つかここまでしてわざわざDirコマンド使う必要あるのか
何がやりたいんだ

2021/01/10(日) 20:17:18.14

>>226
サーバーの空き容量調べたいだけなんだけどね
方法は他にもあるけど、いちいちドライブ文字設定しなきゃいけないとか、
何かアドインみたいなの入れなきゃいけないとかあるし
Dirコマンドが一番シンプルだし、
batでテキスト出力するのは問題なくできるから、
それを直接変数に入れられないかなと思ったんだけど

2021/01/10(日) 20:39:03.57

>>227
WSHつかうならDriveオブジェクトがUNCパスいけるっぽいけど
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/drive-object

2021/01/10(日) 23:21:47.74

馬鹿が聞いて馬鹿が答えるスレ

2021/01/10(日) 23:32:18.31

>>229
お前は馬鹿馬鹿いうだけの馬鹿だな

2021/01/11(月) 22:06:06.53

このスレでお世話になりまくった者だけど
金欲しさに工場部門の夜勤に今年から異動したからVBA触ることももうない
数年後間接部門に戻れるかわからんけど
いや戻れないだろうけど
スレの全員に感謝だわ
本当に色々教えてもらったし構文そのまま頂けた
本当にありがとう

2021/01/11(月) 23:57:28.02

生産管理でまた使うことになったりして・・・

2021/01/12(火) 01:59:02.62

VBAに触らなくて良くなるだけで羨ましいわ

2021/01/12(火) 19:01:11.25

>>231
製造現場になじめないで会社辞めるに1ガバチョ

**210** (ﾜｯﾁｮｲ dfda-AFO5) · 2021/01/13(水) 19:37:02.44

Dirコマンドの件で回答くれた皆さん

パスにUTF-8で文字化けする文字を含んでいたのが原因だったわ
しょうもないオチでごめんなさい&ありがとう

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/13(水) 20:54:16.63

UTF-8からシフトJISに正しく変換できない文字かあ
葛飾区とか草薙とか色々あるよな
記号も～とか￥とか半角スペースとかマイナスとか、よく使うのに化けるのがたくさんある

2021/01/14(木) 02:22:27.50

>>235
それを解決できない馬鹿が中途半端に書き込むなよ

2021/01/14(木) 05:19:52.68

知恵袋よかこっちの方がよほど親身なのは住人が優しくてイイ人ばかりだからでつか？

2021/01/14(木) 07:59:40.60

=TEXT(ROUNDDOWN(a1,1-INT(LOG(a1))),IF(1-LOG(a1)>0,"0."&REPT(0,1-INT(LOG(a1))),"0"))

をVBAで記述するとどうなるのか教えて欲しいです。よろしくお願いします。

2021/01/14(木) 12:22:18.25

a = [TEXT(ROUNDDOWN(a1,1-INT(LOG(a1))),IF(1-LOG(a1)>0,"0."&REPT(0,1-INT(LOG(a1))),"0"))]

**デフォルトの名無しさん** (JP 0H03-Cwx9) · 2021/01/14(木) 12:56:03.99

>>240で解決してたけど、一応正攻法みたいな物

Sub 有効数字2桁()
　　Dim A1 As Double
　　Dim L As Integer
　　Dim S As String
　　Dim F As String
　　A1 = Range("A1")
　　L = 1 - Int(Log(A1) / Log(10#))
　　If L > 0 Then
　　　　F = F & "." & String(L, "0")
　　Else
　　　　F = "0"
　　End If
　　S = Format(WorksheetFunction.RoundDown(A1, L), F)
　　Debug.Print S
End Sub

2021/01/14(木) 18:59:26.33

>>240
マジか・・
普通に書くか、いちいちWorksheetfunctionとか書いてたわ

2021/01/14(木) 20:01:26.65

質問です。

シートモジュール内で、

Private Sub Worksheet_Change(ByVal Target As Range)
For Each test In Range("他シートにある名前付きセルの名前")
Next test
End Sub

これで実行時エラー”1004” ’Range’メソッドは失敗しました：WorkSheetオブジェクト　が出てしまうのですが、原因は何でしょうか。
Publicを取ってみたり、シートを指定しみたりしたんですが、変化ありません。
標準モジュールに記述してF5で実行した場合はエラー発生しません。
宜しくお願い致します。

2021/01/14(木) 20:33:06.60

シートを指定する
名前の適用範囲を確認する

2021/01/14(木) 20:38:30.13

>244
名前の適用範囲を変えてみたりもしたんですが、だめでした。

2021/01/14(木) 20:52:33.18

>>244
すみません、解決しました。
名前の適用範囲を参照範囲のシートあるいはブックにして、且つVBAでそのシート指定すればいけました。

2021/01/14(木) 20:55:12.26

>>243
In Rangeの範囲がそのシートだから、そこに名前付きセルはない
その範囲のあるシートがわかってるなら、In 他シート.Range("... のように指定するか
同一ブック内ならIn ThisWorkbook.Names("名前付きセルの名前").RefersToRange
とかでいけんじゃね

2021/01/15(金) 07:45:14.16

>>240
>>241
ありがとうございます。

2021/01/16(土) 04:08:04.09

①Set DB As CurrentDb

②Set DB As CurrentDb（）

この二つに使い分ける意味はありますか？

2021/01/16(土) 10:41:53.52

ないと思う

2021/01/16(土) 16:36:07.57

①はカッコつけたい時
②はキーボード打つのめんどくさい時

**249** (ﾜｯﾁｮｲ cd10-9NFy) · 2021/01/16(土) 19:03:22.47

>>250>>251
ありがとう。教本読んだら2種類出てきたので、
何か違いはあるのかと思いまして。
同じだったのか…。

2021/01/16(土) 19:33:57.85

同じではない
必要性を感じないというだけ

2021/01/16(土) 20:50:02.04

必要ないのを同じと表現したの

2021/01/16(土) 21:12:53.28

>>253
使い分ける意味がないのに同じでないのはないってどういう意味？

2021/01/16(土) 21:22:36.09

ExcelのVBAにCurrentDbなんてないのは置いておくとしても
その文ってどっちもエラーになると思うんだが

2021/01/16(土) 21:38:23.62

あ、すみません…
AccessVBAのスレってあったんですね。
申し訳ない。
あと1As」　って書いちゃってたけど「=」

2021/01/16(土) 21:39:02.86

訂正
あと「As」って書いちゃってたけど当然「=」でした

2021/01/16(土) 21:59:42.58

Accessで試したけどどっちも通って同じ結果だな

俺の予想では２はデフォルトプロパティの呼び出しになると思ったんだが
引数省略したら、かっこそのものも除去されて評価されてるのかもしれん

つかその教本ってなんだ？

2021/01/16(土) 22:14:43.61

>>255
この例は同じ結果になってるけど、その二つはまったく同じではないよ
Accessで違いが出る例
Dim DB
Dim CurrentDb As Database
Set CurrentDb = Application.CurrentDb

Set DB = CurrentDb
MsgBox TypeName(DB)

Set DB = CurrentDb()
MsgBox TypeName(DB)

まあCurrentDbとかいう変数名は少なくともVBAではお勧めできないけどな

2021/01/16(土) 22:21:15.40

CurrentDb自体を変数にするとか、それはもう別の話では

2021/01/16(土) 23:00:55.60

前提を絞らなければ、動作に違いが出るかどうかの話だから別の話じゃない
変数名の良し悪しに関してはまあ別だが

つかその教本とやらを曝せ
俺的にはデータベースのインスタンスを取得する目的で後者の書き方とかなら、そっちのほうが問題だわ

2021/01/17(日) 05:07:21.78

実際にはやらない無理な方法で無理矢理話を混ぜ返したいだけで、
そもそも意図を汲んでない

2021/01/17(日) 18:18:57.16

初心者です
オートシェイプの名前を検索して置換できるコードを教えてください
調べてもオートシェイプ内のテキスト変換しかありません
お願いします

**デフォルトの名無しさん** (JP 0Hcd-sTIO) · 2021/01/17(日) 20:37:25.77

>>264
オートシェイプの個数は
sheets("Sheet1").shapes.count

名前は
sheets("Sheet1").shapes(1).name

2021/01/17(日) 21:03:01.02

それはすでに使ってるシェイプの名前だろう
使ってない奴から選びたいんだろう

2021/01/17(日) 21:25:06.25

>>265
返信ありがとうございます
下記のオートシェイプに入力されたテキストを検索して置換するコードじゃなくてオートシェイプの名前を検索して置換したいのですがどこを直せばいいのでしょうか
Sub 置換() Dim tbox As Object Dim findStr As String Dim replaceStr As String Dim count As Long Dim i As Long Dim myDocument As Worksheet findStr = InputBox("置換対象文字列") replaceStr = InputBox("置換文字") Set myDocument = Worksheets(1) myDocument.Shapes.SelectAll
For i = 1 To myDocument.Shapes.count If myDocument.Shapes(i).Type = msoGroup Then Selection.ShapeRange.Ungroup.Select For Each tbox In Selection.ShapeRange tbox.TextFrame.Characters.Text = _ Replace(tbox.TextFrame.Characters.Text, findStr, replaceStr)
Next Selection.ShapeRange.Regroup.Select Else
Set tbox =　myDocument.Shapes(i).TextFrame tbox.Characters.Text = _ Replace(tbox.Characters.Text, findStr, replaceStr)
End If
Next
End Sub

2021/01/17(日) 21:32:27.18

聞く気ないだろｗ

2021/01/17(日) 22:02:29.00

そのようだなｗ

2021/01/17(日) 22:10:02.50

適当にコードをコピペして聞きだそうとする手口

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-ieYb) · 2021/01/17(日) 22:23:21.58

質問です。よろしくお願いいたします。
VBA でスクレイピングを行っています

対象ページ：https://www.rakuten-sec.co.jp/web/market/data/rub.html ‥①
取得したい要素、 CSS セレクタで記載：document.querySelector("#cFx > table:nth-child(6) > tbody > tr:nth-child(1) > td.cell-02 > em").innerText　　‥‥②

しかし、②は google chrome では取得できて、しかもコンソールで②を指定した場合も目的の値を取得できていますが、
②を IE11 ->F12 で表示できるコンソールに食わせても、目的の値を取得できません。

質問１：google chrome におけるページ①のCSSセレクタ②は、IE11 ではどのようになるのでしょうか？‥‥③
質問２：IE11 で③を取得する方法はどのようなものでしょうか？

以上よろしくお願いいたします。

2021/01/17(日) 23:48:28.14

>>267
いろいろと修正箇所が多いので
https://qiita.com/Umaremin/items/b7726fa7340c7f175e77
このサイトのコードの
4行目の後に
Dim findStr As String, replaceStr As String
findStr = InputBox("置換対象文字列")
replaceStr = InputBox("置換文字")
'各Shapeに対する処理の2箇所に
shp.Name = Replace(shp.Name, findStr, replaceStr)
を追加すればうまく出来ると思う

ちなみに、理由は知らないけどリボンのページレイアウトの中のオブジェクトと選択と表示のシェイプの名前を変えずにデフォルトのままだとVBAが出す名前が英語表記になるので注意

**デフォルトの名無しさん** (JP 0Hcd-sTIO) · 2021/01/18(月) 02:58:44.09

ちょっとソースを整理

Sub 置換()
　　Dim tbox As Object
　　Dim findStr As String
　　Dim replaceStr As String
　　Dim count As Long
　　Dim i As Long
　　Dim myDocument As Worksheet

　　findStr = InputBox("置換対象文字列")
　　replaceStr = InputBox("置換文字")
　　Set myDocument = Worksheets(1)
　　myDocument.Shapes.SelectAll

　　For i = 1 To myDocument.Shapes.count
　　　　If myDocument.Shapes(i).Type = msoGroup Then
　　　　　　Selection.ShapeRange.Ungroup.Select
　　　　　　For Each tbox In Selection.ShapeRange
　　　　　　　　tbox.TextFrame.Characters.Text = Replace(tbox.TextFrame.Characters.Text, findStr, replaceStr)
　　　　　　Next
　　　　　　Selection.ShapeRange.Regroup.Select
　　　　Else
　　　　　　Set tbox = myDocument.Shapes(i).TextFrame
　　　　　　tbox.Characters.Text = Replace(tbox.Characters.Text, findStr, replaceStr)
　　　　End If
　　Next
End Sub

2021/01/18(月) 06:51:20.31

>>272
言われた通りにやったら出来ましたありがとうございます。
自分がやりたかったことと同じでした。
>>273さんも整理してくれてありがとうございます。

2021/01/18(月) 12:58:34.46

>>271
漏れが、Ruby, Selenium WebDriver, Chrome でアクセスしたら、空要素が返ってきた

CSS の :nth-child() 擬似クラスは、
兄弟要素のグループの中での位置に基づいて選択します

https://developer.mozilla.org/ja/docs/Web/API/Document/querySelectorAll
Document.querySelectorAll()

elementList = parentNode.querySelectorAll(selectors);
指定された selectors が CSS 擬似要素を含む場合、返されるリストは常に空になります

エラーログ

"jQuery.Deferred exception: Cannot read
property 'msie' of undefined TypeError: Cannot read property 'msie' of undefined

at HTMLDocument.<anonymous> (https://www.rakuten-sec.co.jp/web/shared/js/app/jquery.share-button.js?20160125:5:415)
at l (https://www.rakuten-sec.co.jp/web/shared/js/jquery.js:2:29375)
at c (https://www.rakuten-sec.co.jp/web/shared/js/jquery.js:2:29677) undefined",
source: https://www.rakuten-sec.co.jp/web/shared/js/jquery.js (2)

ひょっとして、そのサイトがバグっているのかも？
それかログインなど、特別な認証が必要なのかも？

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/18(月) 13:03:01.53

それか、

jquery.share-button.js
と書いてあるから、

jQuery で作った画面か何かの、ボタンをクリックするなどの、
人間による操作が必要なのかも？

2021/01/18(月) 13:14:48.80

まあでもVBA関係ないな

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/18(月) 13:39:24.37

そのサイト固有の問題かも。
それに、IE 11 はサポート切れで、多くのサイトで、まともに動かない

基本、Chrome しか動かない。
Chrome以外のブラウザは、まともに動かない

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-ieYb) · 2021/01/18(月) 23:04:09.16

>>275,276,278
検証いただきありがとうございます
なにぶん、単に株価等をスクレイピングするためだけに年始から web スクレイピングを始めたばかりなので、難しいことはよくわかりません‥‥
やっぱり HTML5/CSS の基礎本からじっくりやるしかないでしょうか

引き続き、なにかコメントがありましたらよろしくお願いいたします‥‥

>>277
VBA で
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
objIE.navigate ur
時間待ちl
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim elementText As String
elementText = htmlDoc.querySelector("#cFx > table:nth-child(6) > tbody > tr:nth-child(1) > td.cell-02 > em").innerText
と書いていますが、それでもやっぱり VBA は関係ないのでしょうか？

2021/01/18(月) 23:19:34.42

スクレイピングが目的なら悪いことは言わないから大人しくpythonあたりにしとけ

2021/01/19(火) 00:16:19.06

今月からpythonを始めてサイトから文字を取ってきてエクセルにぶち込むくらいなら一週間で出来たな
その後のエクセルの処理はもちろんVBAだけどなw

**デフォルトの名無しさん** (JP 0Hcd-sTIO) · 2021/01/19(火) 00:26:22.17

最近のホームページはブラウザごとに動作が違うから、本などを参考にするなら同じブラウザを使わないと、
本質と無関係なところではまって時間を無駄にすることになる

あと株価なんかスクレイピングしてもまったく意味ないぞ
どんだけ大量の数字を集めたところで、それで利益が出せると思ったら大間違いだからな

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-ieYb) · 2021/01/19(火) 01:15:30.84

>>282
＞どんだけ大量の数字を集めたところで、それで利益が出せると思ったら大間違いだからな
そのとおりだと私も思います、ただし、さや取り（裁定取引）を米国株に適用するのなら商機あり、とみています
さや取り（裁定取引）とは：https://investars.jp/sayatori.php

2021/01/19(火) 06:36:37.01

そもそも自動売買に使う頻度でスクレイピングって規約確認したのか？

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/19(火) 07:21:09.11

>>275
を修正

275は、ヘッドレスモードで動かしたので、エラーになったけど、
表示させて動かしたら、エラーにならなかった

でも、要素は取得できなかった

IE11 は、もうサポート切れじゃないの？
使わない方が良い

基本、Chrome を使うべき！

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/19(火) 07:23:53.98

勝手に頻繁にスクレイピングしたら、業務妨害で逮捕されるよ

基本、どの会社のサービスでも、
相手と契約して、API を使わないといけない

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/19(火) 07:51:13.37

そもそも、そのページ内に、id="cFx" が存在しない

var elems_1 = document.querySelectorAll( '#cFx' );
var elems_2 = document.querySelectorAll( '#cFx > table:nth-child(6) > tbody > tr:nth-child(1) > td.cell-02 > em' );
console.log( elems_1, elems_2 );

Chrome のF12 開発者ツールで実行しても、どちらも取得できない

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/19(火) 08:28:20.74

Chrome のF12 開発者ツールのコンソール画面を開くと、幾つかエラーが出てる

ログインしてるとか、営業時間内とか、
何かの条件が揃わないと、

そのページ内に、id="cFx" が現れないのかも

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-ieYb) · 2021/01/19(火) 23:14:02.19

>>286
IB証券との契約を検討中です
nyse と nasdaq 両市場の全上場株式を取得する必要はありますが、頻度は一社につき一日に一回だけでいいのが裁定取引のいいところだと思っています

**275** (ﾜｯﾁｮｲ 6e2c-vYIt) · 2021/01/20(水) 06:54:28.87

エンジニアチャンネル・粟島が、
2つの取引所の価格差を利用して、Ruby で鞘取りしてる

【検証】プログラミングでビットコインを自動売買すると一週間でいくら稼げるのか？
https://www.youtube.com/channel/UCMMjv61LfBy5J3AT8Ua0NGQ

2021/01/20(水) 19:14:01.82

初心者です。
質問をさせてください。
A列のデータをソートして、境目に改ページを適用するVBAを組みました。
その後にもう１つ動作を組み込みたいのですが、可能でしょうか？
組み込みたい動作は、
改ページの境目の１つ上のC列の内容をF1セルに都度反映させる。
イメージとしては、改ページで分けた内容ごとにタイトル行の一部を変えたい、といった感じです。
例:都道府県別に改ページをし、
東京の場合はタイトル行に東京と入れ込む。
そもそも無理なのかもしれませんが、お伺いしたく。。

長文失礼しました。
ご教示いただけますよう、お願いいたします。

2021/01/20(水) 20:49:26.31

まずその通りやってみればいいのに

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-ieYb) · 2021/01/20(水) 20:58:51.72

>>290
面白い動画を紹介いただきありがとうございました。
しかし裁定取引では、売りと買いの両方ができないと実現は困難かと考えています
BTC を売りから入ることは、たしか、まだできなかったのではないかと思います

2021/01/21(木) 21:48:26.77

ソルバーが全然うまくいかないし会社の人も誰もソルバー自体知らんかった
マイナーか…