Excel VBA 質問スレ Part68 YouTube動画>5本 ニコニコ動画>1本 ->画像>8枚

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

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

※前スレ
Excel VBA 質問スレ Part67
http://2chb.net/r/tech/1593104489/

---

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

IEの代わりは何使えばいいの？

乙

以下の特徴を持つ書き込みは無視するか罵倒されます。

・「教えて」「助けて」で始まる質問者の頭が悪いことが容易にわかる質問
・自分で考えるともせず全部作ってもらおうとする厚かましい質問
・VBA、マクロに関係ないExcelの質問
・自分のために利用するだけ利用してやろうと、後出しで条件を付け加える人

Testフォルダの中に複数のテキストファイルがあり、それぞれのテキストファイルの中身を１つのエクセルシートに取り込みたいのですが、うまくいきません。
test()をfunc()の中で使えないか考えています。
Sub fun()
Dim fso, file, files
Dim folderPath As String: folderPath = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderPath).files

For Each file In files
Dim wb As Workbook
'Set wb = Workbooks.Open(file)

Dim ts As Object
Set ts = fso.OpenTextFile(file, ForReading)

'Call wb.Close(SaveChanges:=False)

Next file
End Sub

Sub test()
Dim folderPath As String: folderPath = "G:\Test\"
Dim textLine, fileName As String
Dim fileToOpen As Integer
Dim i As Integer
fileName = folderPath & "01.txt"
fileToOpen = FreeFile()

Open fileName For Input As fileToOpen

i = 1

While Not EOF(fileToOpen)
Line Input #fileToOpen, textLine
Cells(1, i).Value = textLine
i = i + 1
Wend
End Sub

すみません。何とか事故解決しました。
もしこう書けばより良いとアドバイス頂けたら幸いです。
Sub fun()
Dim fso, file, files
Dim folderPath As String: folderPath = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderPath).files

Dim j As Integer

For Each file In files
Dim wb As Workbook
'Set wb = Workbooks.Open(file)

Dim ts As Object
Set ts = fso.OpenTextFile(file)
Dim i As Integer: i = 1
j = j + 1
Do Until ts.AtEndOfStream
Cells(j, i).Value = ts.ReadLine
i = i + 1
Loop
ts.Close
'Call wb.Close(SaveChanges:=False)
Next file
End Sub

入門レベルで横槍入れるようで申し訳ないのですが
forループ以前とループ内でのDim〜は何が違いますか？

>>8
違いは見やすさだけ
機能はどこに書いても同じ
マイクロソフトは最初にまとめて書けと言ってる

>>7
宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい

誰に言われるまでもなく上に全部まとめて宣言しているわ
違うプロシージャにそのままコピペで流用して使わないのは消すだけ

>>7
Cellsの前にはワークシート名書いといた方が絶対にいいよ
CodeNameでいいから前に書いときな

Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか

Dim r As Long

For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r

>>13
Month関数使えば判定できるとか

>>10
>>12
助言ありがとうございます。

>>16
ありがとうございます

vba実行時
実行時エラー2147467259（80004005）エラーを特定できません
が出ます。
半月前は出ませんでした。
どうすれば良いでしょうか。

具体的に申しますと
pdfをテキストにコンバートする関数に
入った直後に出ます。
Dim objAcroApp As New Acrobat.AcroApp
Dim id As Long
id=objAcroApp.Show←ここで出ます

事情がありスマホで手打ちしました。
見苦しくすみませんがよろしくお願い申し上げます

小計シートのA列に日付があります
1.メニューシートでリストボックスを設置して、そこに小計シートのダブりを省いた日付を入れて選択できるようにしたいです
２.メニューシートの実行ボタンを押すと選択した日付の行全てを結果シートに出力したいです

どのような関数を使えば１、２を実現できるのでしょうか？

神経衰弱を作っています
Image1~52を並べて全てのImageにクリックされた時の処理を記述しているのですがImageがクリックされた時の処理をひとつにまとめる方法はないでしょうか？

>>20
1つにまとめて、どこをクリックされたかは座標で特定するとか。

>>18
vbsでも同じエラー出る?

>>20
Imagename = Application.Caller
i = Mid(Imagename, 6)

あとは、Select Caseで割り振る

>>20
マクロ登録に引数を付けるかApplication.Callerを使う

Application.callerよさそうですね
使ってみます
ありがとうございました

>>19
一気に答えがで関数があると思うな

る

>>20
一度、VBA コントロール配列 あたりでググってみると良いかもしれない

>>20
クラス作ってWithEventsおすすめ。

神経衰弱を作っています
カードを2枚裏返して2枚の数字が同じだった
Image1.visible = falseで2枚を非表示にしています
ゲーム途中でコマンドボタンを押すと1から13までのランダムな数字の枚数だけ裏面のカードを表にしたいのですが今のコードだと既に非表示になっているカードまで表にする対象になってしまっていて13という数字を引いても5枚しかめくれないみたいな状態になってしまいます
どうすれば既に非表示になっているカードは除いて表面にする処理ができるようになるでしょうか？
ゲーム開始直後の状態であればちゃんと引いた数字分表面にすることができています

非表示の時は表示しなければいいのでは…

For i = Lbound(arr) to ubound(arr)

next i
配列の中 ファイル名*書込文字。
(0)001*abc (1)001*bca (2)001*dca (3)002*fed の様な配列の処理を

(0)で001.xlsを開いて文字書き込み
(1)開いてあるから文字書き込み
(2)同様
(3)001閉じる002開く文字書き込み

こんな感じに開いてたら閉じる。違うファイルなら閉じて新たに開くってどうしたら
いいですか？

>>32
その処理のどの部分で躓いてんの？

>>30
If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then

>>34
それだと非表示にしたカートまで表示される

>>30
表裏の切り替えできてるなら裏かつvisibleだけ処理すりゃいいと思う

>>35
じゃあ、trueに変えればいいじゃん

>>22
sはこれでエラーが出ませんでしたが
これでテストになっているのか疑問です。。(acrobatを操作しているように見えない
Sub ConvertFile()
Dim objAcroApp
Dim objAcroAVDoc
Dim objAcroPDDoc
Dim id
Dim js
Dim SaveName
id = objAcroApp.Show
id = objAcroAVDoc.Open("PDFへのパス", "")

ちなみに>>18のソースを本日数度起動してみたところ
1回だけ動作成功しましたww
プログラム以外のところに原因があるんでしょうか。

sはこれでエラーが出ませんでしたが
↓
vbsは・・・
です。失礼しました。

>>37
カードの非表示状態を管理するなりしないと単純にvisibleだけ見ても意味ないよ

>>33
次のファイルが同一ならそのままで、違うファイルなら閉じて開くの処理の仕方が分かりません。

>>40
visibleプロパティで管理してるんだから問題ないだろ

13回選んで4回裏が出たら17回選べばいいんだよ

>>41
ファイル名保持して、ファイル名が同一ならそのまま、違ったら閉じて開くだけ？isbookopen使うとか？

>>38
CreateObject("AcroExch.App")
CreateObject("AcroExch.PDDoc")
しなきゃダメなんじゃ・・。
そういう問題ではない?

あと、1回だけ成功したのなら、
馬鹿馬鹿しいと思うかも知れないけど、
DoeventsかSleepを入れてみるとか。

csvをある列でフィルタし
結果を別のブックに貼り付け
csvとして保存したところ
日付＋時刻（ゼロ時）の列すべて
5桁の数字になります
どうしたら日付＋時刻のままで
いてくれますか

文字列として貼る

>>46
VBAの話しか？

>>48
はぃ、vbaでそういう処理を書きました

一定間隔でマクロ実行する方法はなんとなくわかるのですが、不規則な間隔（5秒〜90秒）でマクロ実行したいのですが
どんなやり方がありますか？

>>46
日付が5桁の数字って、44078とかだろうけど、
多分フィルタもCSVも関係ない。
値貼り付けしちゃってる。

>>50
Rnd使うのが一般的なんだろうけど、アホな方法を挙げると、
誰かが作った不規則をパク

ってくるとか。
例えばライブカメラの画像をDLして使うとか。

>>50
マクロの最後にApplication.OnTimeを書く
現在時刻に乱数で秒数を足す

モジュール1で定義した配列をモジュール2で使うにはどうすればいいですか？
モジュール1でdimではなくpublicで宣言すればいいのでしょうか？

なんでそれをやってみないの

>>51
すべてご推察のとおりです。ありがとうございます。
xlPasteValuesで張り付けてます。
xlPasteAllだと年が月日の後になってしまいます（5/31/2020 0:00）

>>47さんのおっしゃる
「文字列として」貼り付ける設定を発見できません。
""で囲めば文字列として貼り付けられるのでしょうか。

最近また馬鹿が出てきた

>>57
セルの書式設定

CSVで保存したら書式通りで保存されたっけ？

>>60
される

A1に3、B1に100といれ、実行すると、

3から100行までを非表示にするマクロお願いします

基本技術の試験勉強してるのですが、

https://www.fe-siken.com/kakomon/30_aki/pm13.html

この過去問の設問3のマクロの文章の和訳というか、各行がどんな処理をしているのか日本語で説明できる方いませんか

あと、変数iなんですが、なぜiなんでしょう

よろしくお願いいたします

ループカウンタ用の変数名はとりあえずiにでもしとこうっていう昔からの名残
細かく言うと整数を表すIntegerのi
i、j、k〜nまで順によく使われる

>>64
ありがとうございます
特にこだわる深い意味は無いのですね
助かります

何度もレスしてすいません。
問題の文章とVBAのマクロの文章を照らし合わせて回答をみると何となく答えがわかる気がしてきたのですが、

相対(a2,work_line,3)

がなぜ来店状況ワークシートのセルd列のことになるのか分かりません。
3列目なのでcだと思ったのですが…

>>64
indexかと思っていたんだが

>>66
列番号ではなくA列から相対的に数えて何個右の列かってことだろう

>>66
問題見てもないけど、相対って書いてあるからＢ列から始めてるんじゃ？
と思ったけどレス見ると3次元配列っぽいしよくわからん

相対(A2,work_line)も同じ考え方だぞ？

>>63
fortran起源説

vbaに直すとrange("A2").offset(work_line,3)

>>68
>>72
ありがとうございます！！
理解しました！

>>70
すいません
そもそもそれもよく分かってなかったのです。
ちなみに良かったらどういう意味が教えて欲しいです。
聞いてばかりで申し訳ありません。

>>64
インデックスじゃないの？

>>74
列がわかったなら行もわかるはずだが…

>>74
そろそろ消えろ

>>74
相対(a2,行,列)
0の場合は省略可なので
相対(a2,行)とか相対(a2,,列)でもいい

>>78
それはvbaのoffsetの構文であって設問の問題文とは関係ないな

>>62
の質問内容がひどすぎて
誰もくいつかないなｗ

お金が発生するわけでもないし

>>78
ありがとうございます。
とても助かりました。

>>62
Range(Rows(Range("A1").Value), Rows(Range("B1").Value)).Rows.Hidden = True

>>57
値で貼り付けるなら、後から
.NumberFormatLocal = "yyyy/m/d h:mm;@"

>>63
答えは簡単だが、質問が難しすぎる。

>>85
上手く質問できなくて申し訳ありません。

全体的な単語の一つ一つの意味が知りたかったのです。

お手隙ならばで構わないのですが、

https://www.fe-siken.com/kakomon/30_haru/pm02.html

この問題の設問3の重みパラメータというのがどう作用して出力Zの値になるのか教えて頂けないでしょうか。

あ、すみません。問題よく読んでませんでした。
これについてはレス直後理解しました。
ごめんなさい（ ;ᯅ; ）

https://www.fe-siken.com/kakomon/30_haru/pm03.html

この設問1の答えなんですが、この文でどうして結合とか保護者の氏名と住所を抽出するのですか？

>>84
これで出来ました
ありがとうありがとうありがとううううううううーー

>>88
死ね

>>90
お前が死ね
ゴミ山猿の屑野郎

>>91
内容も読まずに書くなよクズ。SQLのことだろうが。

ここで質問したらダメだったみたいですね
該当スレとかあるのでしょうか

>>93
http://2chb.net/r/welfare/1598921138/

>>88
これをどこで聞けばいいのかもわからなかったらFE受かるの難しいよ…

VBA勉強しはじめて、ようやくOutlook連携とかzip圧縮とかやり始めたんだけど
Excelそのものの操作に関する情報と比べて、参考に出来る情報の質も量もガクッと落ちた気がする

やっぱ話題のpythonに切替えたほうが悩まずやれるのだろうか

質も量も、っていうのはノンプログラマーの自分が探せる範囲って意味です

zip.exe叩けばええやろ

目の前に答えが書いてあっても理解できない、答えだと気付けない
これが「馬鹿には無理」の意味

半年ROMって勉強します押忍押忍押忍

何をしたいかによるけど、Windowsの操作の自動化っていう範疇ならPowerShellおすすめ
Comオブジェクトも使えるよ

なにがおかしいの？
Sub func()
Dim url As String: url = "https://e-hentai.org/g/1727798/1fbe77a0a2/";
Dim buffer As String: buffer = ""
Dim objLinks As Object
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False

objIE.navigate (url)
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

Call WaitFor(3) ' wait for 3 seconds

objLinks = objIE.document.getElementsByClassName("gdtm").outerHTML

Cells(1, 1).Value = objLinks

objIE.Quit
Set objIE = Nothing
End Sub

Function WaitFor(ByVal second As Integer)
Dim futureTime As Date: futureTime = DateAdd("s", second, Now)
While Now < futureTime
DoEvents
Wend
End Function

IEはもう無くなるよ

>>102
Dim objLinks As String

>>103
IEの代替え何使ったらいいの？

>>105
データをダウンロードするだけならブラウザを使わずに直接ネットアクセスした方が早くて簡単
色んな方法があるけどXMLHTTPとかWinHttpRequestとか調べてみ

>>106
ありがとうございます


'JavaScriptを実行しFormを送る処理
objIE.Navigate "JavaScript:doAction('/文字列')"

みたいなことしないとアクセスできないサイトのデータが取得したいのですが
他に方法ありますか？

JavaScriptを読んで何やってるか調べろ

>>107
Form送信は単純なHTTPアクセスで代替できるケースが多いから、これもブラウザを使う必要はない
てか、WEBの構造はVBA関係ないし

エクセル2010です。
上書き保存時にすべてのシートでA1セルを選択するようにしたいのですが、
Ctrl+S時とボタンのクリックイベントで挙動が違うことにハマってます。
1枚目シートにactiveXコントロールのボタンを配置し、VBAの構成は以下です。
1. シートモジュール : ボタンのクリックイベントにThisworkbook.saveだけを書いています。
2. ThisWorkbookモジュール : beforeSaveイベントで3を呼び出し。
3. 標準モジュール : 全シートのA1セルを選択するSubプロシージャ。ForEachでまわすだけ。

Ctrl+Sの際は2→3でうまくいきます。
ボタン押下の場合は、1→2→3と流れてはいるものの、なぜか各シートがactivateされなず、activeSheet.Range("A1").Selectが働きません。
1のクリックイベントから直接3を呼び出すのは、うまく行きます。

何故このような挙動になるのか分からず数日ハマってます。
どなたか、ご教示よろしくお願いします。

>>110
for i= activeworkbook.worksheets.count to 1 step -1
apprication.goto activeworkbook.worksheets(i).range("a1")
next i
activeworkbook.save

スマホ打ちだから綴りミスはあるかも

>>110
For eachで全シート回してるならActivateしなくても、
sh.Range("A1")で行けないか？

>>112
間違えたsh.Range("A1").Selectだわ

>>110
働かないという場合の原因で以下のことを調べてみ

1.実は働いていたがその後に別の動作をしたため働いていないように見える
2.働こうとしたが、なんらかの異常が出て失敗している
3.その処理が実行されていない（on errorやifの条件、イベント発生していないなど）

>>105
漏れは、yahoo のログインとか、
Ruby, Selenium Webdriver で、ブラウザを自動操作してる

単純なダウンロード・スクレイピングなら、RubyのNokogiri。
外部コマンドなら、curl, wget

Application.EnableEvents=Falseしてるとか？

“>-1”&i
て書いたときに　>-2, >-3... っていうふうに比較値が意図せず負に進むんだけど正の値に足したい場合ってどうすれば良いでしょうか。

>>117
VBAの挙動の問題

-を文字列、1を数値として認識してる

そもそも、-1をダブルクォーテーションで括ってるのは文字列として-1を認識させたい時のみにするのが基本
なので、ダブルクォーテーションを取ってやれば意図通り動くはず

へー、そんな挙動するんだ。知らなかった

>-11
>-12
>-13
になると思ってたよ

>>113
activeじゃないシートはselectできないと思うが

>>110
Forの中身が間違ってるとか別のブックを見てるとか
ほんとに選択したいシートが選択されてるか確認した？

>>118
クォーテーション外してやってみたけど上手くいかないです...

初心者なんで拙いですが、一応自分で書いたものをのせます。
既出のデータを整理して2次元チャートを作成する目的です。

Dim cnt As Integer
Dim x As Long
Dim y As Long
x = 0
y = 0

For x = 0 To 10
For y = 0 To 10

cnt = WorksheetFunction.CountIfs(Range("B2", Range("B2").End(xlDown)) "<=" 0 + x, Range("B2", Range("B2").End(xlDown)) ">= -1" & x, Range("C2", Range("C2").End(xlDown)) "<= 0" & y, Range("C2", Range("C2").End(xlDown)) ">= -1" & y)

Cells(x , y) = cnt

Next y
Next x

いつも人任せだな…
そのcountifの引数の中身が自分の意図した内容かなんで確認しないの？

もう30過ぎて勉強もなぁ…って手が進まない
VBAを知識をパンパンに詰め込んでああこれねって感じでカタカタと打ち込んでプロシージャ作りたいもんだわ

考えることを人に丸投げしてるだけで勉強は関係がない

人に丸投げというかネットで拾ったものの組み合わせでいつも何とかしてしまう
知識がほとんど入らない
異動希望出してるしなぁ

エクセルの指定列から3列コピーしてその4列目に挿入して貼り付けた後セルに入ってる値を消すコードをRangeじゃなくてCellsでやりたいです。
clmtar=10
10〜13列をコピー
14列目に挿入
14〜17列目のセルの値クリア。

>>127
コピー後の値を消すの？
元通りになるだけだと思うけど

>>126
愚痴る暇があったら入門書かって１ページでもいいから読んでろ

>>129
すんません…なんか職場でおばちゃんがあれも作ってとか調子こいてるだけで
こりゃまた愚痴だわ
これぞ！っていう入門書ありますかね
イチからガチで鍛えてみるかな

>>126
なんとかできてるならそれも実力のうちなのだと思うよ
楽しい、自分ならこうしてみたい、こうしたらどうなるのだろう
とかがないならそこまでだけど

ネットで検索
プロシージャを組み合わせたり簡単なところをイジる
出きたと思ったら会社のメルアドにプロシージャ貼り付けたテキスト送る
会社で組み合わせる
UserFormのボタンに割り当て
これでごまかしつつやってきた
圧倒的な知識が欲しいなぁと

>>130
それすら他人に頼るようじゃいつまでたっても進まない

今までどおり困ったら初心者ですとか勉強中ですとかで知識ないアピールで人にやらせて突っ込まれたら謎の正当化とどうでもいい言い訳で誤魔化してやっていくんだろうな

ネットで調べてなんとかなってしまう時代のせいだよね
俺は悪くない

そういう人が増えてきたからあんまり教えないようにしてる

ゆとり世代の特徴だぞ

>110です。
書き込み後にいろいろググったところ、いくつかのサイトで
コードからの保存はbeforeSaveイベントが正常に働かない旨の記載がありました。
今回の事象もこれに当たるのかなと考えています。
そんな訳で、ボタンでの保存はenableEventsをfalseにして別処理にしました。
回答くださった皆様、ありがとうございました。

別にここで聞いても答えなんて返ってこないし期待してないのでご安心を

足し算がわかりませんとか言われても入門書でも読めとしか言えないよな

入門書読めと言うとどの入門書がいいか聞いてくるよ

入門書を紹介すると今度はどこで買えばいいか聞いてくるよ

通販で買えって言うとお金がないって言ってくるよ

お金あげると姿をくらますよ

しかも捨て台詞付きで

すみません。ちょっと長くなってしまうのですがTreeViewをいじっているうちに分からない事があったので教えて下さい。
TreeViewの子ノードをD&Dでリストボックスにコピーする動作を作っていたのですが、ドラッグ開始時点のSelectedItemを取得しようとすると１度子ノードをクリックした上でD&Dを行う必要がありました。
その為、既定引数の�IPOS,yPOSを使ってHitTestをSelectedItemに代入しようとしました。
しかしそれが上手く動作せず色々調べた結果、
xとyに*15をすると言う記述を見つけ試してみたところ、思い通りの動作を得られました。

しかしながらこの15はなんの15なんだ。他の環境ではこの数値は変わるのか。変わるならば何を元に算出すれば良いのだろうか。
という疑問が浮かびました。
お手数をお掛け致しますがお分かりになる方がいらっしゃいましたらご教授頂けませんでしょうか。

まずその15をかけるってどこに書いてあったんだよ

Windows標準のシステム解像度だとピクセルとTwipsの比率が1:15だからってスタックオーバーフローに書いてあった

c言語のdefineに相当する文法は無いですか?
constだと違和感がありますので

>>148
助かります
ありがとうございました

という事は使用環境次第では正常に動作しない場合も有り得るって事なのですね。対策を検討してみます。

>>149
どこに違和感があるのかを言わないと案を出せません

>>128
コピー後挿入したら隣に3列追加されてセルの長さもコピーした3列と同じになりますよね？

列幅をコピーすればいいのでは…

>>152
幅を一緒にしたいなら最初からそう書けば良かったのに

>>149
あなたが思っているC言語のdefineの使い方は、コンパイラが置換するもので、定数の概念とは少し違いますよ？

>>152
そもそも列の挿入操作が必須なのか？

列の挿入なんてあちこちに影響するから、やりたがる理由がわからない。

条件付き書式が壊れたりすると面倒

自分の操作と同じ手順を踏みたいだけなんだろうね

プログラマではない素人感覚

test

超初心者なんだけど
配列の中から指定値の近似値の座標を検索するのにいい感じの方法はないでしょうか
(以下、以上、完全一致全て含めての近似値)

どうせ大した数じゃないんだろ
総なめしろよ

>>161
for eachで比較対象値と指定値を全て比較して、結果出力してその中でMIN関数使えば

>>161
前もってソートした配列作って二分探索か、
配列の値-指定値の絶対値が最小になる値を探す

Min(Abs(配列-指定値))

ひとつに絞りたいならお前がルールを決めればいい
お前に決定権がないなら保護者に聞け

ExcelVBAのフレームワークってないんですか？

PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが
VBAだとそういうのが見当たらなくって・・・

見よう見まねで結構大掛かりなマクロを作った
情シスには程遠い事務の部署で
改善賞1万円
うーんもうちょい欲しかった

オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない

フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク
さらに言えばExcel向けに特化したものがExcelVBA
他のOfficeソフトにもそれぞれのVBAがある

>>167
一つに絞りたいというか最も近しい値を知りたいのです
指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい
1万行は超えるから総なめはちょっと…

>>172
パソコンにとっては「たった」1万行だよ
総舐めが一番簡単だし、開発時間も含めれば一番早い

総舐めでもここでグダグタ言ってる間に結果が出る

>>172
は？ 質問は4と-4だろ？

もう俺が決めてやるよ
-4にしろ、はい解決

セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう
指定した値aの近似値が欲しいなら
If a-x<=Array(i) And a+x>=Array(i) Then
とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い

あ、ごめん
俺が質問を勘違いしてたわ

近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手

>>168
各オブジェクトに多数のイベントが設定されているでしょ
windowsのプログラミングはイベントドリブンが基本
ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する

すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう

これです

打ち込んだだけで実行してないからじゃね

どこに打ち込んだかも分からないしなんとも

汚えコードだな

>>166
コードが汚すぎる

>>181
セルの幅や高さは初期状態？

あ、なんでもない

普通に動いたんで入力ミスとか環境の問題かな

パズルゲームを作ってます。

セルを奇数列から横2マス選択してドラッグさした場合に、移動先が同じ奇数列から始まる場所なら許可。偶数列から始まる場所に移動した場合は不可にして移動をキャンセルさせたいんですがどうしたら出来ますか？良いEVENTってあるんですかね？

>>180
そのまま入力してちゃんと動いたから、問題文には間違いはない


それにしても学校の宿題だとしたらひどすぎるな
先生がこんなに汚いコードしか書けないとか生徒がかわいそう

ああ最後の方に入力ミスあったわごめん

>>189
SelectionChange

>>181
コメント行の終わりにシングルクォーテーションが付いているのは初めて見たw

コメントというより、文字列リテラルに見えてくるw

>>190
こんな意図がこんなに読みづらいコード初めて見たわ

>>181
先生変数宣言しないの？

教師は必ずしもコード書いてた人じゃないししゃあないんちゃう

>>180
馬鹿過ぎる帰れ

>>193
HTMLみたいにコメントが改行で終わるとは限らない言語はまれによくあるけどな
それよりもインデントの汚さと、Cellsのパラメータにx, yを使ってるあたりがめちゃくちゃ気になる

Kirakira1 のコードにそっくりなのが検索で見るかるけど
そっちでは変数宣言しているｗ

これか
https://my-tax-nology.com/excel-vba-animation-rnd-function-cells-glitter
>>マクロ（Excel VBA）を使えば、簡単なアニメーションを作ることができます。
>>アニメーションを作っていると楽しいだけでなく、プログラミングのスキルアップに繋がります。

なるほど？？

エクセルVBA は当分なくならないですかね

>>200
VBAを教えてるサイトでコメントをシングルクォートで閉じたりカッコを全角で書くやつなんて世界に一人しかいない
本人ならDimやインデントはちゃんと書くはずだし、完全にパクリだな

180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど

すまん
wsfやhtaでvbs書くとき 'コメント' って書くわ
エディタの色付けがjs用だから

>>203
「なんで乱数を整数化するのにRoundを使ってしまったんですか？」って聞いてみて

他の言語でも行コメントで見出し風にするプロはそれなりにいる。

ただ、初心者に教える人間が行コメント構文を、ブロックコメント構文と同じ使い方をするのは、初心者を混乱させるだけで、何のメリットもない。

>>203
なんで変数宣言しないんですか？
なんでx1とかわかりづらい命名するんですか？
なんでx1とかを上書きするようなわかりづらい変数の使い方してるんですか？
インデントの使い方に意図はありますか？
6の意味が説明されないとわからないのは不親切ですね

などなど…色々質問してみたらいいよ

>>203
その先生は、少なくともVBAの知識だけは大したことないことは誰が見てもわかる
ほかの言語のエキスパートでVBAをバカにする人もいるけど、人に教えるんならちゃんとしろと思う

>>199
よく見つけたな

>>205
それもなんか見ると気になるな。コードの順番も変だし、数値の精度やデータ型をわざとヘンテコにしているのかも謎。

>>205
Rndの定義から考えればIntを使うのが自然だけど、まあそこは100%間違いとは言い切れないからなあ

その先生だと6は数値ではなく数字です！
マジックナンバーって何と言いそうw

コードのおかしさは、その先生よりコピペ元のサイトの責任だろ

>>212
ドコモロは黙っててくれないか

>>212
教える側の立場として教材として使うかどうか判断したんだから元のところに責任はねーだろ
なんか改悪もしてるし

ループの外でウエイトしてたら速すぎてキラキラしないんじゃ…。
紙に書いてある方。

>>200
こいつもかなり怪しいな
i, jを宣言してないし、変数をゼロクリアしてるのも謎

>>215
確かに言われてみれば
キラキラの意味

>>216
本業が税理士なのに、詳しくもないことをひけらかすやつだから、税理士としてもいまひとつの癖のあるやつだと思う。

>>216 彼も他人のパクリなのかもね

ゆとり世代の馬鹿に教えるゆとりかよ

>>146
そいつはバグだと思うよ。
Mougで質問してた人がいて、俺も試したけどTreeViewでのD&Dで座標がバグってる。

で、15ってのはそのバグを何とか実情に合わせたものだと思う。
俺もその時似たようなことやって15っていう数字には覚えがある。

>>221
>>146 です。色々調べた結果、TreeViewのMouseMoveやMouseDownのイベントで渡される座標が他のフォームとは異なりピクセルで渡される事が原因でした。
なのでGetDesktopWindow,GetDC,GetDeviceCapを用いてDPIを取得し、
取得した値で1440(1440twips=1Inch)を割り、
その値をピクセル数に掛ける事でポイントでの換算に成功しました。
標準の設定ですとDPIが96になるそうなので1440/96で15、となるようです。

VB6だとScreen.TwipsPerPixelXってあったんだがなあ

VBAだとPointsToScreenPixelsXとかあるなと思ってみてみたけど、これ、つねに72DPIで計算するっぽいな

>>192
それだと1回めの選択範囲で動いて、移動したら動きますよね？
1回目の行や列を記憶させて2回目で比較する感じですか？

>>222
>>223
うん、その辺みんな知ってるけどTreeViewの問題って違ってたと思うんだが。

動的配列に値を追加していきたいのですが要素番号を0ではなく1から始める方法はありませんか？

Sub testtttt()
Dim arr() As Variant

ReDim arr(1 To 1)
arr(1) = 10
ReDim Preserve arr(1 To 2)
arr(2) = 20
ReDim Preserve arr(1 To 3)
arr(3) = 30

MsgBox arr(1) & " " & arr(2) & " " & arr(3)
End Sub

ちょっとはぐぐれよな
https://www.relief.jp/docs/excel-vba-shift-array-index-to-1-start.html

『[ VBA ]「Option Base 1」使うなよな！反論は聞かない！』

アレイリスト使うほうがかんたんじゃね？

先頭を１にするのはセンスないね

i++とか+=使えないのマジで不便だな
前置インクリメントもできないし一行でもend ifとかloop書かなきゃいかんしめんどくさくね？
この言語もうちょい進化しないの？

１行でEnd If書きたくないならThenの後に半角スペースいれたら改行しないで処理書いてみ

++とかは禿同

>>232
おおこんなことが、、、
ありがとう！

>>231
馬鹿は死ねよ

ガイジ君ブチ切れw

ざわ・・ざわ・・

+=使えるだろうが

使えません

あー、VB.Netスレだと思ってた。スマン、死んでくる。

逝かないで

制御構造は、キーワードの選び方がやや独特だけど、基本的なものについては、概ね他の言語と同等のことはできると思う。
どちらかというと、変数の宣言・定義が一緒にできないとか、配列・コレクションの要素参照が角括弧でなく丸括弧だとか、プロシージャ呼び出しの丸括弧の要否とかの方が不便さを感じるかな。まぁ、これらも慣れと言われればそれまでだが。

gotoとラベルでできるっちゃあできるけどcontinueとbreakが欲しい

breakは、一応Exit 〜が概ね対応しているのでは（While〜Wendでは使えないけど）？
脱出するループを明示的に指定するので、breakより便利な場合もごくたまにある。もっとも、二重のForループから抜ける場合などは結局GoToに頼ることになるので中途半端ではあるけど。

俺もたまにラベルでcontinueするけどめちゃくちゃ見栄え悪くて嫌

>>232
>>233
基本、それは使わないな。
読みやすさとか構造の分かり易さ優先。
勿論、時と場合による。

ユーザーフォームの２つリストボックスで選択された値を変数に代入する方法を教えてください

■Module1
Public str As String

■ThisWorkbook
Sub tes1()

UserForm1.Show vbModeless
Range("A1").Value = str
End Sub

Sub tes2()
Range("A2").Value = str
End Sub

■UserForm1
Private Sub UserForm_Initialize()
Dim r As Long
For r = Year(Date) - 1 To Year(Date) + 2
UserForm1.ListBox1.AddItem r & "年"
Next r
For r = 1 To 12
UserForm1.ListBox2.AddItem r & "月"
Next r
UserForm1.Show vbModeless
End Sub

Private Sub OKbtn_Click()
str = Replace(UserForm1.ListBox1.Text, "年", "") & "_" & Replace(UserForm1.ListBox2.Text, "月", "")
Unload UserForm1
End Sub

テストで変数strをＡ１・Ａ２に入れたいのですが、この方法だとどちらも入りません。

ボタン押してstrに代入するところModule1.strじゃないとダメなんじゃないの

>>248
試しましたがだめでした

追記
ブックを開いたまま、tes1を２回目に実行するとA1には書き込みますが、
ブックを開いて、１回目のtes1実行ではA1には書き込まれないようです。

モードレスだから
ボタン押した時にUnload UserForm1する前にModule1.tes2を呼び出さないとだ

Sub tes1()
UserForm1.Show vbModeless
End Sub

Sub tes2()
Range("A1").Value = str
Range("A2").Value = str
End Sub

>>250
ありがとうございました。解決しました

AccessVBAを使用しているのですが、標準モジュールを変数に格納する方法がわかりません。
フォームコントロールの様に変数に入れて扱う方法はありませんでしょうか。

ありません

Sub test()
MsgBox Me.TextBox1.Value
Me.Name="a"
Me.Name="Sheet1"
End Sub

1回目の実行 OK
2回目の実行 MsgBoxでエラー
3回目の実行 OK
4回目の実行 MsgBoxでエラー

なんでやねん!

>>254
F8 でステップ実行してみ、あとエラーの内容くらい書いてもよくね？

>>253
ありがとうございます。
フォームを格納できるなら標準モジュールも出来るのかと思って質問しました。
標準モジュール内に書かれた関数の引数として参照先の標準モジュールを渡したかったのですが、別の方法を考えてみます。

動画ファイル（拡張子 mp4,avi等々）の長さ（時間）をvbaで得ること出来ませんかね。
動画用のプログラムでは出ているから何らか手段はあると思うのだけど。

>>257
できる
はい、次

>>257
拾い物、動くかどうかは知らん

Sub ボタン1_Click()
Dim Shell, Folder
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.Namespace(Range("A1").Value)
Fil = Dir(Range("a1").Value & "\*.*")
Rows("5:65536").ClearComments
i = 5
Do While Fil <> ""
For j = 0 To 40
Cells(i, j + 1).Value = Folder.GetDetailsOf(Folder.ParseName(Fil), j)
Next
i = i + 1
Fil = Dir()
Loop
Set Folder = Nothing
Set Shell = Nothing
End Sub

手を抜くんじゃない！
まじめにヘッダー読み込んで解析しろよ

ファイルのプロパティからは取れない場合もあるよ

>>255
今環境ないんだけど、
アプリケーションの定義何とかか、
インデックス何とかか、
オートメーション何とかのどれか。
何か変なものがSetされちゃってるのかと思ったけど、
MeじゃMeしかないよね?

>>260
昔、解析したことがある。
aviとかは割と簡単だね。

すごく初歩的な質問ですみません

&演算子で文字列と数字をつないで文字列を作った時に
出来上がった文字列に""を付けなくていいのはなぜなのですか？

MsgBox "あいうえお"　は""を付ける必要がある
MsgBox "A" & hoge は文字列扱いのはずなのに""を付けて MsgBox ""A" & hoge"のようにしなくていいのが解せません

&とhogeは文字列ではなく演算子と変数

""で囲ったら演算子でも変数でもないただの& hogeという文字列にしかならない

ありがとうございます

>""で囲ったら演算子でも変数でもないただの& hogeという文字列にしかならない
なるほど確かにです

では、&演算子でつなぐと文字列扱いになるという認識が間違っているのでしょうか？
それとも文字列扱いにはなるけど上記の理由から外すことになっているという感じでしょうか？

>>267
その場合、
hogeは文字列として認識してください
という命令を出している
つまり
文字列(”A”) と(＆) 文字列(hogeという変数に入っている文字列) を繋ぎ合わせて表示してください
というのが”A” & hoge

ダブルクォートには引数の囲むような意味はない
引数を囲む記号は丸括弧になる
たとえば　X = msgbox("a" & hoge)　みたいな書き方になる
返り値をとらない場合は()が省略可能ってだけ

リテラルと変数について調べると理解できるかも

>>267
hoteの型は何なんだ

値に型ってのがあるのを理解しよう
表示したいのは、"A"という値と変数hogeの値（を連結したもの）だろ

&演算子でつなぐと文字列扱いになるってのは、演算対象を文字列に変換して結合するってこと
この場合、hogeの値が文字列以外でも文字列に変換して評価するってことだ

基本を理解したいなら、なんの説明もなく&でつなぐと文字列扱いとかいう教え方するところは避けたほうが良いかな
とりあえず動けばいいってならまあすきにすればいいけど

MsgBoxの第1引数は文字列型の値である必要があり、文字列型の値を表す式として典型的なのは、�@文字列リテラルか、�A文字列型の値が格納されている変数（文字列型変数）の参照。二重引用符は、文字列リテラルの表記方法に過ぎない。
&演算子は、本来、2つの文字列型の値を被演算数とする演算子だが、被演算数が文字列型の値と数値型の値であるような場合等は、適宜数値の方を文字列型の値に自動変換した上で本来の演算を行う……ということかと。重複になるが。

数値を文字に変換するなら CSTR がある

>>267
法則を暗記するからそうなる。
法則の仕組みを覚えるんだ。

同じフォルダにある"〇〇"というＣＳＶを開いて、そのシートの最終行を取得したいのですが
「インデックスが有効範囲にありません」というメッセージでとまります

Sub salegrp()
Workbooks.Open ThisWorkbook.Path & "\〇〇", ReadOnly:=False
MsgBox Sheets("〇〇").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

他のブックの最終行を表示する方法を教えてください
（Ａ列には最終行まで値が入っています）

csv開いたてからActiveWork ook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Rowすれば

>>276
必要なのは最終行に入ってるデータの内容？行数を知りたいだけ？
全データをワークシートに入れる必要がなければテキストファイルとして開いた方が早いかも

Workbooks.Openの返り値をとってそれを操作する

なおRows.Countも省略せずにシート指定する

>>277
できました。

>>267
Sub tessstttt()
Dim str1 As String
Dim str2 As String

str1 = "あいうえお"
str2 = "かきくけこ"

MsgBox str1 & str2 '結果「あいうえおかきくけこ」

MsgBox str1 & "かきくけこ" '結果「あいうえおかきくけこ」

MsgBox "あいうえお" & "かきくけこ" '結果「あいうえおかきくけこ」
End Sub

>>279
↑
VBA続けるつもりならこっちでやれるようにした方が

他のbookやsheet絡むととたんに冗長になるんだよなぁ
Range(.Cell(a,b))とか .Cellの前にもブックやシート指定しないとならんし

>>283
むしろ1シートだけしか使わない場合でも、実効中に人がシート変更とかしても大丈夫なようにブック明記した方がいい

ブックとシート明示してworksheetオブジェクトの変数作ってそれ経由でアクセスさせるのが鉄板かね〜

csvの最終行だったらテキスト形式でEOFまで吸い上げてってやった方が動作時間的には良さそうな気がした

CSVの読み込みをしっかりやるならPowerQuery使おうみたいな話もあったりなかったり

>>285
てか、基本でしょ

>>288
鉄板と基本の違い教えて

シート明示してないコードほんと多い
よくやるわ

>>279
俺なんて、必ずBookから書くぜ。
WithとSetを多用することになるが。

>>283
その例ならRangeの前にも"."が必要。

>>286
うん、CSVはLine Inputで1行ずつ+Splitで分解にすることが多い。

VBA覚えたての頃はいちいちアクティブシート切り替えてシート指定省いてたけど
Sheet1.Cells(a,b)って書く癖は絶対つけといた方が良いって今は思ってる
可読性が段違いだもん
暫く同じシートのセルをいじくりたおすならWithで目立つように囲ってやりゃあ良いし

>>286
項目中に改行含むcsvとかも存在するからなぁ
汎用的なcsvを真面目にパースするとかなり面倒
そしてEXCELは最強のCSVパーサ(笑)

なんつーレベルの高い話だよ
初心者が覚えようと思ってどんなもんかとスレを見たのが大間違いか

この先いつまで初心者を名乗るつもりか知らないがいちいちアピールしない方がいいよ

>>294
可読性以前に怖いんだよな。
アクティブシートが切り替わっちゃったらどうしようって。
実行中の操作とかで。
DoEvents挟まなきゃ絶対切り替わらないってならいいんだけど。

可読性も考慮するならオブジェクト変数に入れたりWithで囲んだり、頻出する構文なら別Functionに飛ばすという手もある
めんどくさいけどバグを出すよりはマシ

そもそもオブジェクト指定のないCellsがいつでもActiveSheetを参照すると思うなよ

シートモジュールに書いたCellsはそのシートを参照するんだぜ

VBAというよりVBSかもしれませんが
いろいろ試したのですが正規表現の(肯|否)定(先|後)読みに対応していないようなのですが認識に相違ありませんか？
また、擬似的に(肯|否)定(先|後)読みに対応させたコードを誰か公開していませんか？

>>301
多くのアプリで、正規表現はWindowsに標準で内蔵されてるDLLを使ってる
独自の仕様やバグがあるのは既知だから、それが気に入らない時は別のライブラリを見つけてくるしかない

VBSはスレ違いになるんだろうけどさー
今、仕事でそれで書かれたコード見てるんだよねー
VB.NetからVBAに戻るとそのインテリセンスの効かなさに辟易するけど
VBSで書かれたものはその比じゃないねー

参照もなーんも効かないところに持ってきて
インデントも正しく書いてないし
綺麗にスパゲティーコードになってるの見ると
殺意を覚えるわー

まぁVBS自体は同じファイルの中に
複数のクラスが書けたりするところは
VBAよりいいのかな？

見てるだけで殺意はないだろ
自分で分かりやすく直していけばいい

どんな人が書いたコードでも理解できるのがプロ

C列に"2007/3/26"などのような書式で年月日が入っていますが
それをＣ＝年、Ｄ列＝月、Ｅ列＝日にしたいのですが

↓だと年が１９０５,月が１、日が２６日のように変換されてしまいます。

Dim r As Long, dt As date
For r = 2 To 435
dt = CDate(cells(r,3))
Cells(r, 3) = Year(dt)
Cells(r, 4) = Month(dt)
Cells(r, 5) = Day(dt)
Next r

>>306
最初date型で取ってやれば確か年や月や日を取る関数が有ったと思うよー
じゃあねー

>>302
私が気に入りそうなものはありますか？
肯定先読み肯定後読み以上に高度な機能は求めていないのですが

ていうかそうしてんじゃん
出力先のセルの書式はどうなってるの？
コードを見た感じじゃ少なくとも3列目は
日付型みたいだけど

>>306
year、month、dayの引数のdtの中身は2007/3/26ではない

または3、4、5列目の表示形式をそれぞれy、m、dにしてる

>>306
考えなしに書くからセンス皆無なコードだけど3列目の日付が文字列で入ってるならこんなんどうよ

Dim Ary(2 to 435,1 to 3) As Long,r As Long, a As String
For LBound(Ary,1) to UBound(Ary,1)
a = Sheet1.Cells(r,3).Value
Ary(r,0) = Split(a,“/“)(0)
Ary(r,1) = Split(a,“/“)(1)
Ary(r,2) = Split(a,“/“)(2)
Next

Range(Sheet1.Cells(2,3),Sheet1.Сells(435,5)) = Ary

>>313
くそこーどを貼るのはやめてあげて

>>306
セルに表示されている文字とセルの値は別だって理解が必要

おそらく
C列の表示形式が日付になっているが、そこの値を数値の2007にした
数値の2007は日付にすると1905/6/29　その年だけが表示されている
同様に数値の3は1900/1/3、数値の26は1900/1/26

まあ、想定とは違うかもしれんが正しく動いてると思われるな
解決策は、表示したいのは数値なのか日付なのかちゃんと決めて然るべき値と書式を設定しろ

つヵ、C列の値でC列に書き換えるとかしないで
元の値を別の列にもっとけば、VBAなしで関数だけで出来るだろうけど

C,D,E列に表示させたいのは「数値」であるにも関わらず
「日付」の表示形式になっているからおかしくなる

C,D,E列の書式設定→表示形式を日付から標準にする
こうするとC列は39167のような形で表示されることになるが
お構いなしにマクロを動かせば、意図した通りの動きになる

でどう？

>>305
理解出来るからこそ腹立たしいこともあるよー
例えばaとbとcってBooleanの変数を定義して
a = b = c とか書いてるやつ

まぁbとc が同じならaにTrueが、
違えばFalseが入るってことを期待して
書いてるなら見づらいけどまだ許せるよ
でもcにbが代入されてそのままaにbが
代入されるとか思って書いてたらしく
システムバグらせてそのままにしてたりとか
テストどうしてたんだとか思うよねー

正直こんなのに関わりたくないけど
仕事だからやるって感じだねー

あ、逆だった
bにcが代入されてaにbが代入されると
思ってたらしいってことね

まぁこの4日間は連休だし
そうじゃなくてもテレワークだから
気楽に適当にやるつもりだよー

仕事の内容でそのソースを直せってことなら書き直せばいいんじゃねーの
そのまま残すと後任者に同じように思われるんだぜ

>>259
遅くなってしまいましてごめん。自分の欲しかった情報がこれで取れる
事ができました。

ありがと！

>>320
その判断は結構難しい。
今動いてるものは、そのままにしておくというのが通常だ。

Accessでレコードセットループで回してる最中にその値でもって別のレコードセット開いたりを7、8回やって10分かけてデータ作ってるプログラムが有るんだけど、コレ、クエリ1つで出来るんじゃね?と思って試しに作ったら一瞬で出来る。

それでも、正式に変更することになるかと言えばならない。
こっちだってその辺は分かってる。
何かの時に、きちんと作り直しましょうという話になるまで置いとくもんで、むしろそんな話にならずにずっ―とそのままというのが殆ど。

>>322
なら
> でもcにbが代入されてそのままaにbが
> 代入されるとか思って書いてたらしく
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
とか書くなよ
どうせ盛々で語ってるだけだろw

>>323
いやいや、俺はその人じゃないから。

>>322
重要な変更とは別で、こまかい高速化や最適化として変更するんだよ
それができないなら他人のコードを悪くいってはいけない

そうかーみんなそんな具合に考えてるのかー
でも悪いけどその場でチャチャっと直すことはしないよ
もちろん上に話を通すのは当然だけど
こんなぐちゃぐちゃな行き当たりばったりのコード書いてんだから直すんなら他への影響調査の時間貰う
まぁ当たり前だよねー

>>324
本人でもないのに
> でもcにbが代入されてそのままaにbが
> 代入されるとか思って書いてたらしく
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
に対して
> 今動いてるものは、そのままにしておくというのが通常だ。
って言うの？
アホの上塗りにしかなってないけど… w

>>319
実際にそういう動きをする言語もあるからな

>>325
それは開発方法とフェーズによる
いつでも好き勝手コード弄れるような環境ばかりではない
まあ、VBAではあまりないだろうけど

>>326
お前の会社のレベルが低いだけだろ
まあそんな会社にしかいられない自分を省みたほうがいいなw

>>329
ふーん
そっちの会社ではそういうの見つけたら
調べないでチャチャっと直しちゃうのかー
よっぽど優秀なんだねー
俺みたいな無能にはとても怖くて出来ないやーw

>>326
お前以外にチャッチャッと直すなんて言ってる奴いないんだけどw

レベルの話は
> こんなぐちゃぐちゃな行き当たりばったりのコード書いてんだから
の部分な

>>325
いや、そうじゃなくて…
そうか、確かにVBAはそれでメシ食ってる奴は少ないから分からんかもしれんな。

ウォーターフォールでやってて、プロジェクトの目的が決まってるのに、いくら高速化しても余計なことすれば怒られるのが当然なんだよ。
それが原因で不具合が出てみろ。
大変なことになるんだから。

確かに、思いつきでどんどん改変してく仕事も結構やったことある。

>>327
開発全般によくある話として言ったまで。
cとかbとかの話に参加したわけじゃない。

動いてるなら、触らないというのはよくあることだ。

>>328
確かに少ないかもね。
考えてみれば俺も今の職場で初めて。

でも他言語じゃよく聞く話だよな。

>>333
話の流れが読めないバカということはよくわかった

どんなに簡単な修正でも、思い込みやミスは誰にでもある
うっかりエンバグする可能性があるから、先方から高速化などの要求がない限りは動いてる物を勝手に修正はしないのが基本かなあ

修正するか確認してからじゃないとしないな

>>332
それは逆だ、今のコードが悪いかのを直したせいで不具合がおきるのは直し方が悪いせい
自分できちんと直す能力もない奴が今のコードが悪いとか語るなよ

というのは言い過ぎなのかもしれんな、直せる自信がないなら直さないでいいんじゃね

俺から見れば細かい変更もできない人が重要な処理を変更する方が不具合が起きるだろって思うが

なんで動いてるものの話になってるのかわからんけど元々の話は
> システムバグらせてそのままにしてたりとか
> テストどうしてたんだとか思うよねー
だから、修正ありきだろ
修正の手順はその組織で違うだろうけど

ここの会話見てると仕事してる時に戻ったみたいでイヤになる

技術的に可能（can）なのと
プロジェクトとして可能（may）なのはべつだって言ってるんだが

VBA使いを悪く言う気はないが
まともなプロジェクトでやってないから理解できないんだろうな

内製なら結構気軽に弄るもんだよ
俺は以前はSIにいて今は自社サービス兼社内SEだから両方の立場がわかるけど、
システムって君のような外の人が思ってるほど重要なものでも神聖なものでもない

だれも技術的に可能かどうかなんて言ってないのに意味不明なことを言い出してて笑う

企業や仕事がどういうものかを理解していない馬鹿ばっかりで草

内製でも気軽に弄らないなぁ

自分とか周りの数人しか使わないとかならリファクタリングで弄るケースもあるし全社レベルのシステムとかなら影響調査からってケースもあるわな
そのプログラムがおかしくなった時の影響度とかも関係するし
要はケースバイケース

>>338
>>339
先のAccessの話なら直せる自信ならある。
というか、ここにいる奴で俺が出来ないんだったら出来る奴はいないと思うぜ。
それぐらい自信ならある。

ただし、まとも奴なら誰でも言うがバグを出さない自信は無い。

ふと、

日本人のできません
韓国人のできます
中国人のできました

を信用しちゃダメ
って言うのを思い出した… w

>>348
だよな、さすがに自分とか周りの数人しか使わないとかなら
時間見て許可取ってリファクタリングするわ
自分が作ったツールやシステムなら空き時間見て少しづつリファクタリングだな

さすがに全社レベルのシステムで勝手にリファクタリングはないな
そもそも許可取るのが大変

VBAの後継言語がExcelに標準搭載されると知識も勉強時間も無駄になる
と考えてしまいVBAの学習が捗らないのですが、どうしたらよいでしょうか

開発する能力と言語の習熟は別と考えた方がいいと思うよ
弘法筆を選ばずって言うし

>>352
そんな風に考えたことは無いなあ。
その時に必要だから覚えるんだよ。

VBAなんて勉強するもんじゃなくて使っていくうちにわかるもんだし

セルの中身が
--------------------------
あああ３２５ｇｓｄｓが|
aaaojgwe |
33333 |
|
いいｋｓが |
bbb93502g |
^^^^^^^ |
|
|
８８８っふぁふぁ |
aaawopfjw |
ｆ−ｂｇんｌｓｇさ |
-------------------------|
のような感じの際、「あああ３２５ｇｓｄｓが」や「aaaojgwe」のように１行づつ取得する方法はあるでしょうか？

vblfで分割

セル内の改行コードはCRとLFとCRLFがあるのでどれかに統一して
統一した改行コードでsplitすれば

VBAやっててもオブジェクト指向が全然身につかないんだけどどうしよう

>>358
セル内の改行はLFだよ。
キーボード入力ならの話だけど。

>>359
VBAとは別にオブジェクト志向に親和性のある言語勉強すれば?

それがVBAにも役に立つよ。

>>360
よそからコピペしたりするとLF以外も混じるよ
念のため統一する方が安心

>>359
オブジェクト指向を身につけるためにVBAをやっているのか？

>>361
>>363
フローチャートは書けても
オブジェクト指向というものがあるということがなんとなく判っていても
じゃあオブジェクト指向できっちり設計しようという発想が浮かばないというかまだ怖さがあるんだよね
MVCって言葉もネットサーフィンをして先週巡り合ったくらいの素人だから
とりあえず新たな設計手法を試そうと思っても
何に手をつければいいかわからん

=EVALUATE()を使ったらマクロだよって保存するときに言われた。
見た目関数なのに実はマクロっていうものが他にどんなのがあるか知りたいんだけど、こういうのなんて言うの？
検索ワードが思い付かないんだけど知ってたら教えて。

>>364
いや、VBAはあまりオブジェクト志向とは親和性がないんだよ。
VBAそのものの根幹はオブジェクトそのものを扱うし親和性も有るんだけど、それで何かを作る時には俺はあまりオブジェクト志向で作らないな。

それでも、感覚的にピッタリ来るときもある。
そういう感覚の為にも他言語の経験が役に立つ。

でも、VBAでオブジェクト志向って上級者じゃないとピッタリ来ないんじゃないかな。

>>365
Excel 4.0 マクロ

>>367
さんきゅー

>>358
crでセル内改行はしない

フレームワークどうするよ

そもそもVBAが古いMS-BASICの言語仕様をほとんどそのまま踏襲してるもんだからオブジェクト指向との親和性はあんまり高くない
まだVB.netの方が色々やりやすい

>>369
セルをアクティブにするとCRでも改行するらしいよ
自分はそういうよくわからない挙動に振り回されたく無いから変換するよ

>>372
らしいよ

LFとCRLFが混在するのは確かめたよ
なので片方に寄せてる
CRも混ざる可能性はあるのでついでに処理してるよ

>>366
なるほどそうなんですね
別言語で勉強してみます

セル内で改行するとlfが入る
テキストファイルとかでcrlfで改行されたものをセルにコピペすればcrlfがそのまま貼り付けられるが、lf部分が改行されるだけでcrは無視される

もともとマック用のソフトウェアだから、改行コードが揃っていないんだ。

で、そのままの仕様で残すんだろ

変に直すと他で問題が起きるかもしれんし

今開いてるエクセル3つを左右で3分割させるマクロとかありますか？

表示→整列じゃだめなのか？

あるけど、マクロっていうかWindowsAPIで画面サイズ調整だろうな。
3画面用意する方が楽かも。

Windows.Arrange ArrangeStyle:=xlVertical

>>381
ありがとう
>>383
本当にありがとう

馬鹿すぎる質問して親切に教えてくれて本当に感謝
教えてくれたコードの方を頂きます
3画面揃ったときについでに分割させたら良い動きしてくれました

めちゃくちゃ後付けですみませんが
これを一番右でこいつは真ん中とか
任意の配置は流石に無理ですか？
出来そうなら自分でも何とか調べてみます

>>384
できる

こういう馬鹿の特徴は、少し教えるとつけあがって自分で考えることもせずあれもこれもとねだること
少しは頭を使えよ

特徴っていうかこれいつもの人

そういう報告はいらないです

罫線の所属するセルについて質問です

セルの値を条件にして罫線の種類を変えようと考えているのですが、
隣合うセルの境界線はどちらのセルの罫線が優先されて表示されるのでしょうか？
よろしくお願いします

>>390
実験して報告よろしく

後から指定した方だな。
思いっきり拡大すれば、線が2本引いてあるのが見えるのかと思ったが、そんなことはなかった。
ちなみに、ストIIで2人同時に投げ技をかけた場合、どちらが優先されるのかはランダムで50%/50%らしい。

>>390
これ、たしか罫線の種類で、基本ごっつい順に優先順位があったはず
ついでに、セルの書式設定で罫線設定すると、隣のセルの罫線設定も消えたり変わったりする

太いほうだった（Excelばーじょん2016）


印刷境界とかは分けて認識されてるから、なんだかんだ自分のコードを検証したほうがいいな

あ、宣言とかしときながらシート指定するん忘れてやがる

ﾜﾗﾀ

getElementBy飽きたんだけど、RPA的制御じゃなくて、htttp通信を駆使してどうにかする、みたいのない?
APIとか使えない古いシステムに対して。

htttp通信がわからんがセキュリティー的に問題起きるんじゃね

htttpは、ハイパー・トンマ・トンチンカン・タコ・( ´,_ゝ｀)ﾌﾟｯの略かな

>>397
アセンブラやりたいってこと?
というのと同じ話。
InternetExplorer.Applicationじゃ無くてもみんなgetElementBy使う。

こういう便利なものを放棄するならhtmlのソースを自前テキスト処理で頑張るしかないと思うが。

普通はmsxml2.xmlhttpとかでソース取得して、それをDocumentに入れてgetElemetsByだな。

>>397
その辺は自作ライブラリでビブラートに包めばOK

>>401

> >>397
> その辺は自作ライブラリでビブラートに包めばOK

震わせてどうすんのさ。オブラートだろって釣られた

>>400
マジか!
xmlがどうとか、APIがないとダメなんだと思ってたわ。

ん?
それだと、逆に何のためにGUI操作(IE制御)の方法があるの?
初心者用?

>>403
勘違いしてる。
別のAPI使ってるということだ。
で、別のAPIにもgetElemetByが出てくると言ってる。

RPA的制御がなにかよくわからんが
getElementしたくなかったら、API利用してxml取得しろみたいな話を言われたんじゃないか
それでAPI使えないけどgetElementしない方法ないの？と

取得できるものがhtmlなら、すなおにgetElementしとけ　以上
ちなみにxmlだろうとhtmlだろうとcsvだろうと、それは多くの場合httpで取得してるだろうがな

>>402
オブラートに包んでもおかしくないか
普通ラップするとかカプセル化するとか言うんじゃ・・・

>>404
どれもhttp通信でデータを取得できる共通点があるだけで、目的はそれぞれ違う

IEクラスはブラウザを操作する為のコンポーネントの一部
mshttpクラスはIEがスクリプトでhttp通信をするためのコンポーネントの一部
WinHttpRequestクラスはWindowsがhttp通信をするためのコンポーネントの一部
(コンポーネントっていうのはプログラムの部品として使うのが想定されている小さいプログラムのこと)

それぞれ色んなシステムで使えるようにCOMインターフェースっていう取説のようなものが実装されていて、VBAはそのおかげで間借り出来てるだけ
どれもVBAの為だけに作ったプログラムではない

ちなみにIEクラスの利点として、ブラウザ上でjsが実行されているページにアクセスすることができる点がある

それをVBAでやる意味は何？
もっと他に簡単に出来る言語でやれは？

結果をexcelで扱うならVBAが最適では？

CSVで吐いてExcelで開くだけだろう

あーい
あーい
ああああーい

質問させていただきます

ユーザーフォームのテキストボックスにフォーカスがあたってる(入力状態)でwindowsのデスクトップがアクティブもしくは他アプリケーションがアクティブを検知することはできますでしょうか？
タッチパネルなどでユーザーフォーム外をタッチしてしまった時を検出したいです。
できるのであればご教授願いたい…

Windowオブジェクトにどんなプロパティがあるんだっけ

フォームのdeactivateイベント拾ってテキストボックスのフォーカス状態見て処理するとかどうかな

deactivateは用途が違う

HTML, XML, CSV などのスクレイピングなら、
Ruby で、Nokogiri, Selenium Webdriver などが簡単

curl, wget でも、ファイルをダウンロードできるし

Rubyで、nokogiri, curl を使った例

require 'nokogiri'

html = `curl http://www.example.com/`

doc = Nokogiri::HTML( html )

elements = doc.css( "h1" )
puts elements.first.content #=> Example Domain

外部プロセスの起動、待機、出力の取り込みまで実装してくださいよ

Rubyの自動運転は使いやすかったけど
早々にサポート切られたから印象悪い

>>413
調べて見ましたがそれっぽいものは発見できませんでした…

>>414
>>415さんのおっしゃる通りブックやユーザーフォームのDeactivateイベントでは機能しませんでした。

VBAでやる意味?
VBA以外だとアホな操作が必要だぞ。

1.Excelを閉じる。
2.他言語で実行。
3.csvをExcelで開く。

全くアホらしい。
運用についての考え方がまるで違う。

他言語でやる場合ってのはバッチ処理なのか?
それしか無いのか?
そういうブツ切りでデータ加工していくというなら寧ろExcelなんぞ使わん。

>>407
jsしたかったらIEするしかないのね。
今時のHPほぼ全滅じゃん。

>>419
WINAPIでポーリング

イルカのカイル

>>419
そのマルチタスク、マルチウィンドウを否定したい理由は何なの？

>>424
フォームのテキストボックスに機器の計測値が入るようになっており
テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。

>>422
情報ありがとうございます
画像の通りやってみましたがイルカさんは働いてくれませんでした…

>>425
アホとしか言えんわ
そもそも設計が間違えてる

>>425
値を入れる部分を直せよ

RPAとか使ったらこんなおぞましいものができたりするのかな？
でも普通はExcelぐらいサポートしてるよな。。。

むしろRPA向きの案件だと思う

>>425
> フォームのテキストボックスに機器の計測値が入るようになっており
wの前にデータ取得しとるわなw

>テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れない
wそんな業務データを取りこぼすとか意味不明w

>のでおじーちゃんたちにも気づくように
wなんだ？老害か？w

意味がわからないなら黙ってればいいじゃない

業務用ツール作るのってホント大変よな……
使いたい人向けに配信するんじゃなくて、使わされる人に使ってもらうツールだからどんなに優しいUIにしても平気で想像を上回るイレギュラーな操作して動かなくなった！ポンコツめ！みたいなクレーム出してくる人もいるし
単純に新しい物を使いたくないからってワザとメチャクチャな操作したりもしてるんだろうけど
ツールを要求してくる上の人達は現状の環境で対応出来るようにしたいからExcelのマクロでどうにかしてよ！とか言ってくるし、VBAはなんでも出来る魔法のツールだと思ってるし

長々と愚痴ってスマンな
スレチだよな

Windowsの標準のユーザーインターフェイスを意識しないと、使いやすいと思ったものが結局つかいにくくなる。

フォーカスがあたってなくても計測値が取れるように作るという発想が無いのが厳しい。
そんなこと出来ないなら根本から違うユーザーインターフェイスを採用すべき。

こういう処理でユーザーに何かさせる必要は無い筈。

初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが

タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像

COMで操作できるライブラぐらい付いているだろうからそれ使えば解決

>>435
まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。
次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう
とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます…

>>431
知ってた

>>434
かっけぇ

罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。

>>439
テンプレートを隠しシートに保存しておいて、
ボタン押下で書式をコピペしてくるってどう？

>>439
切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは

changeイベントで常に罫線引くことしか思いつかん

移動できないようにする

セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?

>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。

>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？