Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 12/30 17:46 / Filesize : 292 KB / Number-of Response : 1013
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん [2023/01/28(土) 12:12:12.41 ID:UjlIZ1Ov0.net]: !extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 12:23:13.98 ID:+RlrKkV4M.net]: Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
3 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 12:40:41.67 ID:NqcfPhRT0.net]: >>1
乙
4 名前：デフォルトの名無しさん [2023/01/28(土) 15:04:00.65 ID:uWWFw1N+a.net]: 1gj
5 名前：デフォルトの名無しさん [2023/01/28(土) 15:34:06.67 ID:YZOoYTJxM.net]: わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです
6 名前：デフォルトの名無しさん [2023/01/28(土) 21:43:50.55 ID:cCrz+GwL0.net]: エクセルでスクレイピングはできそうだけどね。
7 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 22:05:54.66 ID:cCrz+GwL0.net]: 分かりづらい質問だな。
「エクセルファイルのシートにボタンを置いて、それをクリックしたら
あるアプリを立ち上げたい。これが可能ですか？」

ということかな。答えは可能。
8 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8379-jh2e) mailto:sage [2023/01/29(日) 01:25:58.33 ID:R24XfIrD0.net]: >>6
javascriptに丸投げする形だからそっちの知識も必要になるけどね
IE時代はVB単体で完結できたのに面倒な時代になったな！
9 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9a02-5T4A) mailto:sage [2023/01/29(日) 09:15:12.97 ID:KzySl/Bm0.net]: httpリクエストとか、api接続とか、一般的な表計算の操作が中心の
エクセルユーザーの範囲外なんだけど。
ただ、ExcelでなくてGoogleスプレッドシートはapi接続に相性が良さそう。
クラウドにアプリがあるっていうのは、それだけ優位な気がする。
会社での表計算もほとんど、ExcelでなくてGoogleスプレッドシート使うようになってきて、
今Excelとして残っているのは、過去開発されたマクロで運用する箇所があるから。
こんなことになるとは数年前には思っていなかった。
10 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9a02-5T4A) mailto:sage [2023/01/29(日) 09:19:56.22 ID:KzySl/Bm0.net]: VBAとGASどっちもできるようになるといいね。
11 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 10:26:38.51 ID:nRF7bUNu0.net]: A列セルに3桁のアルファベットと番号(ＡＡＡ 1000)、B列セルに金額が入っており
A列セルは番号部分が同セル内に/で区切られ増えるパターンあり(ＡＡＡ 1000/1001/1002)
これを/がある場合は/で区切り、番号ごとに行を追加して
更にB列の金額も追加した行数で分割するといったことを最終行まで繰り返し処理したいのですが

　　　　A列　　　　　 B列
AAA 1000/1001 　1,000
　　　　　　　↓↓↓
　　　　A列　　　　　 B列
AAA 1000　　　　　　500
AAA 1001 　　　　　500

金額を行数で分割する方法と
番号ごとに行を追加した時にアルファベットAAAを番号前に追加するにはどうすればよいでしょうか。
12 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 10:28:09.50 ID:nRF7bUNu0.net]: 続き
コードはこれなのですが
どうかよろしくお願いします

Dim i As Long
Dim n As Long
Dim LastRow As Long
Dim SplCell As String
Dim temp As Variant
Dim AddRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1
　　SplCell = Cells(i, 1)
　　temp = Split(SplCell, "/")
　　AddRow = UBound(temp)
　If AddRow > 0 Then
　　Range("A" & i + 1).Resize(AddRow).EntireRow.Insert
　End If

　For n = 0 To AddRow
　　Cells(i + n, 1) = temp(n)
　　Cells(i + n, 2) = Cells(i, 2)
　Next n
Next i
End Sub
13 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 11:46:37.73 ID:WTXbQyE20.net]: >>12

考えてみた。

Sub test()

Dim i As Long
Dim n As Long
Dim LastRow As Long
Dim SplCell(1) As String　←変更。(0)はアルファベットを格納、(1)はアルファベット以降の金額部を格納。
Dim temp As Variant
Dim AddRow As Long
Dim m As Double　←追加。行数で分割した金額。

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1
SplCell(0) = Left(Cells(i, 1), 4)　←追加
SplCell(1) = Mid(Cells(i, 1), 5)　←変更
temp = Split(SplCell(1), "/")
AddRow = UBound(temp)
If AddRow > 0 Then
Range("A" & i + 1).Resize(AddRow).EntireRow.Insert
End If

m = Cells(i, 2) / (AddRow + 1)　追加
For n = 0 To AddRow
Cells(i + n, 1) = SplCell(0) & temp(n)　←変更
Cells(i + n, 2) = m　←変更
Next n
Next i
End Sub
14 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ db10-+rQD) mailto:sage [2023/01/29(日) 12:05:26.37 ID:nRF7bUNu0.net]: >>13
ありがとうございます！！
希望通りに動きました。

助かりました。すごく嬉しいです。
15 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr3b-O9ZV) mailto:sage [2023/01/29(日) 14:40:20.12 ID:cIjm/G+Or.net]: >>9
It sounds like you are saying that Excel users may not have experience with things like HTTP requests and API connections, but that Google Sheets may be better suited for those types of tasks because it is a cloud-based app. You also mention that your company has been transitioning away from using Excel and towards using Google Sheets for most of their spreadsheet needs, with the exception of some areas where older macros developed in Excel are still in use. It's interesting to see how technology and user preferences can change over time.
16 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fda-2biX) mailto:sage [2023/01/29(日) 15:11:19.34 ID:GtadNWQm0.net]: looks like　〇
sounds like　×
17 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 15:15:30.68 ID:KzySl/Bm0.net]: なんで英訳
18 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 15:18:51.71 ID:cIjm/G+Or.net]: ChatGPT
19 名前：デフォルトの名無しさん [2023/01/29(日) 16:52:45.66 ID:wtQ124Fo0.net]: こっちも零細企業荒らしがいるのか
20 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 18:16:29.96 ID:OkpG00lK0.net]: クラスモジュールを使っていく勉強しています。
ClassAのプロパティとしてClassB,ClassCから作るオブジェクトを持たせる事で階層型に
整理できるようですが、これも正しいオブジェクト指向の形なのでしょうか？

メインコードからObjA.ObjB.プロパティAみたいに呼び出せるのです。
ObjAは例えば初期値というカテゴリ
ObjBは初期値の中の日付に関連するもの
ObjCは初期値の中の料金に関するもの
ObjA.の時点で候補が出てくるのも便利です。なんだかただの変数みたいに使ってる気もしますが。

そしてJavaでいうところのメソッドの継承ですが、親側ObjAのメソッドと同じ名前のメソッドを子側ObjBに作り、
中身は親側ObjAのメソッドを呼び出すだけとすれば継承と同じ動作をするような気がします。
子側クラス内で親側クラスのインスタンスを作成しているので、循環しているような気持ち悪さはありますが、内部はメインコードからは見えませんし。
オーバーライド？というのも親側ObjA側のメソッドを呼ばずに子側のObjBのメソッドに処理を好きなように書けばいいだけと思いました。

そして関数型にありがちな関連性のない関数群Module1とかもClassMultiにプロパティのないクラスとして書いて、
オブジェクト化すると、マルチに活躍する便利屋みたいな存在として、これもオブジェクト指向な気がしてきました。

しかも先ほどの継承みたいに別のクラスから同名メソッドで呼ばせれば、同じメソッドをクラス毎に書く必要もありません。
メイン側から見るとオブジェクト指向そのものにも思えます。

オブジェクト指向を人間や動物に例えると、とてもわかりづらかったのですが、
ネームタグみたいな説明をしているサイトから、単なる整理整頓の為の思考技術みたいに考えて。
見せかけのオブジェクト指向を目指してみると、本物と大差ない気がしてきているのですが間違っていますか？

このままなんちゃってオブジェクト指向で進むことをお勧めできない理由がありましたら教えてください。
CallByNameとかImplementsとか勉強すればもっと本物に近づくような気がしています。
21 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 21:58:40.35 ID:TymAj0Je0.net]: Excelスレでも荒らしてるヤツがいるなここ
22 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 23:11:48.83 ID:QtxW6Mg40.net]: ワッチョイ付きに誘導されますた。

Type RecClass0
　field01 As String * 6
End Type
Type RecClass1
　field01 As String * 4
　field02 As Integer
End Type

Sub test()

　data = "abcdyyzzzz・・" ←　HEXにすると "414243440006??????・・"

　Dim rec0 As RecClass0
　Dim rec1 As RecClass1
　rec0.field01 = data

　rec1 = rec0　　　←型が一致しません

　Debug.Print Len(rec1.field02)
End Sub

dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。
23 名前：デフォルトの名無しさん mailto:sage [2023/01/29(日) 23:33:48.49 ID:5iJXY4pQ0.net]: >>22
LSETじゃダメなのか？
24 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 03:06:05.93 ID:yj3XWjhj0.net]: >>23
できました
25 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3619-GWjr) [2023/01/30(月) 08:01:49.37 ID:1uz9zngm0.net]: >>20
> 子側クラス内で親側クラスのインスタンスを作成しているので、循環しているような気持ち悪さはありますが、内部はメインコードからは見えませんし。

堅牢性から考えるとVBAに限らずここがまずいかな
子クラスCで親クラスAを生成すると言う事は、
もし同じような親クラスDを作成して同じ子クラスを
使おうとするとその中で親クラスAを作成することが
前提となってしまい、親クラスDでは使えない場合が出てくる。

子クラスではあくまで子クラスの役割を
与えるべきであって、もし親クラスの機能を
使いたいなら直接子クラスの中で生成するのではなく、
CallByNameやインターフェースを使用するかして
処理を移譲させるようにした方がいいと思うよ。
26 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC) [2023/01/30(月) 09:39:47.20 ID:e2a+Lyz1d.net]: CSVファイルって、Excelで開いて編集して保存すると文字コードの問題でデータの後ろに半角スペースが入ることがあるのでしょうか？
27 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC) [2023/01/30(月) 09:40:56.25 ID:e2a+Lyz1d.net]: 元々半角スペース入ってなかったのにデータをかきかえたりすると文字コードがShiftJISではない場合、文字化けして半角スペースが入るのでしょうか？
28 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 10:51:56.77 ID:Vha856Nid.net]: ここはVBAスレなのでスレチでは？

Excel総合相談所 144
https://egg.5ch.net/test/read.cgi/software/1619665985/
29 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 11:54:01.10 ID:beImLHJmr.net]: >>26
https://www.officepro.jp/exceltips/tips_format/index19.html
これとか？
セルの表示形式の問題？
30 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC) [2023/01/30(月) 15:20:40.00 ID:e2a+Lyz1d.net]: >>29
たぶん、それだわ
ありがとう
31 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 15:57:22.13 ID:dCL8a0ux0.net]: >>29
その記事、余白と空白文字（半角スペース）を同一視してるのが気持ち悪いな
32 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 19:11:31.03 ID:uxYUj7Ria.net]: >>31
そうは言ってもExcelだと余白を空けるのに空白しか使えないから仕方なくね？
33 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 21:40:04.89 ID:dCL8a0ux0.net]: >>32
正しい余白ならインデントってのがあるが

CSVにしたらどうせ書式はなくなるのに、書式を空白で表そうとするEXCELが気持ち悪いのか
そのくせインデントは無視するという
34 名前：デフォルトの名無しさん mailto:sage [2023/01/30(月) 22:17:38.88 ID:uC26F0Aa0.net]: >>33
なるほどインデントは忘れてたわw
35 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-DSsr) mailto:sage [2023/01/31(火) 05:21:30.98 ID:JnYo5yDia.net]: 余白はデータじゃなくて、見た目。
見た目のために、データを変更するのか？

それなら、trim などで、データの先頭末尾の空白類を除去する必要がある
36 名前：デフォルトの名無しさん [2023/01/31(火) 12:24:23.88 ID:XEbPQm8Ra.net]: 余白は木を切る～
37 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f10-exzg) mailto:sage [2023/01/31(火) 15:00:10.31 ID:bFYKhQ9l0.net]: うまい！座布団何枚？
38 名前：20 mailto:sage [2023/02/01(水) 15:16:25.31 ID:J3cdB8RP0.net]: >>25
レス感謝です。
呼び出しだけなので「お父さんやって」的なイメージでした。

＞もし同じような親クラスDを作成して同じ子クラスを
＞使おうとするとその中で親クラスAを作成することが
＞前提となってしまい、親クラスDでは使えない場合が出てくる。

ここがわかりませんでした。

ClsFatherとClsSonの二つがあるとします。
メインでClsFatherから父親シルバを作成、
自動的にClsFatherの中で息子キルアが作成されて父親のプロパティにセットされる
親クラスDにあたる父親ジンをClsFatherから作成して、息子ゴンがを作成される
息子ジンが継承もどきで使う機能は父親ドンのだけのつもりでしたが、
継承って本来は父親シルバ、息子ゴンみたいな組合せも自由に出来るものって意味だから
それじゃ違うよってことですか？

息子ゴンのメソッドでどの親メソッドを継承するかをImprementsとかで動的にしなさいということですか？
39 名前：デフォルトの名無しさん mailto:sage [2023/02/01(水) 18:01:33.64 ID:lcTv0p8q0.net]: >>38
親が子を生成するのはいいけど、お前の設計では子が親インスタンスを生成するんじゃないのか？
ジンがゴンを生成しても、ゴンの親はゴンがきめるんだぞ
40 名前：38 mailto:sage [2023/02/01(水) 19:12:55.35 ID:J3cdB8RP0.net]: >>39
そうです。子も親のインスタンスを生成します。
当然オブジェクトとしては別物ですが、同じクラスからの生成ですので、
同じ親の機能を使えるという意味です。

実際にゴンはジンを作れず、ジンとほぼ同じ能力を持つ別の何かの力を使って
継承に見せかけるという事です。

この見せかけ行為が本当の意味での親オブジェクトの機能継承にあたらず危ないよって意味でしょうか？
で、本当の意味での親オブジェクトの機能を使うならCallByNameやImprementsを使いなよって意味でしょうか？
41 名前：40 mailto:sage [2023/02/01(水) 22:04:53.94 ID:J3cdB8RP0.net]: すみません。質問途中に別の質問をする事になってしまいます。
自力で解決出来ませんでした。

VBEのCtrl+hボタンで出てくる置換機能で、パターンマッチングを使用するにチェックを入れました。
Ai.Erase
Ai.Create
AiErase
AiCreate

この4つのワードにおいて、パターンマッチングとして
Ai[AE]としたら下の二つにだけマッチングしました。
そしたら一致したAとEは温存しつつAiとA or Eの間にどっとを入れたいのです。

実際はもう少し複雑なパターンなのですが。簡略化するとこんな感じです。
一致したAとEが消えてしまうので困っているのです。
一致した[AE]のどちらかをそのまま残したいと
Ai.[AE]みたいにしても置換後文字列はAi.[AE]がそのまま出てきてしまいます。

思ってるような使い方は出来ないという事でよろしいでしょうか？
42 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8a3d-0rrK) mailto:sage [2023/02/03(金) 01:33:26.18 ID:0K9bvbAh0.net]: Sub test_if()
a = -1
If a >= 2 Then
Debug.Print "aは2以上"
Else
Debug.Print "aは2未満"
End If
End Sub

というマクロなんだけど<>を使わずに同じことが可能？
<>はネット上では禁止されてる場合があるので。
43 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 06:07:59.84 ID:VZIBsXzk0.net]: 範囲を指定できるのであればCase文でtoを使うとかかな
44 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 07:22:57.06 ID:3sKN4Loqa.net]: >>42
完全に同じかどうかは知らんが
If Application.WorksheetFunction.Min(a, 2) = 2 Then
45 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 11:32:43.16 ID:bf4OLvi00.net]: オートフィルタの或る列が昇順でソートされているかどうか
を判定する方法を教えて下さい。
46 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 11:36:12.10 ID:bf4OLvi00.net]: >>45
昇順か降順かは問わず、ソートされているかどうかでした。
47 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 19:20:46.12 ID:UC5jDXxN0.net]: >>45
自分でソートしたものと比較して同じ順番だったらソートされているといえる
48 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 19:24:07.79 ID:fZLyE03H0.net]: いや待て、どっかのプロパティにフラグがないかを尋ねてるんだと思うぞ
俺は知らないがな
49 名前：デフォルトの名無しさん mailto:sage [2023/02/03(金) 20:25:48.41 ID:6Slrjruv0.net]: フィルターのボタンに↑↓とか表示されない？抽出とかだとﾛｰﾄの図が出てたり？
50 名前：デフォルトの名無しさん [2023/02/04(土) 01:29:18.62 ID:Wbq5qWPo0.net]: >>38
そそ、
そういう「どっちの親でも使える」ようにするために
そういう場合は継承は使わずに、移譲でやるのがいいんじゃないかと。
そもそもVBAじゃ厳密な意味の継承は使えないけどね。
51 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 03:13:48.63 ID:5cp+GCIG0.net]: 一次元配列の中に二次元配列を入れるのってシートから二次元配列として取り込まない限り無理ですか？
例えばa(2)って一次元配列を作って
a(0)＝cells(1,1).currentregion
とした場合、a(0)(1,1)と格納されるよね。
一方、b(2)って一次元配列をつくってそこに2次元配列を格納しようとしてredim b(0)(100,100)って宣言してもエラーになるよね？
52 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 03:22:13.04 ID:5cp+GCIG0.net]: 特に複数のcsvを一次元配列ごとに二次元配列として取り込みたかったんたけど、それができなくて困ってます
0.csv→a(0)に二次元配列として格納
1.csv→a(1)に二次元配列として格納
2.csv→a(2)に二次元配列として格納
よくありそうなパターンですけどネットで調べても出てこなくて…
何かいいアイディアはあるでしょうか？
53 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 06:12:27.84 ID:JIMr/Iwq0.net]: >>52
csvを格納するならそのまま格納して取り出すときにsplitで配列化したらどうか。
デリミタ変えてcsvを繋げてあげれば擬似的に2次元配列に出来んじゃね?
54 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 06:14:50.01 ID:JIMr/Iwq0.net]: >>53
あるいはdirectoryのitemに2次元配列としてaddするか
55 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 06:19:01.21 ID:JIMr/Iwq0.net]: >>54

> >>53
>スマン。directoryじゃなくてdictionaryだｗ
56 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 08:21:23.33 ID:XHbOUS2x0.net]: >>48
その通りです。ネット検索しても出て来ないため、ここで聞いてみてどうかなと思いました。
>>49さん仰るように矢印がボタンに表示されるので、何かあるはずと思ったのです。
57 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 09:06:33.92 ID:YYLIzwcR0.net]: >>45
ググっただけだけど
Worksheet.AutoFilter.Sort.SortFields
あたりを見ればわかるんじゃね？
てかMSのDocsもこの辺りのドキュメントが貧相で困るわ
58 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 09:14:10.73 ID:xQtdr6Ugd.net]: >>45
AIさんからの天の声です

Sub CheckSortOrder()
Dim sortOrder As Boolean
sortOrder = ActiveSheet.AutoFilter.Sort.SortOn
If sortOrder = True Then
MsgBox "The column is sorted in ascending order."
Else
MsgBox "The column is not sorted in ascending order."
End If
End Sub
59 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8fda-EOzK) mailto:sage [2023/02/04(土) 10:59:33.56 ID:mzRI23fF0.net]: >>58
だからさ、そのコードが有効かどうかを、先ずはじぶんで検証しろよ　ゴミコードだろうと何でも貼りゃあいいってもんじゃねーぞ
△！　オブジェクトは、このプロパティまたはメソッドをサポートしていません。だぞ　おま環のせいで動作しないだけってか？
検証もしてない野良コードは世間の大迷惑　AIなら間違わないってか？　訊ねる人間側に問題あるからゴミコード吐くのに気付け
60 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sddf-D+99) mailto:sage [2023/02/04(土) 11:20:43.51 ID:EUGDlgP1d.net]: >>59
そのコードを検証することは重要です。そのコードが有効かどうかは、まず自分で確認する必要があります。「AIなら間違わない」という考え方は誤りです。AIモデルはトレーニングデータから学習するだけであり、常に正確ではありません。野良コードを使用しても問題が起こる可能性があり、それが世間を混乱させることがあります。
61 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4f01-Rev0) mailto:sage [2023/02/04(土) 13:12:21.87 ID:sIc7L3oe0.net]: >>53
「csvを格納するならそのまま格納して」って言うのが、まさにその方法を知りたいっていう質問でした
Line Inputをつかって一行ずつ一次元配列に分割して、それを二次元配列に格納して、二次元配列の一次元目を増やして…ってのを繰り返すってのを考えました
（二次元配列の一次元目を増やすプロシージャを作成する前提）
ところがredim b(0)(100,100)という宣言自体がエラーになるのでどうしたものかと
62 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 14:48:40.79 ID:JIMr/Iwq0.net]: >>61
お役に立てたのならなによりっす。

でもその内容を聞いた感じだとcollectionかdictionaryを使ったほうがいい気もする。csvがどのくらいの文字数かわからんけど下手するとオーバーフローしそうな気が、、、

あとそもそもファイル操作で読み込むんじゃなくてPowerqueryとかでデータテーブル化してしまえば扱いやすい気も、、、あ、スマンね。いらぬお節介やった。
63 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 18:22:34.02 ID:Av2vQos/0.net]: >>61
そういうのって1次元の配列にCSVから作った2次元配列を足していくジャグ配列だよね
a(b)(c,d)として使いたいってそういう事だよね
CSVから2次元配列に落とす部分は自力で適当に作るしかないと思うよ
64 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 19:42:17.96 ID:3xAEA7yN0.net]: >>52
２次元配列を格納したバリアント型の1次元配列を使えばまあできるんじゃね
65 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 22:05:52.42 ID:sIc7L3oe0.net]: >>62
ジャグ配列はまさにその通りです！
色々調べてみたところ、Workbooks.OpenTextで一度新しいブックを開いて、そこをcurrentregionで二次元配列として取得するのが一番早そうでした
シート一度貼り付けて、そこから取得するのがちょっとかっこ悪い気もしますが、コード的には一番楽のだと思うのでそれでいきたいと思います
ありがとうごさいました！
66 名前：デフォルトの名無しさん mailto:sage [2023/02/04(土) 22:07:02.46 ID:sIc7L3oe0.net]: >>63
すみません、安価こっちでした
>>62さんも>>64さんもありがとうございました！
67 名前：デフォルトの名無しさん mailto:sage [2023/02/05(日) 06:12:14.98 ID:zxOMW0wY0.net]: >>65

解決の糸口が見つかってよかったです。
シートに貼り付けるのは一見かっこ悪く見えるかもしれませんが、エクセルの場合シート自体が目視できる2次元配列みたいなものなのでデータ用のシートを用意しておくのはデバッグの意味でも有効と思います。
最終的に非表示にしておけばデータを変えて不具合が出たときに参照できますしね。
68 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cf79-p19T) mailto:sage [2023/02/05(日) 17:55:21.75 ID:IrR7f/G90.net]: シートに読み込ませてUsedRange.Valueで二次元配列を取得する場合はインデックスが1オリジンになるとこだけ注意
69 名前：デフォルトの名無しさん mailto:sage [2023/02/08(水) 13:33:38.06 ID:yPPt1d0+d.net]: 名前の定義で範囲に名前をつけると数式で使用できますが、
VBAで自作関数を作り、その引数として定義した名前を使用するとエラーとなってしまいます。
一応定義した名前の後に&“”を付けて文字列化すればエラーを回避できるのですが、毎回これを入力するのは煩わしく見栄えも悪いのでできることならなんとかしたいのですが
解決策ありましたらご教示の程お願いいたします。
70 名前：デフォルトの名無しさん mailto:sage [2023/02/08(水) 14:59:06.65 ID:oAUh4t2x0.net]: その関数のシグネチャとエラーメッセージぐらいかけよ
71 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa93-4QSx) [2023/02/08(水) 15:37:35.62 ID:FTgAG7p2a.net]: 毎回やるならインターフェース関数作ればいいだけ
72 名前：デフォルトの名無しさん mailto:sage [2023/02/08(水) 20:18:25.84 ID:GAx9K2n2d.net]: >>69
実現したいことがどんなことなのかわからないけど名前定義した範囲をRange型の変数にsetしてRange型のまま引数として渡しちゃいかんの?
73 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd5f-dHSc) mailto:sage [2023/02/08(水) 23:15:53.95 ID:Gaz3gRVpd.net]: 言葉でうまく説明できないので画像で説明させていただきます。
例えば引数の文字列に別の文字列をくっつけて返すだけのシンプルな関数を作ります。
当然引数にセルを指定すれば問題なく使用できます。
https://i.imgur.com/SnSyEby.png

次に、範囲に名前をつけてそれを引数として使用します。
https://i.imgur.com/6mcu5nn.png

するとこのように「#VALUE!」エラーが出ます。
https://i.imgur.com/9NNr0sB.png

ちなみに範囲の名前に&“”をつければ期待通りの結果になります。
https://i.imgur.com/haXX7gC.png

と、SS撮ってて気づきましたが範囲の中から同じ行のセルを選んで渡す必要があるのですね。
VLOOKUPの第一引数なんかで同じことをすると自動的に同じ行だけを渡せるので勘違いしていました。
74 名前：デフォルトの名無しさん [2023/02/09(木) 07:05:59.22 ID:bJr31kU+0.net]: >>73
検証してないので的外れかもしれないけどたぶんRangeのデフォルト値の問題かと。
うろ覚えだけどvariant型で渡されているからセル単体を引数で渡すとセル内容の値の型（今回はstring型）を渡すけど
複数セルを渡すとrange型のオブジェクトとして渡されてるんじゃないかな。
なので自身で書かれているようにセルを特定してあげないといけないのだと思う。
75 名前：デフォルトの名無しさん mailto:sage [2023/02/09(木) 23:30:18.42 ID:TUokDGw70.net]: >>73
>範囲の名前に&“”をつければ期待通りの結果になります
のがおかしい気がするんだが。実際こっちで検証してもエラーになってる
ちょっと環境書いてみて
76 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fa3d-n4dK) mailto:sage [2023/02/13(月) 03:20:36.33 ID:COtuPGR00.net]: Sub test()
a = 0.2
b = 0.4
If a + b = 0.6 Then
Debug.Print "A"
Else
Debug.Print "B"
End If
End Sub

これってAじゃね？
77 名前：デフォルトの名無しさん [2023/02/13(月) 07:05:23.93 ID:HpzJjAlxd.net]: >>76
Excelでは少数を厳密には表現できないから
0.1と書いても実際の値には0.12...みたいなのが入る
そのズレた値同士の足し算をズレた値と比べるからガタガタで合わなくなる
78 名前：デフォルトの名無しさん [2023/02/13(月) 07:53:01.46 ID:/kiwbSJJ0.net]: >>76
きちんと型宣言すればちゃんと計算できる
詳しくは下を見た方が早い
https://excel-ubara.com/excelvba4/EXCEL_VBA_427.html#:~:text=Single%EF%BC%88%E5%8D%98%E7%B2%BE%E5%BA%A6%E6%B5%AE%E5%8B%95%E5%B0%8F%E6%95%B0%E7%82%B9%E6%95%B0%E5%9E%8B%EF%BC%89%E3%81%AF4%E3%83%90%E3%82%A4%E3%83%88,%E7%99%BA%E7%94%9F%E3%81%97%E3%81%A6%E3%81%97%E3%81%BE%E3%81%84%E3%81%BE%E3%81%99%E3%80%82
79 名前：デフォルトの名無しさん [2023/02/13(月) 10:13:40.33 ID:QGUistpWa.net]: >>76
ほんとだよく気付いたねって言ってほしいのか？
80 名前：デフォルトの名無しさん [2023/02/13(月) 10:18:31.40 ID:86tN/4J60.net]: すみません、マクロスレに誘導されてきました。教えてください
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel16.0
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
◆やりたいこと
データモデルに値を格納し接続先を作成している
その接続先にあるリストを、検索フォーム、コンボボックスなどのデータソースにしたい
◆補足情報とし調べがついてること
・ピボットテーブルにはビボットテーブル→データモデルからで設定できた
・選択リストもINDIRECT関数で設定できた
・コンボボックスや検索フォームは、RowSourceTypeにテーブルクエリーを設定
・RowSourceプロパティにテーブル名を設定
ここまではわかっていますが、うまく設定ができません

具体的には、下記コードでエラーが出ます
実行時エラー‘13’
型が一致しません

エラーの出たコード
Privets Sub UserForm1 Initialize() {
Me.ComboBox1.RowSourceType = “Table/Query”
Me.ComboBox1.RowSource = “syamei1”
}

上記のコードの書き方、サンプルコードがあれば教えて下さい。よろしくお願いします
81 名前：デフォルトの名無しさん [2023/02/13(月) 10:21:58.10 ID:86tN/4J60.net]: 連投すみません
コンボボックスじゃなくても構いません
やりたいことは大量のデータをもとに入力用のポップアップウインドウを作りたいです
レコードが合計で100万以上あり、重たくなるのを避けるために、データモデルの概念を知り、それで入力フォームを作ろうとしています
その方法でコンボボックスを見つけましたが、元となるデータソースがデータモデルの接続先から選べるなら、コンボボックスの形式じゃなくても構いません

入力規則で選択リストの値を持ってくることはできましたが、レコード件数が多いので、フォームで出したいと思っています

よろしくお願いします
82 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa4f-qaxQ) [2023/02/13(月) 11:40:19.98 ID:GyFZ7uvya.net]: Privets ？
83 名前：デフォルトの名無しさん [2023/02/13(月) 14:18:20.91 ID:86tN/4J60.net]: スマホ手打ちなので誤字は勘弁を
84 名前：デフォルトの名無しさん mailto:sage [2023/02/13(月) 17:29:24.70 ID:pezzuKY30.net]: スマホで5ちゃん見てる人も多くなったのか
85 名前：デフォルトの名無しさん [2023/02/14(火) 11:37:45.99 ID:nNkhowbBa.net]: 拙者も携帯なので試せないでござるよ
86 名前：デフォルトの名無しさん [2023/02/14(火) 13:19:18.08 ID:YTnfnco6a.net]: 現場で使えるテクニック満載のVBAの本を教えて下さい。
87 名前：デフォルトの名無しさん mailto:sage [2023/02/14(火) 22:18:21.54 ID:h0+uN4JM0.net]: 見てどうする？
現場に活かせるとは限らんぞ
88 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ aff9-UHi0) [2023/02/15(水) 09:38:23.37 ID:dWAC20qI0.net]: syamei1ってテーブルを指定してるようだけど
ちゃんとテーブルが存在してるの？
RowSourceでクエリやsql指定してみたら？
89 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ deda-D0vN) mailto:sage [2023/02/15(水) 19:02:02.67 ID:8XlBz3tg0.net]: >>87
活かせる現場に転職するんじゃね
90 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c619-xn9B) [2023/02/15(水) 19:27:38.40 ID:HlAv3bv30.net]: ネットが見れない環境なんかね？
銀行系ではよくある話だけど
91 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0710-hSWQ) mailto:sage [2023/02/15(水) 19:39:09.60 ID:UoMCmZrt0.net]: 絆創膏テクニック的な本はたくさん出ているでしょ
92 名前：デフォルトの名無しさん mailto:sage [2023/02/15(水) 20:32:13.82 ID:8XlBz3tg0.net]: 銀行でお金の計算を初心者が本見ながらEXCELのVBAで作ってるとか
そんな銀行やばくね
93 名前：デフォルトの名無しさん mailto:sage [2023/02/16(木) 02:33:56.63 ID:v5+0ZrcQ0.net]: ヤバいよそれは。
思い出したけど、どこかの銀行がATMの不具合出した事故を思い出したわ。
それと同じようなトラブルになるのでは？
94 名前：デフォルトの名無しさん [2023/02/16(木) 14:14:15.80 ID:TeVuhO500.net]: Excel 365なんだが
ActiveXのコンボボックスをシートに配置すると
ブックを閉じるときにコンボボックスのChangeイベントが発生して
Changeイベントのコードが実行されるんだが、なんで閉じるときに発生するん？
バグじゃねーの？
95 名前：デフォルトの名無しさん [2023/02/16(木) 17:40:38.79 ID:ImcZX1+Nd.net]: アクティブXコントロールでボタン作ると、ボタン押した時にボタン内の文字が左に寄るのですが、これは治せるのでしょうか？
96 名前：デフォルトの名無しさん mailto:sage [2023/02/16(木) 17:44:23.49 ID:IvN11mYG0.net]: ActiveXオブジェクトは、自分(Application)のオブジェクトに見えても、実は外部のオブジェクトです
Application イベントの扱いで記述不足や漏れが無いか、プロパティの見直しなどしてみるかコードを貼ってみるなり
97 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0710-hSWQ) mailto:sage [2023/02/16(木) 20:35:33.62 ID:v5+0ZrcQ0.net]: ActiveXってExcelで使わない方が良いみたいな記事(日経PC)で見た記憶ある
98 名前：デフォルトの名無しさん [2023/02/17(金) 07:12:43.98 ID:WORa0xXL0.net]: ActiveXはExcelシートで使うもんじゃないってのは今でも定石！
99 名前：デフォルトの名無しさん [2023/02/17(金) 10:04:33.80 ID:o2LVTB4Vd.net]: https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c

Excel2016のバグなんですね
100 名前：デフォルトの名無しさん [2023/02/17(金) 10:05:10.85 ID:o2LVTB4Vd.net]: https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c
101 名前：デフォルトの名無しさん mailto:sage [2023/02/17(金) 10:15:37.69 ID:znCeXLfL0.net]: そんな古いVer使い続けるなよ　スタンドアロンで一台こっきりならまだしも
102 名前：デフォルトの名無しさん mailto:sage [2023/02/17(金) 15:42:35.67 ID:WFsPqw+S0.net]: 検索で例えば「あ」という文字をすべて探し出して
その一文字前を選択したいんですがどうすればいいですか？
Selection.Find
　.Text = "あ"
　Selection.Words.First.Previous.Select
としてみましたがうまく行きませんでした
カーソルのある前の文字が選択されます
103 名前：デフォルトの名無しさん mailto:sage [2023/02/17(金) 16:30:19.83 ID:KwkbTkoud.net]: >>102
複数の選択ができると思ってんのか？
104 名前：デフォルトの名無しさん mailto:sage [2023/02/17(金) 17:31:12.72 ID:WFsPqw+S0.net]: >>103
できないんですね…VBA触ったの今日が初めてなもので
最終的には"あ"の一文字前だけをフォント変更したいんですがどういう実装ならできそうか分かりませんか？
105 名前：デフォルトの名無しさん mailto:sage [2023/02/17(金) 20:35:48.06 ID:clT0gqvf0.net]: >>104

自分なら検索して見つかったセル毎に
「あ」が何文字目にあるかを取得し、
その１文字前のフォントを変更するというふうに組む。
106 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4600-XLfl) mailto:sage [2023/02/17(金) 20:59:53.94 ID:WFsPqw+S0.net]: >>105
ありがとうございます
けど"あ"が複数あるセルも多いので…複数回走査したらループ終わらなくなりますし
"あ"は目印として入れてあるだけで最後にまとめて消すつもりだったんですが
一回フォント変更の処理したらそこの"あ"を消しても�
107 名前：､一度検索がいいんでしょうか… []: [ここ壊れてます]
108 名前：デフォルトの名無しさん [2023/02/17(金) 22:23:30.64 ID:v2XGnFXnd.net]: >>106
Mid( Range.value, x)で
セル内のx文字目から後ろを切り出せる
Instr( Mid( Range.value, x), z)で
セル内のx文字目から切り出した中で文字列zが何文字目にくるのか知ることができる
Range.characters(x, y).Fontで
セル内のx文字目からy文字分みたいな一部指定でのフォント変更が出来る

これらのxやyをForで変更しながら処理すればいけると思う
109 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4600-XLfl) mailto:sage [2023/02/17(金) 22:57:47.99 ID:WFsPqw+S0.net]: >>107
あああなるほどなるほど
仰ってる意味はギリわかるんですけどコードいじるのほぼ10年ぶりとかなんでハードル高い～～～
どうにかがんばってみます……
ありがとうございました
110 名前：デフォルトの名無しさん mailto:sage [2023/02/18(土) 11:21:39.71 ID:wyxXLbRL0.net]: >>108
コードを書いてみた。
所定のフォントを変えた後、最後にまとめて「あ」を空白に置換させている。

Sub findあ()
　Dim foundcell As Range, firstcell As Range, target As Range, Num As Long, flag As Boolean
　Set foundcell = Cells.find(What:="あ")
　If foundcell Is Nothing Then Exit Sub
　　Set firstcell = foundcell:Set target = foundcell
　　Do
　　　Num = InStr(foundcell, "あ")
　　　If Num > 1 Then
　　　　flag = False
Do
If flag = False Then Num = 0
Num = InStr(Num + 1, foundcell, "あ")
If Num = 0 Then Exit Do
foundcell.Characters(Start:=Num - 1, Length:=1).Font.Name = "BIZ UDゴシック"：flag = True
Loop
End If
Set target = Union(target, foundcell)
Set foundcell = Cells.FindNext(foundcell)
Loop Until foundcell.Address = firstcell.Address
target.Replace What:="あ", Replacement:=""
End Sub
111 名前：109 mailto:sage [2023/02/18(土) 11:39:38.68 ID:wyxXLbRL0.net]: 途中で書き込んでしまったので
もし使うならインデント調整して下さい
112 名前：デフォルトの名無しさん mailto:sage [2023/02/18(土) 18:22:51.48 ID:oiEmQBhiM.net]: >>109-110
ご親切にありがとうございます！！
有り難く使わせていただきます
113 名前：デフォルトの名無しさん [2023/02/19(日) 13:44:33.87 ID:E1njzG6f0.net]: 次のようにA列にid番号、B列に削除されるid番号あります。
A,B
1,3
2,5
3,7
4,
5,
6,
7,
8,
9,

C列にAからBの番号を除外したものが残ります。
C,
1
2
4
8
9

これを実現するのに、みなさんならセル関数を使いますか？VBAを使いますか？
114 名前：デフォルトの名無しさん [2023/02/19(日) 14:09:46.37 ID:fQjaN3Vg0.net]: バージョンは
115 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 14:50:51.24 ID:E1njzG6f0.net]: ver2019です。
116 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2342-rjXQ) mailto:sage [2023/02/19(日) 15:46:46.73 ID:IrwBul5G0.net]: 手動も含めて一番都合がいいのを使う
117 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 16:33:34.29 ID:E1njzG6f0.net]: ありがとうございます。慣れないですがVBAで行うことにしました。
118 名前：デフォルトの名無しさん [2023/02/19(日) 16:36:15.42 ID:E1njzG6f0.net]: 以下の実行が通りません。
If init_id(i) = del_id(j) Then
の個所でインデックスの範囲外というエラーがでました。
配列に対して添字を()しているのが問題でしょうか？

Sub 次の問題()
Dim totalQuestions As Long, pastQuestions As Long, Nextnum As Long, n As Long
Dim init_id() As Variant, del_id() As Variant

totalQuestions = Worksheets("Play").Cells(Rows.Count, 1).End(xlUp).Row - 1
Randomize
Nextnum = Int(totalQuestions * Rnd + 1)
n = Worksheets("arrData").Cells(Rows.Count, "B").End(xlUp).Row + 1
Worksheets("arrData").Cells(n, "B") = Nextnum

init_id = Worksheets("Play").Range(Worksheets("Play").Cells(2, 1), Worksheets("Play").Cells(totalQuestions + 1, 1)).Value

pastQuestions = Worksheets("arrData").Cells(Rows.Count, 2).End(xlUp).Row - 1
del_id = Worksheets("arrData").Range(Worksheets("arrData").Cells(2, 2), Worksheets("arrData").Cells(pastQuestions + 1, 2)).Value

Dim i As Integer,
119 名前：j As Integer For i = 1 To totalQuestions For j = 1 To pastQuestions If init_id(i) = del_id(j) Then Debug.Print init_id(i).Value End If Next j Next i End Sub []: [ここ壊れてます]
120 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 16:40:27.54 ID:E1njzG6f0.net]: 念のため、chatGTPはあてにならなかったです。
121 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4bda-BTrK) mailto:sage [2023/02/19(日) 17:24:19.98 ID:ZehIwlnC0.net]: >>117
Integerだからだろ
122 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2302-3nnD) mailto:sage [2023/02/19(日) 17:30:57.52 ID:E1njzG6f0.net]: ありがとうございます。Longにしてもダメでした。
根本的に配列の扱いが間違っているような感じですが、
それがよくわかりません。
123 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1501-rVJW) [2023/02/19(日) 17:39:18.41 ID:j3UrUaev0.net]: >>120
init_id = Worksheets("Play").Range(Worksheets("Play").Cells(2, 1), Worksheets("Play").Cells(totalQuestions + 1, 1)).Value
と
del_id = Worksheets("arrData").Range(Worksheets("arrData").Cells(2, 2), Worksheets("arrData").Cells(pastQuestions + 1, 2)).Value
でinit_idとdel_idにセルの値を配列として代入しているけど、これは２次元配列として代入している
だからinit_id(i)という一次元配列は存在しない
init_id(1,1)とかinit_id(2,1)の二次元配列として存在している
よってinit_id(i)は存在しませんってエラーが出てる
ローカルウインドで確認するといい
124 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 17:44:28.85 ID:E1njzG6f0.net]: ありがとうございました。よくわかりました。
なんとか1次元の配列を作りたいと思います。
セルデータから簡単に配列つくれるということでこの作り方になったのですが。
列番号を1つにすれば1次になるかと浅はかでした。。
125 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 18:07:25.25 ID:xzOvW7kvd.net]: 配列よりDictionaryの存在チェックで判定する方が簡単そうだけどなぁ
126 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 18:17:57.66 ID:FtkTxk830.net]: >>112
VBAならこんな感じか。
後、C列に6がないのは記入漏れ？

Sub C列に書く()

Dim i As Long, cnt As Long, dRange As Range
Set dRange = Range("B1:B3")
cnt = 1

For i = 1 To 9
If WorksheetFunction.CountIf(dRange, Cells(i, 1)) = 0 Then
Cells(cnt, 3) = Cells(i, 1)
cnt = cnt + 1
End If
Next i

End Sub
127 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 18:24:49.89 ID:E1njzG6f0.net]: >>124
ありがとうございます。やろうとしていたコードよりシンプルです。
128 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 18:28:42.83 ID:E1njzG6f0.net]: >>124でおしえていただいた方法で進めたいのですが。
これで、エラーがでたのはなぜでしょう？
Sub 次の問題()
Dim totalQuestions As Long, pastQuestions As Long, Nextnum As Long, n As Long
Dim init_id() As Variant, del_id() As Variant

totalQuestions = Worksheets("Play").Cells(Rows.Count, 1).End(xlUp).Row - 1
Randomize
Nextnum = Int(totalQuestions * Rnd + 1)
n = Worksheets("arrData").Cells(Rows.Count, "B").End(xlUp).Row + 1
Worksheets("arrData").Cells(n, "B") = Nextnum
pastQuestions = Worksheets("arrData").Cells(Rows.Count, 2).End(xlUp).Row - 1

Dim i As Integer
For i = 1 To totalQuestions
init_id(i) = Worksheets("Play").Cells(i+1, 1)
Next i
For i = 1 To pastQuestions
del_id(i) = Worksheets("Play").Cells(i+1, 1)
Next i

End Sub
129 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 20:06:54.10 ID:owAZbnPUd.net]: 春休みか？
130 名前：デフォルトの名無しさん mailto:sage [2023/02/19(日) 20:22:10.83 ID:j3UrUaev0.net]: これ流石に釣りだろ
いつものキチガイ臭がすごいわ
131 名前：デフォルトの名無しさん mailto:sage [2023/02/20(月) 01:12:29.14 ID:CLcJ/prP0.net]: また荒らしか。
132 名前：デフォルトの名無しさん [2023/02/25(土) 22:54:00.85 ID:IaGdb0E30.net]: VBA初心者です
退職済みの前任者が作ったマクロで多発してるエラー対応をしています

Dim 範囲 As Range
Set 範囲 = Worksheets(″Sheet1″).Range(″A1″).CurrentRegion

・変数に日本語を使うメリットとデメリット
・Range型の変数を使うメリットとデメリット
教えてもらえないでしょうか？
133 名前：デフォルトの名無しさん [2023/02/25(土) 23:47:26.72 ID:tG3tii0/d.net]: >>130
お前のレベルで手を出すな
134 名前：デフォルトの名無しさん mailto:sage [2023/02/25(土) 23:51:02.20 ID:apv923pv0.net]: 聞いたこともない英単語だとかえってわからなくなるからいっそ日本語の方がいい時がある（語学力の問題）
135 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 00:31:12.73 ID:/hhgnOlt0.net]: >>130
前任者がつくったとかいうのは関係なく、エラーを直して正常に動くようにするのは今の担当者の仕事じゃね
日本語を問題にするなら好きな言葉に置き換えればいいだろう
136 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 05:08:45.75 ID:eudL/KWJ0.net]: 昔は確かに日本語変数だと変な挙動起きたがな。
137 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 10:08:54.14 ID:B6f81u3Mr.net]: 日本語のメリット
人によっては視覚的に分かりやすい
デメリット
その度に切り替えボタンを押すのが面倒

後任者が分かりやすいように日本語にしといてくれたんだろう
138 名前：デフォルトの名無しさん [2023/02/26(日) 10:54:07.84 ID:/hhgnOlt0.net]: 値1 と値１が混ざって変数宣言を省略してるとか
漢字の間違いや全角の空白が紛れてたこともあったな昔のことだが
139 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 12:24:12.13 ID:nvWXChWd0.net]: ついこの間、ExcelのupdateでまたVBAが壊れたので
変数はもちろん、ワークシートから引っ張ってくるシート名や定義名も
日本語は止めた。
140 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 12:27:06.36 ID:pTLOSYzf0.net]: Excelって非アクティブからクリックでアクティブにするとき、クリックしたセルが一発でアクティブにならんのな
前回操作時のセルがアクティブなる
デュアルモニターでマウス行ったり来たりしてExcel入力してるから面倒くさいったりゃありゃしない
スプレッドシートは問題ないんだけどさ
スレチだったらすまん
141 名前：デフォルトの名無しさん [2023/02/26(日) 13:44:06.75 ID:2K5zmO2D0.net]: 非アクティブのウィンドウにマウスをもっていったら自動的にアクティブになる
無料のユーティリティソフトを入れたらいいんじゃね
142 名前：デフォルトの名無しさん mailto:sage [2023/02/26(日) 14:26:11.23 ID:pTLOSYzf0.net]: >>139
Windowsにその機能あるんだが、普段の使用で使いにくいんだよな
意図しないウィンドウがアクティブになってりして
とりあえずスプレッドシートのほう使うよにしたわ
143 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ da79-Arif) mailto:sage [2023/02/26(日) 20:33:51.43 ID:gahU4Yv80.net]: 効率を語るならまずマウス操作を止めるべきだな
144 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr75-WNy4) mailto:sage [2023/02/26(日) 21:30:42.93 ID:IOZzQyLPr.net]: 流石にエクセルのセルをクリックで操作は意味不明だろ
そこに文句言うヤツとか誰も想定してないと思うわ
145 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9d5f-kDor) mailto:sage [2023/02/26(日) 21:41:09.74 ID:pTLOSYzf0.net]: いや、デュアルモニターの隣りの画面でFXのチャートの値幅をマウス操作で計測し、その値を隣の画面のExcelに打ち込んでデータ分析してるんだが……
一回入力するたびに隣の画面にポインタ移動するから、そのたびExcelが非アクティブになるんだよ
なんか俺めんどくさいことしてるのかな……？
まあ、これ以上はスレチになるからここで終わりにしておく
すまんかった
146 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5a02-ZYAP) [2023/02/26(日) 22:07:07.64 ID:6/0OFtJ50.net]: これじゃダメかい？
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　Sh.Selection.Active
End Sub
147 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9d5f-kDor) mailto:sage [2023/02/26(日) 23:34:16.33 ID:pTLOSYzf0.net]: >>144
うまくできんかった。
chatGPTでもマクロを教えてもらったが、そっちも機能せず
もしかしたらオマカンかもしれん
だからスプレッドシート使うことにした
わざわざすまんかった
ありがとう
148 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr75-WNy4) mailto:sage [2023/02/27(月) 01:12:31.98 ID:ykCEF1qar.net]: ん？よくわからんけど、vba起動したら別のソフトがアクティブになるってこと？
別のソフトをアクティブにする前にに次に使いたいセルをSelectかActivateにしとけばいいんでない？
そもそもセルに手打ちってのもよくわからんけど
149 名前：デフォルトの名無しさん mailto:sage [2023/02/27(月) 20:02:31.12 ID:Akgqa2X30.net]: >>138
エクセルのアクティブ化とアクティブセルの変更を１クリックでやりたいって話だろ
デュアルモニターとか関係ない

Activate系のイベントでマウスカーソルの位置拾ってセル位置判定してアクティブ化するマクロを書けばできる気はする
マウスカーソルの位置ひらうのがＶＢＡだけで出来なかった気がするから面倒だな
150 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdfa-XBvd) [2023/02/27(月) 23:06:45.60 ID:oBF60fgLd.net]: そもそもFX側のプログラムから
記録用CSVなりに追記する形で出力にすればいいのでは
目的と手段を混同しているように見える
151 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 10:02:05.35 ID:7Eonwnxx0.net]: FX側はきっと既成のソフトウェアで手を入れられられず出力機能もないのだろう。
でなければマウスで幅を計測なんて、Excel抜きでも面倒な事をしてないと思う。

FX側ソフトウェアに要望を出す、別のものに変更する、または特注するのは有りだと思う。
152 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 12:23:19.77 ID:nICQ8lOdr.net]: B行に日付　C行以降は各項目
2023/4/3 パン　150
2023/4/16　米 500
2023/5/20　サラダ 230
︙
2023/8/13 牛乳 150
などと表があるとこから、VBAでinputboxで何月を取り出したいですか？など質問をして、その月だけを別シートに抽出したいのですが…findを使う？
どうすればいいのか教えて頂きたいです。
153 名前：デフォルトの名無しさん [2023/02/28(火) 12:42:03.99 ID:O8AX5fZ9d.net]: >>149
そいつがやるべきはVBAじゃなくFXソフトのお勉強からだな
少なくともメタトレーダー系ならExcelに対するVBAのようなプログラム制作用機能が充実してるから値幅計測ぐらいわけない
154 名前：デフォルトの名無しさん mailto:sage [2023/02/28(火) 15:14:30.22 ID:kIDllaukr.net]: >>150
どうればいいのかって…
VBAでinputboxで何月を取り出したいですか？など質問をして、その月だけを別シートに抽出してくださいってしか言えんだろ
具体的にコード出さないと何も言えない
155 名前：デフォルトの名無しさん [2023/02/28(火) 15:55:23.62 ID:d2Gt5PsA0.net BE:439992976-PLT(15000)]: https://img.5ch.net/ico/u_sii_naname.gif
VBAでやるよりピボットテーブルの方が･･･
156 名前：150 mailto:sage [2023/02/28(火) 15:57:37.64 ID:nICQ8lOdr.net]: AutoFilterやCurrentRegion.copyで何とかなりました。
すみませんでした。
157 名前：デフォルトの名無しさん [2023/02/28(火) 17:32:55.16 ID:O8AX5fZ9d.net]: もしかして:For

まあ他人と共用するマクロなんだろうし
その他人の中にマクロのことを聞けるやつもいないんだろうから
手作業をマクロで書いただけみたいなので正解かもしれんな
158 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 03:38:03.48 ID:wSjrNglr0.net]: 他人と共用するマクロは、共用している他人がマクロを編集できるので
自分がどう作っても他人が勝手に修正するだろうし・・・
159 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 06:52:29.36 ID:J6gUWTNI0.net]: >>156
事前に許可なく編集禁止と伝えておくのはどうでしょうか？？
自分の職場はトラブル防止のため注意喚起を徹底してます。
160 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 14:19:36.36 ID:wSjrNglr0.net]: マクロを作った人間の責任とサーバー上のファイルを管理している管理者
業務としてマクロを使う作業を指示している上司に変更内容を確認してもらう必要があるよね
161 名前：デフォルトの名無しさん mailto:sage [2023/03/04(土) 13:39:41.40 ID:hC7IXlBmd.net]: >>132,134-137
遅くなったけど130です
ありがとう
自分には日本語の変数のほうがわかりづらいし、>>137の言うように万が一にも備えて英語に置き換えることにした
162 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7b66-QeO8) mailto:sage [2023/03/05(日) 14:08:33.99 ID:SCRVkcxh0.net]: Public Sub aiueo()
Dim Ary(2) As Variant
Ary(0) = 10
Ary(1) = "文字列"
Ary(2) = CDate("2021/2/2")
Dim test As Variant
test = Ary
Call aiueo2(test)
Call aiueo3(Ary())
End Sub
Public Sub aiueo2(ByRef Ary As Variant)
MsgBox TypeName(Ary)
End Sub
Public Sub aiueo3(ByRef Ary() As Variant)
MsgBox TypeName(Ary())
End Sub

関数への配列をどう渡すかで悩んでいます。
配列として渡すのか、Variant型のスカラー変数にして渡すのか。

VBAのVariant変数は配列さえも入るスカラー変数だと認識しています。
なので、配列そのものを入れてるだけで、Variant型の配列変数とは少し違うと思っていました。
しかし上記の結果は同じでした。そうなってくると
ど�
163 名前：ﾁちでもいいということなのでしょうか？ もう一つ気付いたのはaiueo3はByVal渡しが出来ないけど、aiueo2ではByVal渡しが出来るので、 大元の配列の中身をいじらないで済むという違いがわかりました。 他に違いはありますか？ []: [ここ壊れてます]
164 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1379-rvSK) mailto:sage [2023/03/05(日) 15:00:07.80 ID:RB9OOifa0.net]: >>160
Variantの配列は結局Variantだから下のように配列指定の括弧を取って関数宣言すれば値渡しもできるよ
Public Sub aiueo3(ByVal Ary As Variant)
関数引数の宣言で配列を受けるように書いてしまうと参照渡ししかできなくなるってだけ
165 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 19:01:06.89 ID:ePQGVH9T0.net]: >>160
そんなサンプルばっかり作ってないでちゃんと役に立つもの作ればいいのに
166 名前：160 mailto:sage [2023/03/05(日) 19:19:12.03 ID:SCRVkcxh0.net]: >>161
ありがとうごございました。
スカラーで受けるか配列で受けるかにこだわっていました。
あれからもう一つ気付けたのは
Public Sub Sample(Byref Ary() as Class1)
Public Sub Sample(Byref Ary as Class1)
この時に大きな違いが出ました。前者はAry(i).と書くだけでClass1のプロパティメソッド一覧がサジェストしてくれますが、
後者だとVBE的には配列と認識してないのでサジェストしてくれません。
これを決定打として前者の書き方に統一しようと思います。

>>162
8割出来てたソフトをクラスを導入して書き直したら拡張しやすいコードに生まれ変わると信じてトライ中です。
月に数日しか触る時間が取れなくてちっとも進んでないです。
久しぶりに触ると自分が書いたコードさえ複雑すぎて読めないです。
167 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 22:22:28.42 ID:dhvwtz5Oa.net]: 長くなれば長くなるほど自分のコードってイミフに見えるよね。特に３ヶ月経てば。
168 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 00:54:11.13 ID:ai8Q1Y+e0.net]: なにをしてるかしらんけど、クラスを配列にして関数に渡してる段階で
ちょっと設計見直したほうが良いと思うぞ
169 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 00:59:15.55 ID:1WgjQ7Bk0.net]: なぜそういったコードが産まれるか？
前任者がそういったやり方をしていたから。
170 名前：160 mailto:sage [2023/03/06(月) 01:52:26.46 ID:PqTDPu/H0.net]: >>165
そうなのですか？
クラスを配列にしているというよりは、配列の中にクラスのインスタンスが入ってるという事なのですが。
例えばA組には生徒が100人います
生徒の遺伝子情報を持つ精子がそれぞれ1億匹います
しかもそれが毎日吐き出されます。
もちろん日別にそのインスタンスは微妙に違います。

まさにそれが配列の中にクラスのインスタンスがある状態かと思ってました。
とても理にかなった行為に思えます。
配列の中にクラスのインスタンスを入れる事は。

クラスはあくまでも階層図なのではないでしょうか。
配列を横の広がりとするなら、クラスは入れ子をする事で深さを表すと思い込んでいます。
5次元配列とかイメージも出来なくてわからないのですが、クラスの入れ子で5層を作るのは案外わかりやすいです。
171 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 03:53:47.03 ID:GSPsPwm3M.net]: クラスの配列なら横への広がりのイメージだな
クラスの深さなら継承の概念が必要
本格的なオブジェクト指向言語なら普通に使われるけどなんちゃってオブジェクト指向のVBAでは記述できない
172 名前：デフォルトの名無しさん [2023/03/06(月) 07:22:39.83 ID:AsR8H3/e0.net]: クラス使うと一挙に視野が広がるよ
ついでを言うと配列の代わりに
コレクションやディクショナリを
使うことも視野に入れるといいと思うよ
173 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 12:27:06.93 ID:b2hOsO6/0.net]: VBAもオブジェクト指向できるんか
174 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 12:41:06.98 ID:xFg+nzlgM.net]: プロパティ、メソッドなどの概念はオブジェクト指向からの由来
ただし本格的なクラスベースでもプロトタイプベースでもない独自体系の(中途半端な)オブジェクト指向
175 名前：デフォルトの名無しさん [2023/03/06(月) 13:36:46.14 ID:diWxUEyJa.net]: あえて言えば
フォーム指向だな
176 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 14:45:16.86 ID:9+J+ARGqM.net]: 敢えて言うならフォーム指向というよりコンポーネント指向
excel(Application)、book、worksheetなどすべてのオブジェクトはCOMコンポーネント
フォームもCOMコンポーネントの中のひとつ
177 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 14:57:08.93 ID:qrIfb0I6M.net]: >>170
C言語だってできるわ
データ(構造体)とそれを操作する関数を作っていくだけだ
178 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 15:12:57.72 ID:ai8Q1Y+e0.net]: >>167
たとえばエクセルブックは複数のワークシートをもってるが、それを配列で管理したりしてないだろ
まあ、VBAはコレクション系が弱いので配列で実装することもままあるがな

>>174
ここで言うオブジェクト指向できるかどうかってのは、
言語側にそのサポート機能がどのくらいあるかって話なんだと思わないかね？

太古のBASICはもとより、VisualBasicも出始めはオブジェクト指向を意識したものではなかったからな
互換性を残しつつオブジェクト指向を取り入れたのでかなり中途半端な出来なのはまあしょうがない
179 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 15:22:06.82 ID:g0HnCWe20.net]: リストやマップだって内部では配列使ってるでしょ
180 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 16:30:36.14 ID:diWxUEyJa.net]: VBAは糞だから廃止しても良いけど
代替がC#じゃなくてPythonになりかけたのは笑う
181 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 18:31:47.09 ID:1WgjQ7Bk0.net]: そういえば結局MSはVBAを完全に廃止はしないんだっけ？？
182 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 18:36:58.90 ID:dmixHrui0.net]: 廃止はされないだろうけど棲み分けされる方向性にある

Office スクリプトと VBA マクロの違い
https://learn.microsoft.com/ja-jp/office/dev/scripts/resources/vba-differences
183 名前：デフォルトの名無しさん [2023/03/06(月) 18:42:11.32 ID:AsR8H3/e0.net]: VBAのクラスは中途半端と言えばまぁそうだけど
VB.Net、おいてはC#とかをやる際の
練習には・・・いや、ちょっと厳しいか

でもObject指向言語いきなり入ると
継承ばっかに目が行って
移譲が疎かになったりするから
まぁいいんじゃないかな
184 名前：デフォルトの名無しさん mailto:sage [2023/03/06(月) 21:16:37.56 ID:1WgjQ7Bk0.net]: やっぱ昔ながらのVBAがいちばんしっくりくるわ。
185 名前：デフォルトの名無しさん mailto:sage [2023/03/07(火) 21:48:06.79 ID:3iqfWDhi0.net]: やっぱ昔ながらのBBAがいちばんしっくりくるよね
186 名前：デフォルトの名無しさん mailto:sage [2023/03/07(火) 23:24:56.52 ID:Rx98WF270.net]: いや、BBAは55までが限界だわ。
187 名前：デフォルトの名無しさん mailto:sage [2023/03/09(木) 18:56:56.85 ID:P+HJFtzc0.net]: ところでBBAの手前の年齢なら何て呼ぶ？
188 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 03:06:29.10 ID:iWPdLzMM0.net]: >>184
おばさま
189 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 12:22:39.19 ID:bedhQt/D0.net]: ちなみにお前らはおじさんやおっさんって呼ばれてもおかしくない年齢だよな？
190 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 13:34:04.07 ID:p0hGObdpM.net]: ExcelとVBAを使って商品の在庫管理をしようと考えています。
1つの商品の販売数は概ね1～10程度に収まっていますが、たまにそれを超える数が出る事があります。
入力を簡単にするため10個以下のときはドロップダウンリストから選択し、それ以上の時は直接入力で
対応しようと思ったのですが、コンボボックスでは直接入力した値を取得できません。

直接入力とドロップダウンの両方で値を取得出来る方法はありませんか?
191 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 16:23:53.92 ID:fVzcNxhh0.net]: フォームコントロールのコンボボックスだとプロパティに無いから出来ない
もし、セルの[データの入力規則]でもいいなら、エラーメッセージタブの □ 無効なデータが入力・・・
のチェックを外せば、リスト外の文字列(数値含む)も入れられる
192 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 16:24:00.66 ID:vz26ACYYd.net]: そんなもん使い難いだけだわ
UIを良く考えよう
193 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 16:26:19.41 ID:uJ3azY/w0.net]: 正直１桁ならコンボボックスより直接入力のほうが効率いいと思うが
194 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 16:56:09.67 ID:fVzcNxhh0.net]: 日付も商品もマウスで選択するようなUIなら理解できる
マウスから手を放したくない　みたいな
195 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 17:10:02.40 ID:Q4TOUEdVM.net]: >>187
自分なら基本テキストボックスで直接入力
ただマウスで操作したい要望に対してはボックス横にスピンボタンを追加することで対処する
初期値を1、増減分も1にしておけば1桁程度の値ならコンボボックスと大して変わらないと思う
196 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 19:08:43.64 ID:q/TVliTR0.net]: 回答：無理、諦めろ。で満場一致
197 名前：デフォルトの名無しさん mailto:sage [2023/03/10(金) 20:38:33.64 ID:iWPdLzMM0.net]: 回答2:何でそんな事やりたいのだろう…
198 名前：187 mailto:sage [2023/03/10(金) 23:47:02.61 ID:Qa3px4vn0.net]: 今時PCが殆ど使えない、新しい事覚えようとしないオバさんに使わせるのでなるべくキーボード入力をしないよう、パッと見で簡単に見えるように作りたいのです。
本来ならこのオバさんクビにして新しい子雇うのが早いと思うのですが…
ありがとうございました。もう一度UI考え直してみます。
199 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 00:19:36.43 ID:Khcebysn0.net]: 数字くらい入力できるだろう
200 名前：デフォルトの名無しさん [2023/03/11(土) 00:27:12.35 ID:dLGlL2PJd.net]: 質問者も頭が悪い
わからない人になぜ標準と異なるインターフェースを使わせようとするのか
こういう人が現場に混乱をもたらす
201 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 02:08:47.98 ID:WLmR0Ocq0.net]: わざわざ個数をドロップダウンリストから選ぶとか面倒くさすぎるだろ
規則入力で制限して直接入力させろよ
202 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 04:45:31.59 ID:ZWvVNp1O0.net]: 回答3:何でそんな事やらしてるのだろうか、
203 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 12:35:58.60 ID:QVD3K1L30.net]: いや、昨今のWebアプリ(というかWeb入力)画面は、そういうの多く成ってるぞ
和暦、年、月、日、数量なんかもそのたんびドロップダウンしてスクロールしてクリック
一月一日生まれならスクロール不要だけど、十二月三十一日生まれだと毎回面倒臭い　とか
おぢさんおばさんのUIと「新しい人」向けのUIも変わって来るんだろう、たぶん
社会に出た時にそういうUIが当たり前　なんてぇ連中にとっては「何で？」の疑問符も湧かないんだろ
タッチパネルUIがメインに成ってくと、やむを得ないとかなのか知らんけど(工夫が足りないだけ？)
204 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 13:08:52.71 ID:M3BsWLaP0.net]: 左にラジオボタン用意して
●10以下 [ ドロップダウンで数を選択 ]
○直接入力 [ テキストボックス直接入力 ]
みたいにしたらどうかな。
直接入力したければできるようにどれが最適かわからなければ手段を複数開放しとけば許されるかも
205 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 13:20:16.65 ID:QVD3K1L30.net]: そういう小手先のお節介機能が、後々鬱陶しくなって属人化と揶揄されて忌避されてく元
シンプルイズベストに徹してみるのも、使い続けるためには必要　なのかも
206 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 14:59:28.59 ID:ifuXB3L30.net]: UIだけじゃなくて入力デバイスのことも考える必要があるって話だな

ところで入力させるのはどこなんだよ？
シートなら>>188で解決だから、シートに入力させればいいんじゃねえか
207 名前：デフォルトの名無しさん mailto:sate [2023/03/11(土) 15:12:26.79 ID:ifuXB3L30.net]: >>187-188
ちょっと気になって試したが

Private Sub UserForm_Initialize()
Dim i
For i = 0 To 10
ComboBox1.AddItem (i)
Next
End Sub
Private Sub CommandButton1_Click()
MsgBox ComboBox1.Value
End Sub

普通にできるじゃねえかよ
208 名前：デフォルトの名無しさん mailto:sage [2023/03/11(土) 20:57:24.16 ID:ZWvVNp1O0.net]: あらまw
なんだったんだここ2～3日のやりとりはw
209 名前：デフォルトの名無しさん mailto:sage [2023/03/12(日) 11:03:12.50 ID:cLh0uqXM0.net]: 初心者がよく確認しないで先走っただけのこと
210 名前：デフォルトの名無しさん [2023/03/14(火) 22:17:45.06 ID:XoNyGxquM.net]: ttps://my.au.com/cmn/WCV009001/WCE009001.hc
のようなサイトにおいて、ボタンのid属性などが不明の場合、
どのようにすれば
objIE.document.getElementById(“nav-search-submit-text”).Click
のようにクリック処理が記述できるのでしょうか？
211 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 00:41:25.72 ID:1KS7hC690.net]: 他のgetElementなんちゃらを使えばいいんでねーの？
212 名前：デフォルトの名無しさん mailto:sage [2023/03/15(水) 01:44:42.30 ID:gRjLR93x0.net]: >>207
まずhtmlソース全部見る
タグとかクラス名とかinnerHTMLとか、そこを一意に識別する方法を考える
213 名前：デフォルトの名無しさん [2023/03/15(水) 19:59:06.05 ID:kKwjf9a5M.net]: >>208,209
ありがとうございます。
214 名前：デフォルトの名無しさん mailto:sage [2023/03/22(水) 19:26:33.26 ID:K2J+yUPS0.net]: VBAをやらざるを得なくなってしまい、半月ほど初心者向けサイトをざっと見したんだけど、復習しながら練習するのにいいサイトとかないですかね？？YouTubeとかでもいいです。
215 名前：デフォルトの名無しさん [2023/03/22(水) 20:16:54.25 ID:imBU3GyRa.net]: 教えてもらうくせに上から目線でサイト探しているの？
216 名前：デフォルトの名無しさん mailto:sage [2023/03/22(水) 20:27:03.12 ID:dusedFZ60.net]: え？どこが上から目線？
全然普通の態度だと思うが。
217 名前：デフォルトの名無しさん mailto:sage [2023/03/22(水) 20:35:07.68 ID:7ng/morp0.net]: できないと言う勇気
218 名前：デフォルトの名無しさん mailto:sage [2023/03/22(水) 21:02:59.43 ID:jPt3JN/N0.net]: VBA やりたい事でググれば大抵出てくるOffice田中のサイトでいいんじゃないの
219 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr9d-QeQu) mailto:sage [2023/03/22(水) 21:57:37.59 ID:PR1CLsM8r.net]: 俺も別段上から目線だとは思わんな
vba100本ノックでググればいいよ
220 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 138f-DNU4) mailto:sage [2023/03/22(水) 23:19:15.71 ID:K2J+yUPS0.net]: >>215
>>216
ありがとうございます。
221 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa95-XfdO) [2023/03/22(水) 23:32:19.46 ID:7f9FP/voa.net]: 半年探していいサイトが無かったように聞こえたな
222 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa95-XfdO) [2023/03/22(水) 23:32:43.87 ID:7f9FP/voa.net]: 半月だ
223 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d910-KPRk) mailto:sage [2023/03/23(木) 00:54:29.33 ID:RkaYGDJV0.net]: ここ最近は神髄というサイトが人気あるらしいね。
例の老舗さんはネタ切れ感あるとか？？
224 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6bda-F0re) mailto:sage [2023/03/23(木) 03:04:12.23 ID:0YnebeJA0.net]: いいサイトが見つからないから勉強ができないって言い訳はするなよ
225 名前：デフォルトの名無しさん mailto:sage [2023/03/23(木) 08:19:59.99 ID:rqWr880TM.net]: いうほどいいサイトってなくね？
コード書く練習したいなら100本ノックくらいしか思いつかんわ。
サラッと目通しただけじゃ難易度高いだろうが
226 名前：デフォルトの名無しさん [2023/03/23(木) 09:53:16.93 ID:B+OiUivh0.net]: その都度ググればよくね？
俺はそうしてる
227 名前：デフォルトの名無しさん mailto:sage [2023/03/23(木) 11:11:45.25 ID:8DIiCOGWM.net]: ChatGPTに聞きまくり+ネットのコピペまくりでごまかしてるわ
コメントつけて何とか弄れるようにはしてあるけど
無駄だったり重複する処理を消したりはしない、というか下手に出来ない
228 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd73-LK7t) [2023/03/23(木) 12:55:45.78 ID:c5DGLB5Nd.net]: >>224
こんなのが作ったVBAを使わされる方がかわいそう
229 名前：デフォルトの名無しさん mailto:sage [2023/03/23(木) 13:23:54.81 ID:0YnebeJA0.net]: 不具合が起きてもコピペだから原因がわからず自分が作ってないから直せませんとか言うのが見えてる
230 名前：デフォルトの名無しさん mailto:sage [2023/03/23(木) 16:13:34.30 ID:RkaYGDJV0.net]: 今注目してるのはOffice 春だな。
なかなか痒いところに手が届く技を紹介してくれている。
231 名前：デフォルトの名無しさん mailto:sage [2023/03/23(木) 18:42:46.38 ID:0YnebeJA0.net]: 興味を持つのは自由だが専用スレでやれよ
232 名前：デフォルトの名無しさん mailto:sage [2023/03/25(土) 17:09:50.33 ID:zf3m1D9l0.net]: 恐ろしいぐらいめんどくさかったけど複雑な処理をするマクロが完成して改善の部門賞で去年3万貰えたけどそれを超えるマクロが完成しそう
こりゃ社長賞狙えるかな
233 名前：デフォルトの名無しさん [2023/03/25(土) 17:16:33.67 ID:JIVU3ZWvd.net]: 典型的な頭の弱い社畜の書き込み
井の中の蛙
234 名前：デフォルトの名無しさん mailto:sage [2023/03/25(土) 17:20:16.80 ID:zf3m1D9l0.net]: だよな、ここの人らって本当に井の中の蛙だわ
異動してpythonに移行する前に作り上げて10万かっさらうわ
235 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8619-+msU) [2023/03/25(土) 20:39:39.60 ID:1snJqDno0.net]: まぁEXCEL VBAはEXCEL扱うのはめっぽう強いし
ちょこっとした処理を作るのに長けているから
プログラマ主体でなくて業務側についてる人でも多く使っているからね。

他の言語使っててもUTとかの際に
エビデンス取るとき整合確認とかで
EXCELの数式やVBA知ってると
かなり時間短縮出来たりするし。
236 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e510-XAhC) mailto:sage [2023/03/26(日) 02:18:50.58 ID:Vzczu/7L0.net]: ちょっとした処理に適しているのがExcelマクロだい。
237 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e95f-ghT9) mailto:sage [2023/03/26(日) 21:50:17.38 ID:XuHk6gkC0.net]: VBAはネットに転がってるのがいいよね
238 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e510-XAhC) mailto:sage [2023/03/26(日) 22:54:45.65 ID:Vzczu/7L0.net]: VBA基地外が転がってる
239 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa7f-PvZ5) mailto:sage [2023/04/01(土) 10:04:12.82 ID:UPkZGiTza.net]: ＶＢＡでゼビウス作りたいです
240 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-kVuH) mailto:sage [2023/04/01(土) 10:41:21.61 ID:Fre5vyIa0.net]: まず許可とらないと
241 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-kVuH) mailto:sage [2023/04/01(土) 19:42:02.16 ID:Fre5vyIa0.net]: https://xtech.nikkei.com/it/pc/article/NPC/20080321/296775/
もう15年も前の記事だが
242 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ df05-RaML) mailto:sage [2023/04/04(火) 05:43:03.68 ID:gM2C6lf70.net]: Excelの罫線が太すぎるので
ある範囲の入力済セルの下に
例えば0.5ptのオートシェイプを引きたいです
どのようにしたらできますか？
243 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-kVuH) mailto:sage [2023/04/04(火) 11:13:58.48 ID:H3UIOgUM0.net]: 入力済セルの下にオートシェイプの線を貼り付ける
線の書式の幅を 0.5pt にする
244 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 16:48:55.55 ID:gM2C6lf70.net]: >>240
VBAで自動でやりたいです
245 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 17:42:01.18 ID:7A3Dl4jZd.net]: ほんとにオートシェイプでやるの？
あら手の嫌がらせかな
246 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 19:06:27.39 ID:gM2C6lf70.net]: >>242
どうしても細い線が引きたいけどないのでそうするしかないんです
247 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 19:29:11.09 ID:S7HWOC1cd.net]: >>243
ダイアログの「なし」の下の破線が一番細い実線だよ
0.5ptって訳じゃないけどこれで代用はできない？
https://i.imgur.com/FI2RhpR.png
248 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 19:40:07.41 ID:CrO9FoIt0.net]: やりたければやればいい
何がわからないのかわからない

丸投げしたいなら初めからそう言っとけ
249 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 19:57:30.78 ID:renXLxQ5r.net]: 流石に何も調べず「こうしたいんです」って言われてもね
調べた上で質問しろよ流石に
250 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 19:57:38.37 ID:gM2C6lf70.net]: >>244
プリンタの問題なのかその破線だと印刷されません
ブラザーのモノクロレーザーなんですが
色々と調べたところインクジェットだと滲むから印字されるけどレーザーだと細すぎて印刷できないみたいです
251 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 20:11:18.91 ID:5YvJO7dSd.net]: >>247
レーザーでも印刷はできる
プリント解像度が合ってないから変えて試せ
要件としてはプリンターで細い罫線を出力したいが正しいのに、
情報小出しにするのはなぜ？
252 名前：デフォルトの名無しさん [2023/04/04(火) 20:27:01.14 ID:6BEiQs1Sd.net]: 馬鹿は馬鹿な頭で馬鹿な方法を考えついて馬鹿な質問をする法則
例の零細企業の馬鹿でわかったはずだろ？
253 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 21:06:09.03 ID:gM2C6lf70.net]: >>248
考えた結果、オートシェイプで線を引くしかない、となったのでそれのやり方を聞きました
ブラザーのサポートにも問い合わせたけどそういうものみたいです
254 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 22:10:24.26 ID:gM2C6lf70.net]: ちなみに点線は印刷業界でいうヘアラインというやつでプリンタの一番細い線を出すという命令なので
いいプリンタほどほぼ印字されないそうです
なので設定は無関係です
300dpiにすれば印字されますが文字が汚いです

印刷のアドバイスを聞きたいわけでも情報を後出ししているわけでもなく、
オートシェイプで線を引くコードが知りたかっただけです
255 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 22:16:45.73 ID:KVvIoDM70.net]: 絶対に自分で調べたほうが早いし楽だし拡張性あるのに、頑なに人に聞くやつっているよな
ggrks
256 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 22:33:10.85 ID:zXZGFdaS0.net]: Sub Macro1()
Dim rr As Range
Set rr = Selection
rr.Parent.Shapes.AddLine(rr.Left, rr.Top + rr.Height, rr.Left + rr.Width, rr.Top + rr.Height).Select
With Selection.ShapeRange.Line
.Weight = 1
.ForeColor.RGB = RGB(0, 0, 0) '255,255,153 薄いイエロー 204,255,255 薄いブルー
End With
rr.Select
End Sub

Sub Macro2()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline 'xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Macro1が直線を引く場合　Macro2が罫線を引く場合　Weight = 1を0.5にしても変わらない　xlHairline細線xlThin極細
直線を引くと消す作業が必要に成る
257 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 22:57:58.66 ID:H3UIOgUM0.net]: 下線を付ける場合って普通はアンダーライン機能使うし、空欄の下線なら＿＿＿　（シフト+「ろ」）
~~~~~~~~~~ (半角波線) ^^^^^^ (ハット)　で上行の強調みたいな書き方したり
─────　(罫線文字）　━━━━━　(罫線文字太い)　　でたいていは済むと思うが
258 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 23:21:59.65 ID:gM2C6lf70.net]: 下線というのはセル毎の仕切り線という意味でした
わかりにくくてすみません
259 名前：デフォルトの名無しさん [2023/04/04(火) 23:30:14.47 ID:khpg5U9yM.net]: >>249
馬鹿は馬鹿な質間の後に後出し条件を付けるも追加で
260 名前：デフォルトの名無しさん mailto:sage [2023/04/05(水) 00:53:07.23 ID:ab4hIo8m0.net]: >>256
別に全然後出しとは思ってないけどね
細い線が出したいです、ではなくて
自動でオートシェイプで線を書く方法を教えてください、なんだから
261 名前：デフォルトの名無しさん mailto:sage [2023/04/05(水) 00:54:17.99 ID:ab4hIo8m0.net]: ろくなやついないみたいだからよそいくね
262 名前：デフォルトの名無しさん [2023/04/05(水) 01:00:51.04 ID:XcJibMPkM.net]: 何が問題なのかわからない馬鹿ばっかのところが見つかるといいね
263 名前：デフォルトの名無しさん mailto:sage [2023/04/05(水) 01:20:39.85 ID:Yfsd/RuOd.net]: 知恵遅れ袋があるじゃないか
264 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f42-novi) mailto:sage [2023/04/05(水) 07:58:24.80 ID:nt1BQkgU0.net]: >>257
それは自分が思う解決方法であって目的は細い線を印刷することだろ
265 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd9f-YxMi) mailto:sage [2023/04/05(水) 08:35:05.20 ID:xBlgsSX7d.net]: 罫線文化は日本特有だからそろそろ辞めよう
266 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffda-kVuH) mailto:sage [2023/04/05(水) 11:17:22.11 ID:hwWjK5am0.net]: そういい続けてもう何年になるだろうか
267 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ dfda-icd+) mailto:sage [2023/04/05(水) 11:34:30.61 ID:Pachb7xx0.net]: >>258
オイオイw　提示したコード試したンか？w　オートシェイプの線と罫線と両方をサンプルして
尚且つ、線種や色を改良しやすいように例示もしたってのに　
出力できる太さに限界があるなら色を変えることで改善させるのもひとつの解決策だろうに
268 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd9f-j25d) [2023/04/05(水) 14:48:49.66 ID:RBswHKfYd.net]: >>264
そういうまともな発想が通じない自分の馬鹿な解決方法とやらに拘るのが馬鹿の馬鹿たる所以だ、残念なことに
269 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM83-KLNd) mailto:sage [2023/04/05(水) 19:37:02.68 ID:/dmeuB+9M.net]: どこが日本特有だよ
タイやら中国やらアメリカやらからデータ来るけど罫線なんて普通に使いまくりだぞ
文化じゃねーよ無職知ったかかよ
270 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-Rzwh) mailto:sage [2023/04/09(日) 10:12:35.57 ID:RxxIHycr0.net]: さて、そろそろ書けますか？
271 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-Rzwh) mailto:sage [2023/04/09(日) 10:34:21.92 ID:RxxIHycr0.net]: うおおw　またどっかに吸い込まれたｗ　なにがイカン？
　tps://www.post.japanpost.jp/img/int/use/writing/pic_invoice.jpg　日本郵便のサンプル
　tps://learn.microsoft.com/ja-jp/dynamics365/finance/localizations/media/apac-tha-tax-invoices-tax-invoice.png
　tps://templates.invoicehome.com/invoice-template-en-neat-750px.png
各国のインボイス画像何枚か貼り付けたレスだが、取り敢えずアタマ削って書き込んでみるw

現地の駐在員が日本人の可能性もあるぞ　と書きたかったw　それらの国でもイージーな書式でも通用するから
敢えて日本向けに罫線書式で送り付けてきてる可能性だってある　何かに憑り付かれたように「これでなきゃだめ」
なのは、使う側が融通効かない石頭揃いなせいが大　容易に使えてそれを容認するような文化　が無い(劣ってる)とは言える
272 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 12:18:38.23 ID:xFg640up0.net]: 部署で唯一VBA使える人が異動しそうなので
なにか力になりたいけれども、マイクロソフトのVBAスタンダードの
勉強をするよりはその人のコードを見て調べて…の方が良いでしょうか。
資格は実務に役立たないとよく聞くので。
273 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 12:44:54.33 ID:IMhUrj1Nd.net]: >>269
VBAスタンダードなんかのVBAエキスパート資格とMicrosoftは無関係
だからVBAスタンダードより異動する前にコード見て、聞けるところを聞いておく方が有意義
274 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 12:49:57.62 ID:I9Qf3W7D0.net]: 何も知らないやつが仕事で力になりたいけどとか簡単に言っちゃいけないよ
他人のVBAコードは不条理の塊と見なせるから、担当が自分に振られたのでなければ下手に関わらない方がいい
異動なら連絡は付くだろうし、君が心配しなくとも引継ぎ担当が面倒見てくれるよ
275 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 12:59:51.78 ID:xFg640up0.net]: >>270 >>271
ありがとうございます。よく分かりました。
ちなみに引き継ぎを受ける候補は私なので
自分でもコツコツ勉強プラス異動後も聞くことにします。
276 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 13:03:59.67 ID:fQMTK17W0.net]: こっそりYouTubeで解説動画見て、簡単なの自分で作って、実務のVBA眺めて意味を考えてググって分からなかったらここで聞いて勉強してからじゃない？
最初は使い方だけ聞けばいいし、中身変更なんて頻繁にないでしょ。
277 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 17:34:38.52 ID:VccS8NQy0.net]: >>268
交互色もよくみる
278 名前：デフォルトの名無しさん mailto:sage [2023/04/09(日) 18:28:02.92 ID:SycmVm660.net]: >>280
Listobject使うと自動で交互色テーブルになるんですが他国言語版はならんのか?
279 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa05-MV9R) [2023/04/09(日) 21:15:17.28 ID:/EJLPp0Da.net]: おちつけ
280 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c619-5xw/) [2023/04/11(火) 06:32:54.99 ID:2FEVzV7Z0.net]: >>269
VBAの試験なんて
適当にVBA組んでれば
その内何も勉強しなくても
エキスパートいきなり受けても受かる試験だから
そん時受ければいいよ。

EXCELの試験の方が難しいらしい
281 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c510-CGoK) mailto:sage [2023/04/11(火) 10:56:35.96 ID:muoUIQjV0.net]: 日商表計算1級は自慢してもいいレベルらしい。
mosは…察し。
282 名前：デフォルトの名無しさん [2023/04/15(土) 17:32:15.76 ID:m9DY7U8S0.net]: エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルB2に入る文字を変えたいです
https://jsfiddle.net/07ed2ajc/
283 名前：デフォルトの名無しさん mailto:sage [2023/04/15(土) 17:39:31.98 ID:iq3ZlEDB0.net]: セルチェックボックス連動
で沢山出てくるよ
284 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdea-/HYv) mailto:sage [2023/04/22(土) 08:24:42.08 ID:Ir4lduVSd.net]: A列の「作業結果」ごとに振り分けたいんだけど良い方法ない？
ピポッド組んだ方がはやいかな？

A列　　　　　B列
作業結果氏名
不備なし田中
不備あり佐藤
不備なし佐々木
不備あり加藤

↓別シートに転記したい

A列
不備なし

田中
佐々木

不備あり

佐藤
加藤
285 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdea-/HYv) mailto:sage [2023/04/22(土) 08:27:50.42 ID:Ir4lduVSd.net]: フィルタかけて　「不備なし」、「不備あり」ごとに転記

作業結果　　氏名
不備なし田中
不備なし佐々木

不備あり佐藤
不備あり加藤

「作業結果」列で重複データのみを削除
Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes

作業結果　　氏名
不備なし田中
　　　　佐々木

不備あり佐藤
　　　　加藤

ここまではイメージしたのだけれど、
そもそもとして、A列の属性ごとにまとめたいから、上記ではうまくいかないような…
286 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdea-/HYv) mailto:sage [2023/04/22(土) 08:29:37.58 ID:Ir4lduVSd.net]: 氏名はありきたりなのを使用したので大丈夫かとｗ
287 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d32-RykB) mailto:sage [2023/04/22(土) 08:31:58.26 ID:EkSMf2Yw0.net]: あかん不倫ありに見えた・・・
288 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdea-/HYv) mailto:sage [2023/04/22(土) 08:52:52.45 ID:Ir4lduVSd.net]: 自己解決

ピボット組んだ方が説明しやすいような気がした
289 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d32-RykB) mailto:sage [2023/04/22(土) 08:56:33.28 ID:EkSMf2Yw0.net]: 今月に入って勉強し始めたわいはフォームからの操作で使ってるけど、
ある結果に該当するデータを　For ～　Next と If ～ Elseでふりわけてコピーしてる。
290 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eaea-cSV1) mailto:sage [2023/04/22(土) 09:16:50.26 ID:0F5tuW810.net]: >>281
Excel2019以後や365版ならVBAでなくワークシート関数のFilter関数使った方が楽かと。
こんな感じ。
=FILTER(B:B,A:A=“不備なし”)
291 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdea-/HYv) mailto:sage [2023/04/22(土) 09:43:24.98 ID:Ir4lduVSd.net]: >>287
これいけそうだね。

毎日集計ださなければならないんだけど、
日付で絞るのは楽勝だとして、

不備なし
不備あり

ごとにFILTERかければいいんだね。
なるべく誰でも分かるものにしろ、
とのお達しなので来週ためしてみるよ。
どうもありがとう。
292 名前：デフォルトの名無しさん mailto:sage [2023/04/24(月) 16:29:17.11 ID:51aj6gGh0.net]: Excelのシートにpdfを貼り付けたいんですが（一枚目だけでいい）
OLEObjecps.Add
でファイルパスを与えて取り込むと
文字が読みづらいレベルで
解像度が低く取り込まれてしまいます

簡単なプレビューをエクセル上でしたいだけで
pdfのパスが入ってるセルを選択したら
シート上に表示、といったことがやってます

別のファイルを選択したら前のプレビューは消して次のファイルをプレビューする、みたいな

Acrobat Readerはインストされてますが
無料環境でやりたいです。
293 名前：デフォルトの名無しさん [2023/04/24(月) 16:37:38.75 ID:nUpPvlxcd.net]: >>289
Windowsも有料だし、電気代も掛かるし無料は無理でしょ
他は現状報告だけで答える部分はありませんね

質問やり直せ
294 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 10:02:17.63 ID:OOi8qz2x0.net]: >>289
　>解像度が低く取り込まれる　が、把握しずらかったが
https://www.microsoft.com/ja-jp/biz/smb/column-excel-pdf.aspx
　　↑の、【PDF がぼやけて表示される際の原因と対策】が合致するのか
295 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 11:27:26.34 ID:Y1VsObgtd.net]: pdfを画像として印刷して
その画像を取り込めばいいと思う
296 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 12:49:16.15 ID:S+8jDJ380.net]: >>291
ありがとうございます
設定試してみましたが、症状はかわりませんでした…

>>292
一応考えはしましたが、面倒で躊躇していました…

pdfを取り込むという方針でばかり検索していたので見つかりませんでしたが
webbrowserに表示するという手に逃げることにしました
フォームのModalをオフにしてサイズを可変にすれば
シート上のオブジェクトと似たような操作性にはなるので
これで行こうと思います
297 名前：デフォルトの名無しさん mailto:sage [2023/04/25(火) 12:56:36.27 ID:P6aAftcz0.net]: なぜReaderに表示させるではだめなのか
298 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-/HYv) mailto:sage [2023/04/25(火) 13:26:27.30 ID:OOi8qz2x0.net]: そこはほら、ファイルパスを指定して読み込む　という部分で察するに
表示されたPDFに関連した他の情報もSheet上にいろいろあれこれ連動して表示されるとか
そういうつくりに成ってるのかも知れない　デュアルモニタでも無いんで目が散るとかも
pngやjpgとかの画像ならオブジェクト扱いで拡大縮小すれば何とか処置できるかも知らんけど
PDF固有の問題とかなんだろ
299 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa21-9dEq) mailto:sage [2023/04/25(火) 14:59:34.57 ID:OylHipqda.net]: >>294
すいません
pdfだけじゃなくて
普通の画像もユーザーに同じUIで操作させたいのと
普通のReaderはファイルを連続で開くと
タブで複数開こうとするので諦めました…
新しいファイルを開いたら
新しいインスタンス作らず開き直してくれれば近い動作になるんですが

あと、AlwaysTopにする必要もありますし
余計に大変だと考えていませんでした

>>295さんの内容でだいたい正解です
300 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ea79-lTfL) mailto:sage [2023/04/25(火) 22:10:00.33 ID:RtJhGNCC0.net]: 1 PDFをAdobeReaderで開く
2 AdobeReaderにCtrl+Lを送ってフルスクリーンにする
3 画面キャプチャする
4 クリップボードの画像をシートに貼り付ける
5 AdobeReaderを閉じる
何が面倒なんだこれ
301 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ea2f-FGqy) mailto:sage [2023/04/26(水) 17:36:17.42 ID:gCvQh4su0.net]: １回だけならいいかもしれんが、毎日何回もやるとなったら
面倒だと思わんほうがどうかしてる
302 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ea79-lTfL) mailto:sage [2023/04/26(水) 21:05:50.62 ID:zbbRZmOB0.net]: VBAスレで何言ってんだコイツ
303 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c55f-6css) [2023/04/26(水) 22:50:11.08 ID:hkryowTT0.net]: まぁwebbrowserで済むなら
そっちのほうが良いだろね
readerのインスタンス閉じたり開いたりしなくていいし
いちいち画像スクショのフローも通す必要ないし
処理もパスを渡すだけで済むし
なんだったら複数ページでもスクロール確認できるし
304 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b710-tJUV) mailto:sage [2023/05/03(水) 21:37:40.68 ID:u6AyBhT90.net]: 数値が指数表示されるのどうやって直しますか
format で@にすれば直るって言う人いるけど末尾にE15とか付いちゃう
305 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-v/6/) [2023/05/03(水) 22:23:40.94 ID:sgDEJw+Jd.net]: >>301
馬鹿は消えろ
306 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7759-gUqw) [2023/05/04(木) 03:04:51.18 ID:0+hX2o4p0.net]: 表示形式変えたら良くね？
307 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b7da-pJvN) mailto:sage [2023/05/04(木) 07:02:56.52 ID:OlPgSuVa0.net]: >>301
随分前に取り込んだcsv内のデータが指数表示になって困ったことがある。
セルの書式設定が標準だと12桁以上の数値は自動的に指数表示になるexcelの仕様らしいので書式設定を数値にするか、頭にアポストロフィをつけて文字列として入れたかのどちらかで対応した記憶。
308 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-fitb) mailto:sage [2023/05/04(木) 09:06:13.63 ID:c0G0c79m0.net]: csvの取り込みはVBAから直接ではなく、
PowerQueryにした。
エンコードや読込み列数の指定もできる。
309 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7710-Q4KC) mailto:sage [2023/05/04(木) 17:35:17.84 ID:SG8oVDU20.net]: 分からないから質問しているのに馬鹿だの何だのって。
310 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd3f-SRD8) mailto:sage [2023/05/04(木) 18:18:33.10 ID:KWp7766Yd.net]: >>306
馬鹿でNGしておくといい
質問スレによくいる罵るだけ罵って自身は何もしない無能な奴だよ
311 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-v/6/) [2023/05/04(木) 19:48:22.72 ID:pc2Dfs+qd.net]: >>307
よく読んでいないのに決めつける馬鹿
お前らにはわからない時には時々答えているぞ
312 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7710-Q4KC) mailto:sage [2023/05/04(木) 20:21:25.82 ID:SG8oVDU20.net]: おいおい、NGワードての初めて使ったがあぼーんだらけだぞ？？
いかにここがNGワードだらけか分かったよ。
313 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d6da-KeI6) mailto:sage [2023/05/10(水) 02:58:03.13 ID:ixnOuziw0.net]: なにアホぬかしてんねん
314 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cb10-9aD/) mailto:sage [2023/05/10(水) 20:53:06.79 ID:cJ3FIEe20.net]: あぼーん
315 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d6da-KeI6) mailto:sage [2023/05/11(木) 22:30:54.17 ID:tQtEMv7I0.net]: あかーん
316 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cb10-9aD/) mailto:sage [2023/05/12(金) 22:05:56.53 ID:dIt5+Jxy0.net]: おぼーん
317 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cfda-ZkZz) mailto:sage [2023/05/13(土) 19:38:24.33 ID:E3uC06QM0.net]: こぼーん
318 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 07:09:01.65 ID:Rm921WLC0.net]: 会社のシステム(黒バックに緑の字)で“数字→Ent”で画面表示を切り替えて行くんだけど、どうしてもSendkeyでEnt(テンキー側)が押せない。(それ以外は押せている)
NumLockの問題では無いと思うんだけど、何が問題なんだろう？
“｛ENTER｝”でも“~”でもダメでした。
どうもメインキー側のEntを押している感じがする。(Entはそれぞれ別の機能か割り振られている)
Sendkeyで無理なら他の方法ってない？

ちなみにVBAは独学でやっている初心者なので、お手柔らかに。
319 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/15(月) 07:44:39.36 ID:S3yoUkobd.net]: 大きいEnterとテンキーのEnterはキーコードが違う
テンキー側は{ENTER}
sendkeysで{PRTSC}やっても画面キャプチャ撮れないのと同じようなものかも
AutoHotKeyみたいなツール使った方が簡単かもよ
320 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a32d-Q5z4) mailto:sage [2023/05/15(月) 08:33:02.84 ID:Rm921WLC0.net]: >>316
いや、返信が早いのはありがたいんだけど、エンターキーが別なのは分かってるから、テンキー側か押せないと書いてるワケなんだけど…。
会社のパソコンだから、勝手に別アプリは入れられない。
321 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-zI38) mailto:sage [2023/05/15(月) 09:43:33.62 ID:aWbkU9SeM.net]: Excelじゃ無理
322 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/15(月) 10:32:40.13 ID:TS5z6+d2d.net]: >>317
.exe叩くことすら不可能なら諦めろ
AutoHotKeyはAS/400のターミナル操作で右ctrl無いノートPCで右altで右ctrl操作したり、
テンキーがないノートPCでてんきーのEnter押下操作したりした実績がある
323 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa67-0O/8) [2023/05/15(月) 11:57:22.16 ID:SjuerCeea.net]: 上司にできませんって言うのも勇気
324 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/15(月) 12:25:24.97 ID:hNhS+OV4d.net]: >>317
どうしてもVBAでやりたいならWin32APIのkeybd_event関数使え
さっき言ったPRTSCでスクショできない問題も解決できてるから、
恐らくターミナル操作もできると思う
325 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a32d-Q5z4) mailto:sage [2023/05/15(月) 13:00:05.62 ID:Rm921WLC0.net]: コレ(>>315)は仕事の話だけど、別に上司に言われてやってるんじゃなくて、仕事の効率を上げる為に自分が勝手にやってるだけ。
俺はExcelを使ってるけど、他の人は画面を見て手打ちしたり紙に書き写したり、何なら電卓叩いてる。
で、今は会社のシステムのマクロ(Excelで操作を記録するのと同じ様なモノ)にEntを登録して、画面上部にあるそのアイコンをVBAでマウスを操作してクリックすると言う、無理矢理なやり方でやってる。
やっぱりWin32APIでやってみるかな。
みんなありがとう。
長文でスマン。
326 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 13da-Np+b) mailto:sage [2023/05/15(月) 13:53:06.37 ID:+mRHKUjh0.net]: いくつか疑問が　：
(黒バックに緑の字)で“数字→Ent”で画面表示を切り替えて行く　ここは実際のキーを叩いてる？
ユーザーフォーム上とかの数字をクリックしてEnterボタンとかを押してる？

“｛ENTER｝”でも“~”でも　ENTERには｛｝付けてるのに～には｛｝付けないのは単なるタイポ？

(黒バックに緑の字)　それってPower Shell とかコマンドプロンプトとかで無くて？

どうしてもSendkeyでEnt(テンキー側)が押せない　テンキー側である必要は？　メインのENTERキーが押せれば充分なのでは？
327 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6393-kDbr) mailto:sage [2023/05/15(月) 14:07:11.48 ID:hcGmEYCb0.net]: >>323
一部のターミナルエミュレータ（IBM iSeriesとか）ではテンキーのEnterとテンキーではないEnterや、
右ctrlと左ctrlなんかに別々の動作が割り当てられてるからでしょ
PSやコマンドプロンプトなら別の動作ではないし、
画面の配色もデフォルトで黒地に白文字でわざわざ変えるとも思えない
328 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 13da-Np+b) mailto:sage [2023/05/15(月) 14:27:07.62 ID:+mRHKUjh0.net]: あぁ、「会社のシステム」ってのが別にあって、他の社員はその画面上だけで処理してるけど
相談者はそこに別途起動したExcelでキー操作したい　ってことか？
だからメインのENTERキーとテンキーのENTERキーは区別して使いたいと？(メインだとベースのシステム側が
反応しちゃうから　とか)　結構無理やりな使い方のような
Sendkeysはプレーンの状態しか想定してないような　もうひとつのシステムとのアクティブが問題とか？

https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/keycode-constants
Sendkeysはやめて、ここのキーコードでコード書いた方が安全安心なような
329 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa67-0O/8) [2023/05/15(月) 15:18:05.10 ID:n5uW0pS1a.net]: >>322
指示されたとか業務を請け負ったわけでもなく
自力でできない改造を勝手にやって周りに困ってるとか言い出してるのね
他に優先する仕事無いの？
330 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a32d-+/XS) [2023/05/16(火) 13:42:46.21 ID:eYLYq0u20.net]: >>315です。
もうSendkeys以外でやろうと思っていましたが、323さんが疑問を持ったままだとモヤモヤするでしょうし、一応返信しておきます。
注意：長文・駄文になるので、興味の無い方は無視してください。
(レスアンカーが多過ぎたので、レス番号のみにしています。)

まず会社のシステムをソフトウェア名で検索したら、まさに324さんが言っているモノでした。
今やっているのは、その操作をExcel_VBAからSendkeysで叩かせてメニューを操作し、必要なデータをExcel側に持って行って処理しようとしています。
(会社のシステム上では、現状その処理が出来ない為。)
主に毎日出るデータから必要な数値を関数を使って抜き出して計算する為です。
現在その作業をやっている人があまりにも時間が掛かり過ぎていて、作業効率をUPする為にやっています。
(画面上の数値を目視で探して紙に書き留め、電卓で計算してExcelに手入力すると言うアナログな方法です。)
テンキー側のEnterが押せない以外は出来ていて、作業時間は1/3の以下に出来ました。
自分も323さんが325で言っている様に、無理矢理な使い方(特にEnterの入力法)をしているとは思っています。
もう一度調べ直して、325のリンクのキーコードに切り替えてみます。
ありがとうございます。ヒントになりました。
331 名前：デフォルトの名無しさん [2023/05/16(火) 16:04:00.86 ID:/kT0iQ0Cd.net]: 無知な人は無知だから解決方法のアプローチすら間違う
IBMのCOMオブジェクトがあるだろ
332 名前：デフォルトの名無しさん [2023/05/16(火) 16:15:00.01 ID:/kT0iQ0Cd.net]: 少し囓ったレベルでそもそも何を使ってるかすらわからなかったようなレベルの奴が変に弄くり回すなよ
333 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 17:06:14.83 ID:3pcpoJhK0.net]: 無知は恥じることじゃ無い　怯むことでも無い　懸命に解を見付けようとするのは悪いことでも無い
ただ、敵(IBM iSeriesとか)の壁は高そうだ　敵を知り己を、って奴が遠回りでも結果的には近道なのか
IBMのCOMオブジェクトというヒントだけでゴールに辿り着けそうなら進んでもいいかも知らんし(やめとけ)

エミュレータで運用しなきゃいけないほど投資も出来ず利用者も不平不満を言えないような環境なら
それ壊したら損賠しきれない被害になるだろうから、ヘタに横からアドバイスも出来ないんだな(やめとけ)
結論はいぢくりまわすのはやめとけ　てことで
334 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 18:47:42.45 ID:KioSfVLt0.net]: >>330
> エミュレータで運用しなきゃいけないほど
今時ダム端末なんて使ってるところ無いよ
というよりそもそも作ってすらないでしょ
それともサーバを直接叩けっていう意味？
知ったかぶりでマウント取るより素直に質問や礼ができる>>327の方が将来性があるよ
335 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 22:45:00.74 ID:3pcpoJhK0.net]: いや、>>324が例をあげて質問者が「それだ」っつーから「なにそれ？」でググったら
https://ja.wikipedia.org/wiki/IBM_i#/media/%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB:Ibmi-main-menu.png
こんなんが出てきて、そういやどっかで見掛けたことあるな、とか思って、これだとフル画面だけど別途Excel開けるだけの
スペースが画面上にある様子だし、ターミナルエミュレータって書かれてるし「いぢるな」に成ってもおかしくないだろ？
Win11でもWindows3.1のゲームが出来る(どころかスーパーマリオまでできる)
https://archive.org/details/softwarelibrary_win3_games　みたいなもんだろ(ちがうか)
リモートデスクトップやTeamViewerみたいに、キーボード操作もマウス操作も別画面に吸い込まれる　みたいなもんだろ　違うのか？
336 名前：デフォルトの名無しさん [2023/05/16(火) 23:38:51.78 ID:3Jn4PeXnM.net]: そもそも開発環境が用意されてるわけでもなく本番環境でやろうとしてるのは明らかだろ
それも無断で
337 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 835f-3DBk) mailto:sage [2023/05/17(水) 01:30:45.81 ID:XWrmBJfr0.net]: >>332
無知は恥じることじゃ無い
338 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1310-bKQp) mailto:sage [2023/05/17(水) 03:34:15.76 ID:dtCX3F+n0.net]: ここ何のスレだ？(笑)
339 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/17(水) 08:10:58.74 ID:4R4WjBjgd.net]: >>332
全然違う
ググらなきゃ分からない程度の知識でマウントかよ
340 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 13da-Np+b) mailto:sage [2023/05/17(水) 10:40:39.29 ID:edeIW3zk0.net]: マウントマウントうるせーよ　何でもマウントだと思うその僻み根性直せよ
どこがマウントなんだよ　忠告っつーんだろが　引き留めてんだ
つまんねコト書いてねーで、知ってんなら対策と傾向教えてやれや　できねんか？
341 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM7f-zI38) mailto:sage [2023/05/17(水) 10:51:01.19 ID:ayW9U2wIM.net]: 改行とエンターキー別にほしいよねー
あとバックタブも必要だわ
342 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/17(水) 11:41:51.42 ID:8WDvU+6md.net]: >>337
無知は恥じることじゃ無い
忠告の前提が間違った知識あるいは勘違いに由るものなら
その忠告は間違っているかもという自認はしておくべき
俺は自分の環境（iSeriesの前身AS/400、ターミナルエミュレータはiSeriesと同じ）で使えたAHKって代替策と、
Win32API叩けばできるって代替策案内した
あなたはマウント取ろうとする以外に何かしたっけ？
343 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 13da-Np+b) mailto:sage [2023/05/17(水) 12:45:51.36 ID:edeIW3zk0.net]: どこをどう読んでも新人のヒラ社員(歳が若いかどうかまではわからんけど)が悪戦苦闘してる風　と、
方や、それなりに業務をこなしてきただろう人物が経験則を元に導き出した解で効率化を成し得た　のと、
そういう読み方をしたんで、やめとけ・無理すンな、と
そのAHKとかWin32API叩く方法が、左程メインのシステムに影響を及ぼさず問題無く解決できる手段だとするなら
相談者もそっちにすがった方がいいんだろう　どちらを選ぶかは相談者次第　とりまkeycodeのリンクは貼った
344 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:12:55.03 ID:Ga ]: [ここ壊れてます]
345 名前：5ufIzN0.net mailto: 今来てよくしらんけど、ExcelでRPAもどきなんてするもんじゃねえなと思いましたまる []: [ここ壊れてます]
346 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:35:49.51 ID:edeIW3zk0.net]: 予めリスクのコストを計れるならやらない手は無いだろうけど、住人の指摘で「まさにそれ」って応じてるレベルなら
後先顧みずに無鉄砲な操作が先走ってるということでもあり、めくら蛇に動じずの喩えにハマってるようなもの
本職だって他社のシステムと云われた途端にそれなり身構えるものだろ？
リスクコストそっちのけで「こうしろ」だの「ああしろ」だの無責任に言い募れない　だからやめとけと
　うん、こう書いた方がかっちょ良かったかも　上のカキコは無しで
347 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:57:52.40 ID:PligybPra.net]: そもそもSendkeysってキーボードの操作をアクティブなウィンドウに送信してるだけなのに『いぢくりまわす』ことになるの？
リスクって何？
それがダメなら手入力での作業も出来ないでしょ。
あと作業時間が1/3になってるんだから実際に効率UPしてるワケで『それなりに業務をこなしてきただろう人物が～効率化を成し得た』は意味不。
手書きと電卓のどこが効率的なの？
まぁ～やり方が強引なのは間違いないけど。
348 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 16:25:11.69 ID:ayW9U2wIM.net]: comがあるならセンドキーは愚策でしょ

しらんけど
349 名前：デフォルトの名無しさん [2023/05/17(水) 16:30:50.87 ID:WTJnQ5K1d.net]: ちょっと囓っただけの知ったかが色々やらかしてくれるのはよくある
350 名前：デフォルトの名無しさん [2023/05/17(水) 19:06:16.88 ID:Rj02nJNFM.net]: >>343
素人が勝手に作ったマクロをその内容も知らずに別の素人が使ったらどうなると思う？
351 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:35:36.27 ID:gNzv1Kdtd.net]: >>346
そんなのマクロに限った話じゃない
素人がシュレッダーで書類切っちゃったらどうするとか、
素人が容量超えてるコンセントにプラグ刺しちゃったらどうするとかいちいち考えてるの？
352 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 21:03:27.97 ID:edeIW3zk0.net]: 師匠がSendkeysは使うなって言い残してたからそれに倣ってたけど、他アプリにも使える
https://excel-ubara.com/excelvba1/EXCELVBA421.html　　　みんな大好き神髄サイト
>>340　は一行目が相談者で、二行目は経験者の>>324　を対比させてる
操作する相手のアプリが見知ってるモノなら万が一を回避できるかも知らんが、業者が納めたガチガチのシステムだと
どんな仕様かも不明の上、どのキーに何が割り振られてるか知れたもんじゃ無い
メンテ用とかで隠しコマンドとか埋め込まれてた日にゃあ(まあ、キー１個に割り振る事は無いだろうとは言え)
たまたま1/3で済ませられてても、イレギュラーな運用には違いない　壊した時のことを懸念してるだけ
キチンと上司上長の許諾を得てからの改良なら >>324 が手取り足取り教えてくれるかも知れない
353 名前：デフォルトの名無しさん [2023/05/17(水) 21:34:13.85 ID:Q9NzDdvVM.net]: >>347
こういう馬鹿が問題を引き起こす
354 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:03:25.31 ID:aLcxvAiGd.net]: >>349
世のユーザーRPAほぼ全否定することになるじゃん
355 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:40:10.64 ID:dtCX3F+n0.net]: 最近はVBAユーザーは神髄さんのサイトに移行しつつあるみたいね。
どこかのちょいちょいやらかし有名老舗サイトが超されるのも時間の問題
356 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-+Xfm) [2023/05/18(木) 00:44:58.59 ID:Lo9/fXs8d.net]: >>350
だから、「ノウハウもない能力もない素人が勝手に」が問題なんだろ
357 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-kDbr) mailto:sage [2023/05/18(木) 02:00:11.23 ID:evSCpenWd.net]: ユーザーRPA製品の売り文句知らなそうだな
誰でも簡単に作れるのをウリにしてるってのにｗ
358 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd1f-+Xfm) [2023/05/18(木) 02:32:12.49 ID:Lo9/fXs8d.net]: >>353
馬鹿はRPAがそれが理由で下火になって撤退が相次いでいることを知らんのだな
結局素人が作ったものは使い物にならないとか問題を引き起こすことがわかったからだぞ
359 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:19:33.08 ID:PQ/SGKnqa.net]: >>354
うちの会社でも馬鹿が一生懸命量産してるよ
これが自動で出来るようになりました！
って画像認識たっぷり含んでてHTML・CSSも知らないもんだから
サイトのフォントがちょっと変わっただけで
ストップするようなRPAが大量に作られてる
360 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:58:32.43 ID:7WObf+m10.net]: >>355
そいつがその実績()を活かして転職して、残ったやつが嘆く姿が見える
361 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd1f-fNc9) mailto:sage [2023/05/19(金) 19:25:48.13 ID:69LLabS5d.net]: >>356
そういうやつの例が>>353というわけだ

この手の「素人でも～」というツールは結局素人とか素人に毛が生えただけの知ったかが使って混乱を引き起こすだけ
わかる人が作っても、ツールの仕様を他の誰かが理解していないとメンテ不可能になって終わる
362 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:52:10.05 ID:tiNQX/qmd.net]: スレタイ読めない奴に比べればみんな玄人よ
363 名前：デフォルトの名無しさん [2023/05/19(金) 23:28:52.13 ID:4QMqiQyZM.net]: 自分でRPAの話しを出しておいて悔しかったからと捨て台詞
364 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 01:03:14.01 ID:BOzq7zOsa.net]: 皆、キャノンのWebPerformer の仕事は嫌がる

この技術を覚えても、使い道がないから
365 名前：デフォルトの名無しさん [2023/05/20(土) 02:10:46.12 ID:g4ASJdAna.net]: 毒吐きw
366 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 05:14:29.94 ID:m2ueigJd0.net]: 黒画面に緑文字ってAS400じゃないの?
元からマクロ機能あるでしょ
367 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 07:46:37.80 ID:dQxPf7wod.net]: >>362
あるしコードはVBS使えるからスレの内容は必ずしも無駄にはならない
368 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 21:40:01.65 ID:8HKNvpDq0.net]: AS400ってまだ現役なんだ
369 名前：デフォルトの名無しさん [2023/05/21(日) 22:08:02.77 ID:JkAFBIVPd.net]: 名前が変わったことも知らないにわか
370 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5ebb-Nc0r) [2023/05/22(月) 20:51:05.95 ID:kSQcnoWG0.net]: 行数が同じ配列A,Bがあります
VBAで、ワークシート関数で言うとhstack(A,B)みたいな事がしたいのですがどう書けば良いですか
371 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 21:11:33.19 ID:gYYX/Vimd.net]: Function hstack()
372 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 20:53:59.53 ID:itVWVmnLp.net]: >>366

二次元配列の列方向に連結したい、と。
配列AとBが同じ行数という前提なら、
こんな感じのコードで実現可能かと。

Dim C() As Variant
ReDim C(1 To UBound(A, 1), 1 To UBound(A, 2) + UBound(B, 2))

For i = 1 To UBound(A, 1)
For j = 1 To UBound(A, 2)
C(i, j) = A(i, j)
Next j
For j = 1 To UBound(B, 2)
C(i, j + UBound(A, 2)) = B(i, j)
Next j
Next i

これでCがAとBのhstack(A, B)に
相当する配列になるはず。
373 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f10-HeY/) mailto:sage [2023/05/28(日) 01:44:19.65 ID:Y6pndVpt0.net]: 拡大率が違う画面を複数使ってるとコマンドボタン押せなくなるのはどうにかならんの?
100%と150%で使ってると、後者ではボタンがきかず、エクセル画面を前者側に持っていくときくようになる。
374 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0fda-S+HU) mailto:sage [2023/05/28(日) 03:17:02.66 ID:t/0Z2SUe0.net]: それで解決でいいんじゃね
375 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1bda-/RYi) mailto:sage [2023/05/28(日) 20:56:12.40 ID:aECve9cA0.net]: おおかた、モニターがスクエアだった時分のを未だに使わざるを得ない環境なんだろうが
150%になんかしないといけない環境を、いち早く改修することのが先決
そもそもディスプレイのカスタムスケーリングをしようとすると「テキストやアプリを読み取ることができなくなる云々」と
メッセージされる　それを突破して設定してンだから、文句を言う筋合いじゃ無い
それとも、Excelの画面だけ150%にしてる？　それだとちゃんとボタン押せるが？
376 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 22:26:37.23 ID:Y6pndVpt0.net]: カスタムなんかしてないよ。
推奨が150%なんだわ。
会社で支給されたノートPCがフルHD、
自分が持ってるサブモニターが4Kなのでそんなことになってる。
しょうがないから4Kの方を100%にして合わせてるんだけど、んまー文字が小さいこと。
377 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 07:42:06.26 ID:saGif22id.net]: >>371
高解像度PC使ったことなさそう
Surfaceなんかもデフォルト150%だぞ
378 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 10:35:10.47 ID:4Pg0mNi+0.net]: どーもすいませんでした　ボタンが押せないとかいう症状から勝手に憶測で書きました
じゃあ4KでExcel側を400%とか500%とかにしてもボタン押せない？
押せるような工夫が必要なんだから、押せる方のモニタ使うのとは別の解決が必要なんだろうし
379 名前：デフォルトの名無しさん [2023/05/31(水) 07:32:30.31 ID:Akn6fcLj0.net]: 🐈
380 名前：デフォルトの名無しさん [2023/05/31(水) 08:49:25.09 ID:NbDCLN/4d.net]: すごーく初歩的な事を聞いて申し訳ないですが
エラーが発生した時にどこで発生しているのか、どこで処理が止まっているのかを必ず表示させるにはどうしたらいいでしょうか？
381 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 11:31:20.55 ID:zw3Mw+mP0.net]: >>376
VBEを開けばエラーの場所が黄色くなってるはずだけど、そのVBEを開く作業まで自動化したいって質問ならそれは不可能
382 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 12:41:48.22 ID:8Ff+xV1b0.net]: プログラムが正常に動かないからエラーがでる
入力ミスなら入力時チェックを入れればいい
383 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 12:43:14.88 ID:8Ff+xV1b0.net]: on error ～もあるか
384 名前：デフォルトの名無しさん [2023/05/31(水) 16:14:37.52 ID:5IfBNuLp0.net]: >>376
エラー処理を何も書かない。
そうすれば実行した際に
エラーが発生した箇所が黄色くなって止まっているはず。

エラー処理を付けたいのであれば、
エラーが発生した際の表示文言に
エラー内容、モジュール名、関数名等を
記載するようにする。
コードの何行目で発生したのかは
以前色々試したことがあったけど
結局上手く出来なかった。

なのでエラー行を捕まえることが出来たら
その方法をむしろこちらが教えて欲しいくらい。
385 名前：デフォルトの名無しさん [2023/05/31(水) 19:46:37.97 ID:Akn6fcLj0.net]: 度々すみません
mac os でsaveusメゾットを実行するにはファイル毎にアクセス権を付与する必要があると聞いたのですが本当なのでしょうか？
386 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 19:55:27.32 ID:zw3Mw+mP0.net]: >>381
saveusじゃなくてSaveAs
メゾットじゃなくてメソッド
387 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 21:42:18.20 ID:XRB5mG0o0.net]: Application.Wait (Now + TimeValue("0:00:05"))でデータを随時取得すると
その間、エクセルでほかの作業が出来ないことが困っています。
他の作業をやりながらデータを定期取得する方法はありますか？
388 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9bce-/RYi) mailto:sage [2023/05/31(水) 23:30:04.64 ]: [ここ壊れてます]
389 名前： ID:zw3Mw+mP0.net mailto: >>383
Excelだけでは同時進行は無理
Googleスプレッドシートとか別の方法と組み合わせるしかない []: [ここ壊れてます]
390 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 08:10:10.71 ID:Gfjlh7Ly0.net]: >>384
無理ですか。別でPC使用してやってみます。
ありがとうございました。
391 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 08:24:47.14 ID:xfE5V8Fnd.net]: alt押しながらExcelを別インスタンスで起動すればできるんじゃね
392 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 16:19:44.21 ID:F7uugm6A0.net]: じゃね　じゃなくてできるけど、誰かさんが嘘を回答してしまったので、質問者は去ってるな
同じファイルだと読み取り専用に成っちゃうけど
活発なスレならすぐさま誰かがいちゃもん付けてくれるけど、寂れてるとそれも叶わない
そんなのが繰り返されると雪だるま式に過疎ってしまう　諸行無常って奴か
アホの子が建ててる方のスレだと雑談だらけだけど、稀にまともな質問回答も混ざって来る　こちらを活性化すべき
393 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 19:57:38.15 ID:Gfjlh7Ly0.net]: >>386
>>387
まだいます。
別インスタンスというワードを初めて聞きました。
ググってみたら色々出てきたので調べてみます。
分からないことがあればまたお願いします。ありがとうございました。
394 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 20:41:09.09 ID:XMwKl3Eud.net]: >>388
別インスタンスはタスクマネージャ見るとわかるけどExcel.exeを複数起動する話
普通はブックをダブルクリックなんかで開くと1つのプロセスで複数ブック開くからブック間のシート移動なんかができるけど
複数のプロセスになるとそれができない
それとダブルクリックで開くとWait中のブックで開こうとしたりするから開くときはファイルを開くで開かないとだめとか注意が必要
まあVBAの話というよりExcelそのものの話だからソフトウェア板のExcelで聞いたほうがいいかもね
395 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 21:47:01.00 ID:atoxlyuQ0.net]: 相談されたのでここで相談させてください。
毎日製造部の自動画像判定機のデータが3000枚くらいjpgで排出される
OK、NGの判定をjpgのデータ名に取得してくれればまだいいのに
まさかのこっちは判定するだけ、こっちは写真取るだけという連動してないゴミ仕様
jpgは日付時刻のみ、
抽出やふるい分けをするのに
画像の特定の部分の色が赤か緑かでRGB処理させるのは化石すぎるかな？

素直にpythonや他のツール使うべき何だろうけどVBAで何とかしてきたおじさんだから今更新しいのは頭に入らない、、
396 名前：デフォルトの名無しさん [2023/06/01(木) 22:04:21.98 ID:54ogaD2/0.net]: そうね
excelには.Netで言うBackgroundWorkerみたいな機能がないからマルチスレッド処理みたいなのやるにはちょい頭使わないといけない。
比較的お手軽なのはVBS立ち上げてそっちから今開いているお目当てのEXCELに書き込んでやることかな？
VBSなら文法はVBAと一緒だし、変数はスカラー変数だったりVBAみたいにトレースが出来なかったりとかちょい面倒な面もあるけど、
こなれた言語だからググれば方法はすぐ出てくると思うよ。
397 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 22:25:20.11 ID:F7uugm6A0.net]: >>390
その自動画像判定機メーカーお薦めのアプリとかあるんじゃないのか？　新旧メーカー雑多に混在してるとか？
毎日3000枚を一枚ずつシートに読み込んで判定してくとか考えてる訳じゃあるまい？
そもそも、NGをその場でハネるために撮影してるんじゃないのか？　OK・NGまとめて流して、後で画像で判定？
非効率も甚だしい　社長に直談判して専用アプリ入れるのが長期的な目で見ても賢明
　あと、出来もしないことは請けないように　まだ相談の段階だからいくらでも断れる

https://vbasokkou.dokkoisho.com/bmp.html
https://vbaexcel.slavesystems.com/vba/?p=404
https://mamesand.com/image/image_processing_j.html　こういうのに目を通して容易に理解できそうなら引き留めないが
398 名前：デフォルトの名無しさん [2023/06/01(木) 22:36:33.54 ID:3L8c5P4r0.net]: >>390
相談相手がお前しかいない会社なの？
399 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 22:46:12.33 ID:uXJBLYQCd.net]: VBAしか知らないような半端な知ったかに業務システムを組ませるとロクなことはない
400 名前：デフォルトの名無しさん [2023/06/01(木) 22:52:25.93 ID:WiGRvadKM.net]: >>390
残念ながら君には無理
引き返す勇気も必要
401 名前：デフォルトの名無しさん mailto:sage [2023/06/01(木) 23:42:56.50 ID:atoxlyuQ0.net]: >>392
ありがとう
これ使えるわVBAでいけると確信
402 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 11:45:15.15 ID:rnTTx//t0.net]: 待て待てw　あくまでもVBAで画像ファイルを扱うサンプルってだけだぞw
実務に載せるにはこれを踏まえたうえでとんでもない工数必要なのを、この時点で予想できんのか？
日に3000枚だろ？　まあ、やりたきゃどうぞだけど、またこれでひとつの企業の発展が遠退くわ
403 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdbf-2oUs) [2023/06/02(金) 12:55:53.88 ID:zeIkdv7hd.net]: VBAしかわからんくせに自信を持ってるような奴に何を言ってもむだ
404 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 13:47:19.23 ID:pjc5ka8Rd.net]: ＞化石すぎるかな？
質問はこれなんだからYesかNoを返してやればいいんじゃね
VBA自体は化石言語（ツール）でもなんでもないからNoだろ

そもそも今までどうやって（どの程度の時間で）3000枚/日のjpegを処理してたかわからんけど
それが大幅に改善できるならなんでもいいんじゃね
405 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 14:21:36.48 ID:ncdJVYAma.net]: いや、今まで作ったプロシージャと応用したら出来たわ
社内での正式運用するソフトの提案は情シスに投げといた
自部内の常用してない共用パソコンで動かしたらいつの間にかふるい分け全部出来てた
最適ではないけどVBAおじさんでいいわ
406 名前：デフォルトの名無しさん [2023/06/02(金) 15:10:31.04 ID:gVqTCBWka.net]: 実は優秀だったってことかなw
407 名前：デフォルトの名無しさん [2023/06/02(金) 16:20:00.31 ID:zeIkdv7hd.net]: いや、実験レベルなら組めても実務で使うのとはことなる
そもそもエクセルなんか使ってはダメな例
408 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 16:36:38.41 ID:rnTTx//t0.net]: よく見ろ　自演だ　しかもどーせ成りすまし
例示のリンク先も自分で見付けられないようなレベルで、教えられた翌日、半日で仕上げられる訳も無い
情シスに投げた？　情シスの仕事は？w　VBAロートルじじいに相談して、そ奴がこしらえたVBAをベースに
開発するのがお仕事か？　社内から要望 → 情シス → じじい → 情シス　なんちゅう経路だっつーの　そら、ITも衰退する訳だ
409 名前：デフォルトの名無しさん [2023/06/02(金) 17:13:27.84 ID:zeIkdv7hd.net]: >>403
確かに自演だな
こういう奴が一番厄介
まあ、困るのはこんなのの言うことを信じる会社だからな
こうやって日本の品質が落ちていく
410 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8f-BOre) mailto:sage [2023/06/02(金) 17:54:53.55 ID:nCmch2SWM.net]: え？自演？そもそもどれが自演なんだ…
まさか>>402の人が書いた皮肉レスを文面通り受け取ってるのか…
トヨタグループティア1の品管だけど
情シスなんて社内の部署の細かい要望なんて聞いちゃくれんぞ
情シス仕事はこっちが聞きたいわ
勤怠システムや文章システム管理してるぐらいだぞ
中小は知らんが、自演なぁ…変なの
411 名前：401 (ｱｳｱｳｳｰ Sa8f-Nnh9) [2023/06/02(金) 18:34:08.20 ID:6XYd34FIa.net]: 同じauだが別人な
412 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-S+HU) mailto:sage [2023/06/02(金) 18:40:49.45 ID:pjc5ka8Rd.net]: 問題解決に至るレスも満足にしないくせに難癖だけつける奴がこのスレ多すぎだよな
お前の方がスレの中で見たら無能なんだぞってわかれって感じ
413 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 19:28:50.89 ID:zbkirSqOd.net]: 触らない方が良い
触って貰うと嬉しくなって繰り返す、
話し相手のいないおじいちゃん達だから
414 名前：デフォルトの名無しさん [2023/06/02(金) 20:39:35.69 ID:7Hq5KpZ60.net]: >>408
女子高生かもしれんだろ
415 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 21:27:52.13 ID:x/1a+Vzx0.net]: お願いします。
今日の日付を取得し、A列から一致する日付を探したいのですが上手くいきません。
表示形式を画像のように mm/dd(aaa) としているのが原因のようですが変更方法がわかりません。
ttps://i.imgur.com/yryvsxM.png

currentDate = Date

Set foundCell = ws.Range("A1:A" & lastRow).Find(What:=currentDate, LookIn:=xlValues, LookAt:=xlWhole)
416 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 21:51:56.45 ID:a31tRmFL0.net]: >>410
Set foundCell = ws.Range("A1:A" & lastRow).Find(What:=DateValue(currentDate), LookIn:=xlFormulas, LookAt:=xlWhole)
417 名前：デフォルトの名無しさん mailto:sage [2023/06/02(金) 22:21:57.45 ID:x/1a+Vzx0.net]: >>411
出来ました。ありがとうございます。
418 名前：デフォルトの名無しさん [2023/06/04(日) 20:38:17.04 ID:LZlt8Gxt0.net]: 初歩の質問ですが、シート増やしたりするマクロ組むと一瞬画面がガチャガチャして結果が表示されるんですが、何かバックで動作して結果だけ表示される方法はないですかね？
419 名前：デフォルトの名無しさん mailto:sage [2023/06/04(日) 20:41:35.88 ID:BS4t9Zoh0.net]: アプリケーションスクリーンアップデーティングファルス
420 名前：デフォルトの名無しさん [2023/06/04(日) 20:56:59.39 ID:LZlt8Gxt0.net]: >>414
ありがとうございました！できました。スッと表示されるようになりました。
421 名前：デフォルトの名無しさん mailto:sage [2023/06/04(日) 21:02:56.12 ID:Kcs+KkJpM.net]: >>414
ファルスってなんだ？滅びの言葉か？
422 名前：デフォルトの名無しさん mailto:sage [2023/06/04(日) 22:08:59.86 ID:gaz9FjRLd.net]: falseをファルスと読む文化かな
nullをヌルと読むみたいな
423 名前：デフォルトの名無しさん mailto:sage [2023/06/04(日) 23:43:18.94 ID:BS4t9Zoh0.net]: >>416
滅びよ画面更新！という呪文
424 名前：デフォルトの名無しさん mailto:sage [2023/06/05(月) 20:11:28.00 ID:azZ2xgpJ0.net]: 昔にこのスレかExcelスレか忘れたけど、フォルズなのかファルスなのか軽く揉めた事無かったっけ？
425 名前：デフォルトの名無しさん mailto:sage [2023/06/05(月) 20:36:58.07 ID:Zr2+SjCb0.net]: Appleをアップルなんて読むのはダサいみたいな？エポゥってか
426 名前：デフォルトの名無しさん mailto:sage [2023/06/05(月) 20:40:41.18 ID:K+PFzANf0.net]: ダークファルス「また俺かよ」
427 名前：デフォルトの名無しさん mailto:sage [2023/06/05(月) 22:29:42.89 ID:2/OhRtzG0.net]: [　false　読み方　] Google

フォールス、またはフォルス
428 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8510-J0cC) mailto:sage [2023/06/06(火) 10:26:40.88 ID:qqUytQUY0.net]: Elseも揉めた記憶
エルスと呼んでいる
429 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 10:51:50.21 ID:4I+N0+2J0.net]: それはw　小学生の英語ぢゃねーか　どうやったら間違えるんだ
独仏伊蘭どの言語でも無く英語でしか使わないってのに　耳文字でエウスってか？　それ言い出したら全部違うけど
430 名前：デフォルトの名無しさん [2023/06/06(火) 12:26:16.59 ID:vUDmlZfra.net]: あえて初心者のまねしてるだけだし
431 名前：デフォルトの名無しさん [2023/06/06(火) 13:24:20.68 ID:h4TMdgn6a.net]: >>420
ウィンドウズωもかなり恥ずかしい表記
432 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 13:25:24.97 ID:h4TMdgn6a.net]: >>422
warning 読み方
433 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 13:36:23.12 ID:3/RS+WsX0.net]: Warning incoming missile!
ウォーニンインカミンミッソー！
で覚えた
434 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 13:56:33.46 ID:qqUytQUY0.net]: Countif＝コウントイフと言ってるようなもんか？？
435 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e29d-cB04) mailto:sage [2023/06/06(火) 19:20:42.66 ID:HmvxNuKJ0.net]: なかなか俺のファルス発言で盛り上がってるじゃないか

コンピューターに英語で話しかけてるわけではなく、所詮記号なんで覚えやすいファルスで頭の中は統されてるわ

それに Falseって普通の文章や会話で使ったことないし、フォルスを使わなくて困ったことないわ
436 名前：デフォルトの名無しさん [2023/06/06(火) 21:23:43.30 ID:B6GtaKxP0.net]: 兎に角
なんだかよくわからない
長ったらしい英単語は
アイエニューメラブルってよんどけ
437 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 21:43:42.66 ID:h6J+f+Qh0.net]: https://www.youtube.com/watch?v=3H4y5ExBofk
438 名前：デフォルトの名無しさん mailto:sage [2023/06/06(火) 22:03:14.44 ID:0lDzudW9d.net]: >>430
托
439 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 00:19:01.88 ID:Snmtqfef0.net]: >>433
？
440 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 01:40:06.04 ID:S2oc/3OD0.net]: 托
ｷﾓ
キモ
441 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 12:26:38.14 ID:ol7F6FUB0.net]: 旧中山道＝いちにちじゅうやまみち
442 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 12:43:49.08 ID:Snmtqfef0.net]: >>435
ありがとうそういう意味だったんですね

>>433
托をキモと読ませるのはFalseをファルスと読む100倍斜め上いってるとおもわんかい？
まあそのあたりに気づくほどのオツムがあれば433のような書き込みはしないだろうけどな(笑)
443 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 16:57:56.82 ID:+QZr+yNU0.net]: ﾜｯﾁｮｲなしスレから誘導されてきました

t検定で「範囲」にCOUNTIFやAVERAGEIFみたいな感じで対象とするセルをIF指定することはできませんか？
検定したい群を最初から整列して2群に分けておく必要があるでしょうか？
444 名前：デフォルトの名無しさん mailto:sage [2023/06/07(水) 18:47:39.61 ID:4QMQQlm10.net]: それのどこにVBAが？
445 名前：デフォルトの名無しさん [2023/06/07(水) 19:53:14.11 ID:JXvXtIEV0.net]: >>438
WorkseetFunction使ったらいかんの？
446 名前：デフォルトの名無しさん [2023/06/07(水) 23:28:59.63 ID:qpHjGrvpd.net]: >>438
ここは何のスレかわかってる？
447 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 03:12:22.48 ID:yL29L0S6M.net]: そもそもt検定なら元データが2群でないと成り立たないだろ
448 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 11:10:53.59 ID:fLz372z1d.net]: >>437
キモいのはファルス自体じゃなくそういうところ
449 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:34:47.21 ID:qq7eXr/o0.net]: みんなは重複をなんと呼ぶ？
ちょうふく？じゅうふく？
450 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:40:21.93 ID:9X1FHft/0.net]: かさかさ
451 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:41:37.46 ID:tebmBUvo0.net]: 昔はじゅうふくって言ってた
今はまちまち
452 名前：デフォルトの名無しさん [2023/06/08(木) 19:41:38.42 ID:zo01FRG40.net]: 仕事を引き受ける時には
今までした事のない事、やった事のない事、実績のない事は
「やった事がないので出来ません」
とハッキリ言って断るべきなんですよね？
453 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:41:52.90 ID:Wxh+dghv0.net]: >>443
苦しいな
454 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:42:49.87 ID:DSxTca6Td.net]: >>444
スレ違い
漢字について語るスレ 2
https://lavender.5ch.net/test/read.cgi/gengo/1534748118/
455 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:46:13.14 ID:uYSjYq8B0.net]: >>447
やったことないということは伝
456 名前：えるべきだが、断るべきかどうかは違う []: [ここ壊れてます]
457 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:53:15.66 ID:DSxTca6Td.net]: >>448 托過ぎて草
458 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 19:57:37.22 ID:Wxh+dghv0.net]: >>451
ID 変えてもワッチョイで身元バレバレの托托ちゃん(笑)
459 名前：デフォルトの名無しさん [2023/06/08(木) 20:00:05.44 ID:zo01FRG40.net]: >>450
職場の私よりお偉いさんたちは
出来もしない事はするな
とか
できるのか出来ないのかわからない事はできると言うな
とか
出来ると言って出来なかったら嘘つきとか詐欺師とか
そんな事を言ってきます
なのでやった事のない事、実績のない事は　やるな
という事なのだと理解しました

どうして未経験者に経験や実績が最初からあるのでしょうね

会社は学校じゃないらしいです
460 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 20:11:07.38 ID:uYSjYq8B0.net]: >>453
仕事頼まれて内容を確認しないでこんなの簡単とかすぐできるとか言う奴もいるからな
そのつもりで頼んだのに後になってうまく動かないとかなったら上司の責任問題になる
461 名前：デフォルトの名無しさん [2023/06/08(木) 20:19:16.31 ID:zo01FRG40.net]: >>454
私はそう言う事が初めての経験で全く何が何だかさっぱりわからなくて理解が出来ていません

それを言うならば未経験の事はするな、引き受けるな、出来ると言うな
という話になると思います
それにOJTとはなんですか？
462 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 20:20:21.37 ID:SX7QkWSs0.net]: あなたが欲しい答えはこうでしょう。
誰々が断れと言ったので断ります。
463 名前：デフォルトの名無しさん [2023/06/08(木) 20:28:49.61 ID:zo01FRG40.net]: 私は今まで働いてきて聞いた限りの話では
出来ない事を安請け負いするな、仕事だから
みたいな話なのでこれからはやった事がない事は全て断ろうと思います
464 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 20:33:09.84 ID:DSxTca6Td.net]: >>452
セルラー通信だから勝手に変わってるだけで、
ID:Snmtqfef0とID:Wxh+dghv0みたいな丁寧な自演と比べちゃダメでしょｗ
465 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 20:55:57.80 ID:Wxh+dghv0.net]: >>458
日付が変わってるから ID が勝手にしろ変わるだけでそれを自演と言われちゃな
やっぱ妄想がひどいわ(笑)
466 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 21:21:22.44 ID:uYSjYq8B0.net]: >>457
もし何もできないのであれば全ての仕事を断ればいい
それで給料もらえるのかは知らんが
467 名前：デフォルトの名無しさん [2023/06/08(木) 21:30:46.15 ID:zo01FRG40.net]: >>460
出来ない事やわからない事を出来るというな、とか引き受けるなとか言うなら
何にも引き受けられませんよー
468 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 22:17:36.82 ID:uYSjYq8B0.net]: >>461
俺はできる側だから関係ない
469 名前：デフォルトの名無しさん [2023/06/08(木) 23:03:31.49 ID:zo01FRG40.net]: >>462
素敵🥹
470 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 01:41:19.35 ID:HkCkkhjZ0.net]: 出来るか出来ないか分からないときは調査費用見積もればいい
身内相手でも時間くれでいい
話通じないならもう無理でええやろ、次に行く
471 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 07:51:36.36 ID:BdvP8KZKd.net]: >>459
遠回しに言っても理解できないみたいだから丁寧に言うと、
> なかなか俺のファルス発言で盛り上がってるじゃないか
匿名掲示板で自己顕示欲を発露させてるのがまずキモい
それも誇れるどころかむしろ恥である読み間違いにおいてってところがまたキモい

> コンピューターに英語で話しかけてるわけではなく、所詮記号なんで覚えやすいファルスで頭の中は統されてるわ
>
> それに Falseって普通の文章や会話で使ったことないし、フォルスを使わなくて困ったことないわ

誰も聞いてないのに間違いの言い訳始めるのがキモい
角行間に改行入れてるのがキモい
隙あらば自分語りがキモい
それらを踏まえた上での托
要するに間違いそのものより精神性が気持ち悪い
472 名前：デフォルトの名無しさん [2023/06/09(金) 07:55:56.79 ID:kQpJ5obDd.net]: やったとこがない仕事を勉強してやる事さえ否定的な考えの人たちが世の中には多いみたいなので
やった事がない事は何もするべきではないのでは
私が色々聞いた話の理解では、例えば医療従事者は例えどんな些細なミスでも許されない、という様な話でした
473 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 09:06:25.43 ID:uWjl3yo30.net]: >>465
本当に全部しょうもない理由で他人をキモ呼ばわりしてるわけだ
その偏狭な精神性がキモいわ
NG 登録しとくからさよなら
474 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 10:51:38.01 ID:2C/DXyS30.net]: >>466
仕事しない会社員は会社辞めるしかないんじゃね
475 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 11:22:56.72 ID:FJj7F9Bld.net]: ワッチョイなしもありも雑談スレに成り下がってほんと不快だな
どういう生き方したらこんなゴミみたいな人間出来るんだろ
476 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 11:35:57.88 ID:YWd0CHVo0.net]: 雑談専用スレ立てるとか言って何年経つんだよ？
477 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 12:37:16.30 ID:V26uJVvA0.net]: 雑談スレを作っても誰も使わないから無駄
ここの惨状を見てみ

【質問不可】Excel総合相談所スレの雑談・議論スレ5
https://mevius.5ch.net/test/read.cgi/bsoft/1624005735/
478 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 14:23:04.85 ID:smTSxqoia.net]: 簡単なユーザー定義型（2～3値を格納しておくだけの構造体）をtypeじゃなくクラスで作って、dictionaryオブジェクトのitemに9万個ぐらいインスタンスを紐付けたら、
コード終了時のオブジェクト解放にめちゃくちゃ時間がかかるようになった（数十秒）
やっぱこういうときは配列にするしかないのかな？
479 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 18:12:33.56 ID:V26uJVvA0.net]: >>472
スピードを取るか保守性を取るか
スピード優先ならクラスなんか作らずに単純な配列にする
たった数十秒なら俺ならそのままにする
480 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 20:25:26.92 ID:tjC4mlZIM.net]: オブジェクトの開放だけで数十秒もかかるのか

俺もその手法を多用するから興味あるな
俺が扱うデータは一万から三万行程度だけどどのコードも一～二秒くらいで終わる
481 名前：デフォルトの名無しさん mailto:sage [2023/06/10(土) 13:37:17.92 ID:l4DrLtSE0.net]: >>473-474
レスサンクス
言われてみると確かに時間かかりすぎてるし変だなと思ってよくよく確認したら、
まず、9万個のインスタンスを紐付けた辞書の他に、16万個のインスタンスを紐付けた辞書が作られてた
更に、プロパティの一つに別のユーザー定義型のインスタンスが格納されてた
（コンストラクタあるしGetプロパティもSetで返ってたが見落としてた）
そっちのクラスのデストラクタが書かれてなかったので記述したら、普通に一瞬で終了するようになった
色々と教訓になった、ありがとう
482 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1310-2rqm) mailto:sage [2023/06/11(日) 07:46:10.07 ID:UERnr49N0.net]: MsgBoxがUserFormとシートの間に挟まって見えないの何だぜ
483 名前：デフォルトの名無しさん mailto:sage [2023/06/11(日) 08:13:28.91 ID:It7hCXAB0.net]: よく調べてみ
484 名前：デフォルトの名無しさん mailto:sage [2023/06/11(日) 11:03:32.46 ID:P1jt4gwx0.net]: あるあるじゃんか
485 名前：デフォルトの名無しさん mailto:sage [2023/06/12(月) 14:12:41.04 ID:SIXj/4hV0.net]: >>475
デストラクタにどんな処理書いたら早くなったんだ？

デストラクタに処理を追加して早くなるとは思えんのだが
486 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sadd-nIed) mailto:sage [2023/06/12(月) 14:23:56.15 ID:14kLXnCoa.net]: 使ってないインスタンスを随時終了させたってだけでしょ
意図しないオブジェクトがメモリ圧迫してたなら速くなって当然
487 名前：デフォルトの名無しさん mailto:sage [2023/06/12(月) 16:01:58.40 ID:SIXj/4hV0.net]: >>480
随時なら、デストラクタに来るまでに解放するってことなんだが...

デストラクタで解放されなかったメモリを解放したって話なら、循環参照してたぐらいしか思いつかんが
それをデストラクタの段階で解放して処理が早くなるとは思えんが

そもそもメモリ圧迫で速度低下したって話なら、もとの
>コード終了時のオブジェクト解放にめちゃくちゃ時間がかかるようになった
ってのが間違った前提だったって話になるんだが
488 名前：デフォルトの名無しさん mailto:sage [2023/06/12(月) 22:08:42.75 ID:14kLXnCoa.net]: >>481

まぁ、デストラクタの記述でメモリが開放されることはないのはあなたの言う通りだね

文面を読むにClassTerminate記述のことじゃなくて
単に意図しないオブジェクトに対してNothingを設定したって意味だと思ってたけど違うのかな？
489 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8bf2-woSW) [2023/06/13(火) 18:54:34.11 ID:hIiZm8YL0.net]: オブジェクト指向が理解できねぇ
490 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMeb-G3RK) mailto:sage [2023/06/13(火) 19:05:33.87 ID:MvlUmR8SM.net]: 最初のOOP学習にVBAは相応しくない
491 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sadd-nIed) mailto:sage [2023/06/14(水) 11:48:51.61 ID:eB6yauOia.net]: 実際のところ、VBA使用者の中でオブジェクト指向まで
使えるようになる人の割合ってどの程度なんだろう？

ただ配列が使えるようになるとかとは学習コストの次元が違うから相当少ないとは思うけど、
他言語やってた人ならオブジェクト指向は使えて当然だしなぁ。
492 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c1ce-8sUu) mailto:sage [2023/06/14(水) 12:09:21.27 ID:qkXrOJy10.net]: 哲学的な話になるけど
単なる事務仕事の自動化にオブジェクト指向の出番はほとんどない
使わないけど知識として覚えるだけならVBAは教材に向いてない
493 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sadd-nIed) mailto:sage [2023/06/14(水) 12:15:21.92 ID:eB6yauOia.net]: 使う使わないは一先ず横においておかないと話が噛み合わなくなる
494 名前：sage (ﾜｯﾁｮｲ 8b10-mVGR) [2023/06/14(水) 15:15:49.61 ID:x/1GcB560.net]: 半角アルファベットと記号の文字列があると仮定して
半角カタカナに変換して
[0(ゼロ)]と[O(オー)]、「I(アイ)」と「l(エル)」と「1(イチ」
の違いをわかりやすく可視化する時
どう組まれてますか？

0O10l1I ⇒　ゼロ,オー,イチ,ゼロ,エル,イチ,アイ

全部パターン分けで組まないといけない感覚あり
495 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMeb-G3RK) mailto:sage [2023/06/14(水) 15:36:18.32 ID:ZQKJ3TXHM.net]: ConsolasかCascadiaあたりでも使えばいいだろ
496 名前：sage (ﾜｯﾁｮｲ 8b10-mVGR) [2023/06/14(水) 16:01:17.58 ID:x/1GcB560.net]: そうですよね
「Consolasでいいじゃないですかｗ」という話をしていました（汗
497 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd73-iGu4) mailto:sage [2023/06/14(水) 20:22:58.59 ID:YJj23+3Vd.net]: 継承もできない、まともなエラー処理もできない言語
そんなのでオブジェクト指向プログラミングなんて苦行をあえてする必要ない
VBAでオブジェクト指向プログラミングすることが目的の奴だけがやるべき
openPyXlとかxlwingsとか使ってpython使うのが正解
498 名前：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MM8b-woSW) [2023/06/14(水) 21:29:42.81 ID:Lrgg+dc1M.net]: じゃあそもそもVBAのクラスモジュールは何の為にあるんだよ
499 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMeb-blrJ) mailto:sage [2023/06/14(水) 21:43:21.66 ID:dRDCUjtWM.net]: ちょっとだけ便利にするためでしょ
500 名前：デフォルトの名無しさん (ｽﾌｯ Sd33-V2/r) mailto:sage [2023/06/14(水) 22:16:22.00 ID:zeSklkWgd.net]: >>492
自作イベント用かな
501 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd33-B0Ts) mailto:sage [2023/06/14(水) 22:46:01.86 ID:bBSkkOmsd.net]: 関数自作するときとか場所分けたいじゃん
502 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1310-4HgM) mailto:sage [2023/06/15(木) 01:14:11.47 ID:K9b5PX+v0.net]: UIAUTOMATIONでWindowsアプリを操っていたら、突然アプリが落ちた!
さあ、エクセルとアプリ、悪いのはどっち?
503 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sadd-nIed) mailto:sage [2023/06/15(木) 01:24:53.94 ID:mmfDb7UAa.net]: クラスモジュール、普通に便利だけどね
特に再利用と拡張が楽なのがいい

そういえば継承をVBAで使いたいと思ったことないな
合成、オーバーライド、インターフェースあたりは使えればいいなとおもうけど

でもそんなのよりパラメータ付コンストラクタを普通に使えない、とかのほうが俺的には余程ストレスだな
504 名前：475 (ﾜｯﾁｮｲ 13e3-atBl) mailto:sage [2023/06/15(木) 09:33:06.27 ID:6h46zCNd0.net]: >>479
Class_TerminateにSet xxx=Nothingを書いた
諸々の処理が「終わってから」なかなか終了しなくなったんで、たぶんどこかで循環参照になってたか、カウンタがゼロにならないとかでオブジェクトへの参照がまだ残ってる判定になってたんだと思った
でも、今同じように戻しても再現しなくなってしまったが、コードを変えた直後の最初の一回だけ終了にやたら時間がかかるケースが出てきた
（「コンパイル」を実行して保存しても最初の一回だけ遅くなる）
クラスが7つもあってごちゃごちゃしてるから、その辺から整理しないと本当は何が悪かったのかまで今はまだわからん
505 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7b19-ydOm) [2023/06/15(木) 12:32:47.10 ID:RQPtceb60.net]: >>497
オーバーロード、オーバーライドは使えないけど
インターフェースは使えるよ。

パラメータ付きコンストラクタは使えないけど
その辺拘るならCallByNameやAPIのコールバックで
何とか汁。
506 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 716e-8sUu) mailto:sage [2023/06/15(木) 14:36:06.97 ID:G8DPzqW/0.net]: 自動でインデント調整を行う方法があれば教えてください。
今まではSmart Indenterを使用。windows10、エクセル2010

windows11、エクセル2021にしてからは使えなくなってしまいました。下記を参考にインストールしましたが出来ず。
tradememo.techblog.jp/archives/73543570.html
507 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 132f-APG/) mailto:sage [2023/06/15(木) 22:40:10.51 ID:Gxu/hKh00.net]: >>498
そのxxxはどこで定義された変数で、何が入っていたんだ？

つかほんとに単にメモリ不足で速度低下してるだけの気がしてきたな
508 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 132c-mVGR) mailto:sage [2023/06/16(金) 11:57:31.84 ID:CbHDsKK60.net]: 人名がずらずらと並んでいるプルダウンをチェックボックス形式にする。
一人だけ選択ならそのままセルに入力され、複数人選んだら一人目の頭に?
半角スペースが空いて二人目の頭に?と自動でついて入力されたらとても嬉しいのですが、
どういうコードが考えられるか悩んでおります。
509 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1342-RZnJ) mailto:sage [2023/06/16(金) 19:46:08.99 ID:lOpXO/WO0.net]: 条件付き書式でいいんじゃね
510 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sadd-wxnb) [2023/06/16(金) 20:08:57.82 ID:ZRdkd62Ia.net]: ○の中の番号って20まで？
511 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 01da-8sUu) mailto:sage [2023/06/16(金) 20:30:31.09 ID:vL8BmY/W0.net]: 21～50までは、「挿入」－「記号と特殊文字」で出て来るダイアログから選べば可
51以上は丸文字をWordの機能を使って入れる形式　←　面倒臭い
512 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 368c-0LQ2) [2023/06/17(土) 00:19:14.62 ID:BthtTHXs0.net]: (2)
括弧でええやん
513 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 922c-Kp8H) mailto:sage [2023/06/17(土) 00:36:25.59 ID:zHsFmXG00.net]: 使うとしたらせいぜい?までです。
色々ご回答ありがとうございます。
514 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-C6j3) mailto:sage [2023/06/17(土) 10:20:45.20 ID:UdtQ6Un6d.net]: 丸数字を配列にしておくなり文字列にしておくなりして
人数の位置から配列や文字をMIDなりで取得して編集すればいいんじゃね
515 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0dce-L1I+) mailto:sage [2023/06/18(日) 01:03:31.39 ID:waH1MHTH0.net]: 文字コード11553が①
文字コード11554が②
つまり =сｈａｒ(11552+A1) で丸付き数字に変換できる
516 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d98e-kLz7) [2023/06/18(日) 02:43:33.18 ID:LkDYlGEI0.net]: >>502
こんなことで悩むようなら止めとけ
517 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1210-QKVe) mailto:sage [2023/06/18(日) 03:31:13.66 ID:39flxc5b0.net]: >>506
俺も諦めてそうしたことあるわ。
スターどっきり(秘)報告とかさ。
518 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0dce-L1I+) mailto:sage [2023/06/18(日) 04:18:49.74 ID:waH1MHTH0.net]: ㊙
519 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f29d-qfRM) mailto:sage [2023/06/18(日) 06:42:10.69 ID:n7dHmRLe0.net]: >>502
ここまで目的が、決まってるならビーイングに聞いたら教えてくれそうな気がする
騙されたと思ってやってみ
完全ではないにしろかなり正しい流れはわかる
520 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ad10-LXfx) mailto:sage [2023/06/18(日) 11:00:24.16 ID:8nJec8eo0.net]: ⚠
521 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f29d-qfRM) mailto:sage [2023/06/18(日) 11:19:52.82 ID:n7dHmRLe0.net]: >>502
513 だけどビーングに聞いてみたよ
回答結果貼っておくね
正しいかどうかは自分で判断してね

そのような処理を実現するために、次のようなコードが考えられます。

```vb
Sub CheckBoxToCell()
Dim i As Integer
Dim count As Integer
Dim result As String
count = 0
For i = 1 To 10 ' チェックボックスの数だけ繰り返す
If ActiveSheet.CheckBoxes(i).Value = 1 Then ' チェックされている場合
count = count + 1
If count = 1 Then ' 最初の選択肢の場合
result = ActiveSheet.CheckBoxes(i).Caption
Else ' 2つ目以降の選択肢の場合
result = result & " " & ChrW(9311 + count - 1) & ActiveSheet.CheckBoxes(i).Caption
End If
End If
Next i
Range("A1").Value = result ' 結果をセルに入力する
End Sub
```

このコードは、10個のチェックボックスがあると仮定しています。チェックボックスの数に応じて、`For i = 1 To 10` の部分を変更してください。また、結果が入力されるセルは `Range("A1")` になっていますが、必要に応じて変更してください。
522 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdb2-C6j3) mailto:sage [2023/06/18(日) 13:02:31.47 ID:9itfWllid.net]: 複数選択時に一人目に丸数字つかなくね？
523 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 922f-9XmN) mailto:sage [2023/06/18(日) 23:32:00.05 ID:q4GYYJOx0.net]: >>515
それ、コメントも勝手に入れてくれてるの？
どんな内容で聞いたのか気になるが、結構使えるかもしれんな
524 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f29d-qfRM) mailto:sage [2023/06/19(月) 00:19:50.80 ID:13bx54hA0.net]: >>517
502の本文をそのまま貼り付けただけだよ

コメントもつけてくれる

意外とやるよね

特にメソッドとかプロパティとかを忘れた時に非常に便利
525 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ad10-LXfx) mailto:sage [2023/06/19(月) 19:05:37.62 ID:gTQbq+Nl0.net]: 意外とAIの書いたコード見た目は良くね？？
まあ正しいかは分からんが。
526 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0dce-L1I+) mailto:sage [2023/06/19(月) 21:15:03.13 ID:DAevJAQS0.net]: AIは、ちょっと複雑なコードを要求すると、実在しない理想の関数とか持ち出してくる
その関数はどこにあるか聞くと自分で作れと言われる
そこの部分が一番知りたかったのに
半月ぐらい前に経験した実話よ
527 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a932-C6j3) mailto:sage [2023/06/19(月) 21:51:52.81 ID:yUJv3dIE0.net]: ガンダーラを探しているみたいだな
528 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d910-wsVZ) mailto:sage [2023/06/20(火) 01:05:06.73 ID:4BKdA8B40.net]: Gandhara, Gandhara
From the United Kingdom
I'm looking for heaven
I'm going to California
だったか
529 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f29d-qfRM) mailto:sage [2023/06/20(火) 02:18:29.21 ID:A7irJ18X0.net]: >>520
その関数の機能は AI の方から説明があると思うのでそれをそのまま AI に聞いて関数を作ってもらうことはできないの？
完璧なコードでなくても大きなロジックが分かるだけでもすごく時間節約になると思うけど
530 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 856e-L1I+) mailto:sage [2023/06/21(水) 17:43:20.54 ID:9nDnexAe0.net]: ActiveXコントロールのイベントは、コントロールが配置されたシートのVBAコードモジュールに記述しないとダメなの？
531 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f29d-qfRM) mailto:sage [2023/06/21(水) 19:26:57.32 ID:7CHaMvnk0.net]: >>524
そのイベント内のコードからcall関数で一般のプロシージャを呼び出せばいい
532 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a510-bte+) mailto:sage [2023/06/24(土) 10:49:09.24 ID:FqfK6b2x0.net]: ビットマップファイルを読み込んで画素を1px x 1pxに幅設定したセルの背景色として割り当てて、
シート状にビットマップ画像を表示するプログラムを作りました。
うまくいくときはうまくいくのですが、ときどき、
「セルの書式が多すぎるため、書式を追加できません」
とエラーが出て処理が止まります。
chatGPTに効いたらActiveworksheet.Stylesを削除すればいいと言われたので、
For k = ActiveWorkbook.Styles.Count To 1 Step -1
If InStr("Hyperlink,Normal,Followed Hyperlink", ActiveWorkbook.Styles(k).Name) Then
'pass
Else
Debug.Print ActiveWorkbook.Styles(k).Name
ActiveWorkbook.Styles(k).Delete
End If
Next k
こういう処理をループにかませてスタイルを削除させていたのですが、うまくいきません。
端的にいうと、スタイルがそんな増殖しているわけでもないみたいです。４７個ぐらいにしかなりません。

もっと別の理由で「セルの書式が多すぎるため、書式を追加できません」と出るようなのですが、他にどういう理由で
このエラーが発生する可能性がありますか。
533 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ddce-OfpS) mailto:sage [2023/06/24(土) 14:45:58.27 ID:TJX+Ujua0.net]: >>526
Interior.Colorを設定した時に内部的に自動で追加されるスタイルは、実はStyles().Deleteでは消せない
これをマクロから消す方法はなくて、ワークシート全体の書式をクリアしてからExcelを再起動するしかない

あと、Google検索で解決できない質問は、ChatGPTに聞いても無駄だよ
同じブログや質問サイトから答えを拾ってきてるだけだから
534 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ddce-OfpS) mailto:sage [2023/06/24(土) 14:58:19.61 ID:TJX+Ujua0.net]: >>526
画像を続けて何枚も表示したいときは、もう一つ解決方法があって、画像を15bitパレットに減色すれば(ほぼ)エラーが出なくなる

15bitパレットにする一番簡単な方法は、RGBそれぞれの下位3bitをすべて100(2)などに固定する
ただし微妙な階調は表現できなくなる
535 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd43-PAG3) mailto:sage [2023/06/24(土) 16:14:25.27 ID:zDQnymy5d.net]: ドンピシャな回答ありがとうございます
やはりstyles().deleteで削除できないスタイルなんですね。
RGB関数を使って背景色割り当てていたので、組み合わせが膨大になって書式の限界値超えてしまうことが原因ってことで、色調をもっと荒くしてみます。

実際問題画像の綺麗さは二の次でして、AIの学習をエクセルでやるためにビットマップデータを読み込ませて誤差逆伝播法やるのが本筋で
画像表示はデモンストレーションです。
流石に何万枚も画像データの読み込みは無理ですが、ある程度の精度が出るくらいはエクセルでも処理できるのではないかという目算です。
536 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-waoq) [2023/06/26(月) 14:01:44.74 ID:+fVe3jTma.net]: Worksheetfunctionで配列数式を入れたいのですがそういうコマンドってありますか？
forで代用するしかないのでしょうか？
537 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-wYA+) mailto:sage [2023/06/26(月) 14:40:01.51 ID:tFrwHTpK0.net]: 今月(2023/6)に入ってから、今まで問題なく使用できていたマクロの処理時間が異常に長くなる現象が発生しています。
処理を一つ一つ試していくとCopyメソッドに特に時間がかかっているようです。
実験として以下のコードを作成してみました。
Sub CopyTest1()
Dim i As Long, maxRow As Long
Dim STime As Double, ETime As Double

STime = Timer
Application.ScreenUpdating = False
maxRow = Cells(Rows.Count, 5).End(xlUp).Row

For i = 1 To Cells("A1")
Cells(2, 1).Copy
Cells(2, 2).PasteSpecial
Cells(2, 3).Copy
Cells(2, 2).PasteSpecial
Next i

Application.ScreenUpdating = True
ETime = Timer

Cells(1, 2) = ETime - STime
Cells(maxRow + 1, 5) = ETime - STime
End Sub
A1セルの値が5の状態で10回実行し、E列に書き出された処理時間(秒)は以下の通りでした。
{14.82, 2.00, 5.67, 14.82, 2.00, 14.82, 14.82, 14.82, 14.83, 14.83}
また、ペーストを行わず、コピーだけをForで繰り返した結果は
{14.83, 14.82, 14.83, 14.82, 3.84, 14.81, 7.50, 1.99, 13.01, 14.83}
コピーを1回行った後、Forでペーストを10回行うようにした結果は
{0.05, 0.05, 0.03, 0.04, 0.05, 0.04, 0.04, 0.04, 0.04, 0.05}
問題が発生しているのはExcel2021を使用しているPCのみで、同じネットワーク内のExcel2019を使用しているPCでは処理速度の低下は確認できませんでした。
セルの書式をコピーしたい場面が多いので配列を使用するのも難しいです。何か処理時間を短縮させる方法はあるでしょうか。
538 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-F8yx) mailto:sage [2023/06/27(火) 10:56:02.66 ID:HcS+dZLb0.net]: Excel2019で低下しないならExcel2019使えば解決だな
539 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-wYA+) mailto:sage [2023/06/27(火) 11:10:53.92 ID:79VdYiQe0.net]: >>532
社内で使用しているOfficeはH&Bの買い切りで、2019は一部の部長や専務クラスのPCにのみ残っています。
なのでおいそれと「マクロ使いたいのでPCを使わせてください」と言うのも憚られます。

サブスクリプションでない場合でも過去のバージョンをインストールすることが可能でしょうか。
もしくは、過去バージョンの互換モードのようなものはあるのでしょうか。
540 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-F8yx) mailto:sage [2023/06/27(火) 11:50:49.43 ID:HcS+dZLb0.net]: >>533
同じマクロを別のPCで動作させて処理時間に差が出た場合、PC本体の性能の違いなのか
インストールされているソフトの違いなのかを切り分ける場合どんなテストが必要だと考えてますか？
541 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-aaG3) mailto:sage [2023/06/27(火) 12:12:37.25 ID:79VdYiQe0.net]: >>534
処理の早いExcel2019のPC
CPU:Intel Core i3 8100
RAM:4.00GB
処理の遅いExcel2021のPC
CPU:Intel Core i5 12400
RAM:8.00GB
となっています
個体差や処理との相性などがあるのかはわかりませんが、性能の高低による変化である可能性は低いと考えています。
先月くらいまではどのPCでも使えていたマクロが全く同じコードで低速化した点、
Excel2019のPCで>>531のテストを行うといずれも1秒以内で終了する点
などもそう考える根拠の一つです
542 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-F8yx) mailto:sage [2023/06/27(火) 12:33:43.57 ID:HcS+dZLb0.net]: >>535
先月まで早かった処理で、Excelのバージョンが 2019→2021　に変わったら遅くなったということなら
Excelのバージョンの可能性はある
それ以外の違いに見落としがないなら
543 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-aaG3) mailto:sage [2023/06/27(火) 12:49:59.40 ID:79VdYiQe0.net]: >>356
先月まではExcel2021のPCでもコピーが遅くなる現象はありませんでした。
具体的な発生のタイミングは分かりませんが、今月頭か月中かのビルドアップデートも原因の一つではないかとも考えています。

Excelのバージョンが原因である場合、どういった対応が考えられるでしょうか？
544 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-F8yx) mailto:sage [2023/06/27(火) 13:13:57.43 ID:HcS+dZLb0.net]: >>537
先月まで遅くなかったのなら関係ないと思うが
昔なら扱えるデータ（最終行）が違ったり、省略した引数の初期値が違っているとか
使うメモリ量も変わってくる
ネットワークの速度、セキュリティーソフト、ストレージの速度、空き領域、OS側なんかも影響出る可能性はある
あと画面の更新しか止めてないのも中途半端だし
545 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 232f-6eWA) mailto:sage [2023/06/27(火) 13:48:41.94 ID:rDSyXQnX0.net]: アップデートをアンインストールして試せよ
546 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 03bd-waoq) [2023/06/27(火) 13:54:20.09 ID:P3UB99BO0.net]: 昔自分が経験した備忘録だけど、IMEのよくわからんバグでofficeアップデートした際に極端に動作遅くなったことはあった
旧verのIMEにしたら治ったけど根治には至らなかった
547 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-wYA+) mailto:sage [2023/06/27(火) 15:25:29.19 ID:79VdYiQe0.net]: 低速化が発生していなかったビルド16327.20248に戻して実行してみましたが、コピー10回にかかる時間は大きく変化しませんでした。
試すのに時間がかかったのは、Officeの導入などが社外への委託となっていてプロダクトキー等がすぐに確認できない状況であったためです。

次は>>540のお話を参考にIMEのバージョンを試してみようと思います。
548 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2da5-wYA+) mailto:sage [2023/06/27(火) 16:31:16.55 ID:79VdYiQe0.net]: とりあえず場当たり的というか、根本的でない方法での解決ができたように思うので報告します。
まずIMEのバージョンでは処理速度の変化は見られませんでした。

PasteSpecialでなくCopyに時間がかかっているという状況から、クリップボードが関係していると推測しました。
クリップボードの初期化やCutCopyModeをFalseにするなど試してみましたが変化はありませんでした。
その後いろいろ調べてみたところ、某解説サイトの「クリップボードを使わないセルのコピー」というページでValueに引数を入れられることを知りました。
>>531のマクロを以下のように変更したところ、期待する処理内容で0.05秒程度までの短縮ができました。

Sub CopyTest1()
Dim i As Long, maxRow As Long
Dim STime As Double, ETime As Double

STime = Timer
Application.ScreenUpdating = False

maxRow = Cells(Rows.Count, 5).End(xlUp).Row

For i = 1 To Cells(1, 1)
Cells(2, 2).Value(xlRangeValueXMLSpreadsheet) = Cells(2, 1).Value(xlRangeValueXMLSpreadsheet)
Cells(2, 2).Value(xlRangeValueXMLSpreadsheet) = Cells(2, 3).Value(xlRangeValueXMLSpreadsheet)
Next i

Application.ScreenUpdating = True
ETime = Timer

Cells(1, 2) = ETime - STime
Cells(maxRow + 1, 5) = ETime - STime
End Sub

お返事いただいた方々に感謝いたします。
549 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/27(火) 18:09:44.31 ID:mMTtkkH30.net]: まあ最新のものにしたらろくなことがないの見本みたいな話だな。わしなんか2013なんで速いこと速いこと。絶対アプデせんからな。
550 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Sp81-x21g) [2023/06/29(木) 11:52:40.63 ID:3tm6uAsep.net]: リクナビnext
求人キーワード検索ヒット数の比較

Java 5300
SQL 2970
Python 2400
RPA 1800
VBA 238

ググれば簡単に出てくるVBA
採用側からしたらスキル扱いされてない現実

残念ながら
VBAでプログラム書けますって
Excel使えます程度
551 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/29(木) 12:17:55.56 ID:lAWWyS/I0.net]: >>544
それだけ VBA が普及しているということ
日本語喋れますねというくらいに基本的なスペック
お前ら VBA 使えないと人間扱いされないぞ
552 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd43-2HPs) [2023/06/29(木) 12:21:45.26 ID:u0QQbW4Md.net]: VBA使うと脳が退化する
マジで勘弁
553 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Sp81-x21g) [2023/06/29(木) 12:30:46.05 ID:3tm6uAsep.net]: >>545
もちろん、ココで丁寧に教えてる方は素晴らしいと思う

ただVBAだけでは武器にならないのは、
転職サイトの検索数が物語ってる

企業が欲しいのは、
時代の流れに柔軟に対応出来る人材
554 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/29(木) 12:31:43.21 ID:lAWWyS/I0.net]: >>546
VBA で頭が退化するならそんなポンコツ脳は捨ててしまえ
555 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/29(木) 12:43:21.04 ID:lAWWyS/I0.net]: >>547
日本語喋れるだけでは武器にならないなと同じだな

でも VBA ができないと転職先でプロ扱いされないぞ

ユーザーさん「ちょっとさ、こういうことできるマクロ作ってくんない」
プログラマー「僕 Java の専門家なんで VBA はわからないんです」
ユーザーさん「VBA じゃなくてマクロだよ、マクロ」
プログラマー「マクロと VBA は同じなんですけど」
ユーザーさん「なんだよエクセルも使えないのか　何で質問はこんなポンコツやっとったんだよ」
ご愁傷様です
556 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/29(木) 12:43:55.74 ID:lAWWyS/I0.net]: 質問→システム部門
557 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Sp81-x21g) [2023/06/29(木) 12:46:51.78 ID:3tm6uAsep.net]: >>549
おれはVBAを批判してる訳じゃない
実際、おれもVBAばかり使ってきた

ただ、おれが言いたいのは、
GoogleやYouTube、チャットGPTで幾らでも調べられる時代
VBA程度では前みたいに重宝されなくなったんだよ

他人と差をつけて貴重な人材になるためには
VBAに拘りすぎてたら手遅れになるってこと
転職サイトのキーワード検索数が全てを物語ってる

この業界はものすごい勢いで進化してる
ずっと竹槍で鍛えてても、
弓矢や鉄砲には勝てないのと一緒
558 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9d49-F8yx) mailto:sage [2023/06/29(木) 12:56:11.73 ID:Gia+1urj0.net]: 549は竹槍しか扱え(わ)ない滅びゆく企業にしがみつけてることで悦に入ってるんだから、
そっとしておいてやれよ
猿が竹槍はつかえても鉄砲を認識できないようなもんだろ
559 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Sp81-x21g) [2023/06/29(木) 12:56:12.68 ID:3tm6uAsep.net]: ここは質問スレで
VBAを丁寧に答えてる方に失礼になるから
おれは消えるけど

おまえら
時代の流れに柔軟に対応するんだぞ
何が出来るようになれば希少価値高い人材になるか
高年収GET出来るか
いつも考えるんだぞ

じゃあバイトに戻るわw
560 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 639d-jvQs) mailto:sage [2023/06/29(木) 13:20:07.46 ID:lAWWyS/I0.net]: >>552
システム部門が全て解決してくれるという幻想にしがみついてる○○
561 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2342-G+aT) mailto:sage [2023/06/29(木) 18:27:43.98 ID:SAm7WP5H0.net]: 他に替えがきかないような貴重な人材なんてごく一握りだから
そんな恐れ多いことを考えるより自分ができることを考えりゃいいんだよ
562 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 12:39:10.95 ID:n+Odt7Dva.net]: AIや時代の流れでVBAがなくなる時代なんて全然来そうにないんだけど本当にくるの？
ChatGPTに聞きまくって便利だけど複雑な処理はまだまだだと使うほど思うし
今更VBAどころかそもそも扱える人がほとんどいない
大手自動車グループに出向したときもそう
猿でも出来る、AIが全部やるようになる
ってネットで言う割にやれてもマクロの記録レベルの人
情シスなんて社内システムにかかりきりで他部署の依頼だったり共有するVBAなんて作る気もない

と外資系に勤務している俺は思うわけですが
563 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9b19-GWUh) [2023/06/30(金) 12:44:04.18 ID:b3LF+rqB0.net]: まぁ
VBAは他のObject指向言語やったことあるかないかで
組み方に雲泥の差が出るのは認める
564 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 18:21:19.19 ID:n+Odt7Dva.net]: 5ちゃんでExcel触るどころか働いたことない様な奴が今時VBAなんて時代遅れとかAIで全自動化出来るだの今時エクセルなんて使ってる企業、とかただ脳死レスをするけどさ
Excel使わない企業をかつて見たことないんだけど
ゴリゴリの外資系でもそうだしトヨタ系でもそう
じゃあそういうニート連中は何を想像して書き込んでるんだ？
565 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 18:28:52.62 ID:n+Odt7Dva.net]: ・何でもVBAでやろうとするのは時代遅れ、これは間違いない　
・VBAいじれる人ってどこの会社、部者でも本当に少ない　
・その人がいなくなると死ぬマクロも多いのも事実
・ChatGPTは本当に凄い、かなりお世話になるレベルで凄い、このスレの回答者なんてもっと凄い

ここで質問に答えてる人達に聞きたい
おたくらレベルの猛者って職場にゴロゴロいないでしょ？Excel、officeが無くなる気配ないでしょ？どのPCにも気軽に配布出来てこれがなくなる時代は俺の定年までくる気配ないんだが
566 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 18:34:54.75 ID:n+Odt7Dva.net]: このスレの質問に答えてるレベルの人さ、
教えてくれよ
「俺のマクロの知識なんて職場の人達に到底敵わんよ」
なんて人はいないだろ、おたくの勤務先でも作る、メンテする、の中枢ポジだろ？

転職活動の時にVBA出来ますアピールなんて価値はないけど、異動や転職時に使える超汎用スキルだと思うんよ　

車がハイテク化していく社会での自転車のような立ち位置だとネットで見た
自転車がなくなる近い未来は見えないでしょ？
567 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 18:47:16.59 ID:n+Odt7Dva.net]: 職場で一千万とか二千万とかする解析や測定する設備を導入してるけどまぁ優れた解析ソフトが付随してるのよ
でも社内や社外に展開する時はExcelデータを欲しがるから結局ソフトからcsvかtxtでデータを吐き出すわけよ
閲覧出来る拡張子じゃないのととにかくExcelで欲しいと言われるから

繰り返し自動判定で学習させてく設備は担当者がpython使ってる
けど毎回、臨機応変に解析や測定する設備ほどVBAの方が手軽でかゆい所に手が届くんよ

ミツトヨや東京精密、島津とか設備メーカーの担当者と話しても高機能設備はマクロ組めるのが一番相性がいいと言ってる

VBAが化石化してAIが全てやる近い未来なんて俺には全く見えないんよ

ここの玄人ほどそう思ってるでしょ？
そういう人がまた別の高位の言語を学んでるのは正しいと思う訳よ
568 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 18:55:06.20 ID:n+Odt7Dva.net]: 長文を全部読んでくれとは言わん
ここで質問に対して答えてるレベルの玄人に告ぐ
少なくともおたくらが定年まではVBAの需要がなくなることはない
AIがそれを減らすのは間違いないけど
おたくらは定年までは職場でVBAの頼まれ事をしたりこのスレで答えを提示する運命から逃れられん
ざまーみろ

さよなら
569 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4b-jvQs) mailto:sage [2023/06/30(金) 19:02:52.90 ID:qk+XzPB+M.net]: >>562
あんたはわかってると思うけどAIをつかってVBAのコードを組めるのはVBAを熟知してる人だけ
VBAを熟知してないとAIのコードがうまく行かないときどこを直したらいあかわからん
AIと全ての言語は補完的。
570 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 853a-EChz) mailto:sage [2023/06/30(金) 19:30:03.19 ID:QBuEWSMw0.net]: ここのオマイラよりChatGPDの方が役に立つのは変わらんよ
571 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4b-jvQs) mailto:sage [2023/06/30(金) 19:40:11.44 ID:qk+XzPB+M.net]: >>564
あんたはなんでここにいるの
572 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9dda-OfpS) mailto:sage [2023/06/30(金) 20:18:04.05 ID:ExkK5Q1b0.net]: ChatGDPとかもググれば出て来るな　いろんなバージョンあるんだな
ChatGDP、ChatGPD、ChatGDT　ねーよ
脳内に Option Explicit 付けろよ　プログラムする人間で文字打ち間違いする奴は信用に値しない　そのシステムは動かないから
平文でお遊びやギャグ、ふつうにタイポ　以外で、肝心な所をスペルミスする奴はお里が知れる
573 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 20:19:04.76 ID:ST5Xi1//a.net]: さよならと見せかけで再登場

>>563
そこのおめーさんよ
俺にレスしたのも何かの縁だと思って俺の長文のレス全部読んでくれよ
そして俺が頓珍漢な事言ってたら指摘してくれよ
そんなゴミにレスするような無意味な事すんな

ChatGPTを使えば使うほど凄さと便利さを感じるけどまだAIが完全に理解して自動化するまでの遠さも同時に感じるわけよ
説明の仕方が下手とかそういうんじゃないわけよ

脱Excel、脱officeをしてる日本と関わりのある有名な企業やグループがあるなら教えてくれよ
お前俺から絶対逃げるなよ
574 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-rAl0) mailto:sage [2023/06/30(金) 20:22:37.95 ID:ST5Xi1//a.net]: >>566
そこの玄人臭のするおめーさんも俺の全文を読んだ上で俺をボコボコに論破するくらい絡んでこいよ
言ってる事がおかしかったら教えてくれよ
VBAにすがるわけじゃねーんだ
VBAが無くなる近い未来がみえねーんだわ　俺から逃げるなよ
575 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9dda-OfpS) mailto:sage [2023/06/30(金) 20:56:44.33 ID:ExkK5Q1b0.net]: さすがｱｳｱｳ　ちゃんと読めよ　あんたに絡んじゃいないだろ　ヨソの揉め事まで自分が絡んでると思い込めるその体質どうにかしろよ　酔ってンのか？
576 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9b19-GWUh) [2023/06/30(金) 21:06:43.71 ID:b3LF+rqB0.net]: そもそもVBA熟知していたらChatGTPなんか使わない
何故なら既に単一責任原則を守って作成した部品を
それを骨組みにして色々なツールを作れるくらいは抱えているし、
例え部品を持っていなくても自力ですぐに作れるから。

せいぜい、「あれどんな感じで作ってたっけ？」となったときにちょっと使う程度だけど
その程度ならネットで検索したりマクロ先生に聞くだけで十分だからね。
577 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd43-vS0M) mailto:sage [2023/06/30(金) 22:29:17.87 ID:5gLfesnHd.net]: ChatGPT知らずに物言ってるのが哀れでならない
想像力が足りてないぞ
578 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp81-x21g) [2023/06/30(金) 22:59:38.59 ID:Wy/PPotCp.net]: >>561
マクロ組めるのが一番相性いいって

ただ生データを加工（グラフ化）するだけでしょ？
PowerBIとか使ってないの？
579 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp81-x21g) [2023/06/30(金) 23:52:08.05 ID:EwCW9hA/p.net]: >>559
> 何でもVBAでやろうとするのは時代遅れ、
分かるわ
ピボットテーブル、Power query、PowerBI…
この辺りの知識もなしにVBAに拘る時代遅れの残念な人が多い

あと、研究所でよくある話。
「計測器で得た生データを加工し発表用に仕上げ定期的に配信する」
この流れを考えた時、どうイメージするか。
•ネットワーク関連（IPアドレス、サブネットマスク、ping）
•データベース関連（logger、ロギング周期、データ形式）
最低限、この辺りを理解してないとねぇ
「データ貰えたらVBAで加工出来ますよ」って言う人いるけど
そのくらい誰でも出来るわってなる
580 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 678e-PlBh) mailto:sage [2023/07/01(土) 00:00:29.66 ID:UZcgLgfT0.net]: >>573
いや、VBAでそんなことやる発想自体が馬鹿の証だろ
581 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp5f-JA+y) [2023/07/01(土) 00:06:49.62 ID:d2dum+3bp.net]: >>574
実際居るんだよ
VBAに拘る時代遅れの人

求人見て思うのは
拘りを捨てて柔軟に対応出来る人材が求められてると思う
582 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/01(土) 00:32:00.27 ID:YCqSMBMGa.net]: しょうもない揚げ足取り合戦はやめなさい

>>572
そんな簡単に済むわけないだろ
主要自動車メーカー、関連企業、グループ企業と各サプライヤで要求されるデータも仕様も全然違うししょっちゅう改定されるわ
VBAより柔軟に手軽に共有出来て設変出来るものがあったら是非欲しいわ

社内だけで運用管理するデータほどVBAなんて使わずにベース化しやすいだろ
骨組みが決まっとるし情シス軍団が貼りつくし仕様変更の頻度が少なくて済む

最大手はなんちゃらsparkやら投稿システムに数年で変わったけどそれまでのデータ作成はどこもバチクソVBA使っとる

理由は簡単
VBAというよりエクセルが世界一優秀なソフトだから
印刷プレビューの文字ズレというカッスい弱点を未だに抱えてるくせに
583 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 029d-ZEnY) mailto:sage [2023/07/01(土) 00:40:07.01 ID:G9bG2R8/0.net]: >>567
563 だけど何か誤解してないか
あなたの長文は全部読んだ上で賛成してるんだよ
だから「あんたは分かってると思うけど」と書いてるじゃない
VBA をディスってるやつに言ってるんだよ
562のアンカーをつけたのはあんたの話に関連してるから

これでいいかな
584 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/01(土) 01:16:42.11 ID:dcUtPda/a.net]: >>577
わかってる上で全方位レスしてるだけ
普通に社会人やっててVBAが全く無くなる気配なんて全くないんだよな
レスありがとう

そしてここでとある業務
例えばCADとの座標関係やデータムの組合せも可能で自動測定プログラムも組める今の世で一番信頼性の高い測定値を出すのが接触式三次元測定機
世界シェア一位二位を誇る2メーカーが出してる
それ以外のを使う会社は馬鹿にされるレベルで突出した精度

社外とデータのやりとりする事前提とするともうVBA一択なんよ、しょぼいのに糞高いマクロをメーカーが有料オプションで用意してあるほどにExcel向けにソフトが出来てる

設計はCADソフトの社内データベース運用し始めた
生技はpythonやAI導入で設備を仕上げてる
経理や総務や人事は社内システムつこうてる
けど品証もpythonを導入し始めたけどVBAを使わないのは死を意味する

明日も居座るからVBAなんていらないニートおじさんはいつでもカモン
585 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ce19-/ugh) [2023/07/01(土) 02:35:38.67 ID:1PnTRWpn0.net]: いや、何かみんなVBA「だけ」やってる前提で話してるけど
どっちかと言えばそんな人の方が少数派なんじゃないの？
VBAはOfficeSoftに特化した言語だからEXCELやACCESS使うことが前提なわけで
VBAでWebサイト作りましょうとか、システム作りましょうとかはまずならない。

ただ、EXCEL扱うのにはVBA知ってた方が圧倒的に便利だし、
何か試す際にかなり手軽に出来るから
それはそれで面白くて気になるからこのスレ来てる人が殆どかなと思ってたけど違うのかな？
586 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4fb1-Jyjt) mailto:sage [2023/07/01(土) 03:06:39.70 ID:c/vEPI310.net]: 自分は十数年VBA使いまくってるけど、アラフォーで飲み込みも悪くて基本コード書くときはネットで例題見つけてはそれを加工してる
最近ChatGPT使い始めて、確かに簡単な注文するだけでコードガンガン書いてくれて本当に驚くばかり
ちゃんとコメントも付けてくれて、そして細かいダメ出しにもすぐに対応してくれる

でもやっぱり、最終的にはデバッグは自分でやらなきゃいけないから、結局はそのコードを自分なりに理解しなきゃいけない
そういう意味では、ネットで例題見つける時間を大幅に短縮してもらえるようにはなったなというイメージ

しかし、ネットで見つけてくる例題ほどの完成度はあるのか…？という心配が常につきまとう
シートの操作や簡単な統計のようなものならまだしも、詳細な理論演算とかは出力結果みてもそれが適切な解なのか自信がもてない
そしてこれまでの経験ではちょいちょいおかしな理論をもちこまれる

結局はネットでそれなりの権威の持ち主が公開してるコードじゃなきゃ怖くなってしまう
もしくは自分なりに理論的に構築したロジックをなんとか具現化したものでもなきゃ責任が持てない

ChatGPTでものすごい進化と変化は起こったけど、それで全てがリセットされるというのはまだ先の話かな
そして今後はChatGPTを使いこなすという技術があらたに生まれてくるのかなと思ってみたり
ChatGPTをエンジンとしたコード生成ツールとかできたりして
587 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-fE17) [2023/07/01(土) 04:10:02.52 ID:ttt+olIpa.net]: ここではVBAの話だけしかしないのが正しい
588 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d732-hRAP) mailto:sage [2023/07/01(土) 09:30:51.07 ID:VrNsIall0.net]: >>576
プレビューどころか印刷でも嘘つかね？
589 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd02-+VJx) [2023/07/01(土) 11:38:52.38 ID:X5+rBfw5d.net]: >>558
>Excel使わない企業

Excelなんてこの世に存在しなかった
バブル崩壊前の日本は世界一の経済国だったな
590 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-ZEnY) mailto:sage [2023/07/01(土) 12:17:25.28 ID:haFuKEheM.net]: >>583
嘘つけ、バブル崩壊前にエクセルつかって金融新商品の計算バンバンやってたわ

ロータス123から覇権が交代した時代
591 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2310-mxQB) mailto:sage [2023/07/01(土) 13:12:55.79 ID:1rn1baaI0.net]: ExcelできるってことはVBAもできるって事だよな
592 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-J/Sn) mailto:sage [2023/07/01(土) 13:28:38.11 ID:ve3ouqHIM.net]: バブル崩壊は1992年頃(MS-DOS全盛期)
Excelの本格普及はまだ数年後
593 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2310-mxQB) mailto:sage [2023/07/01(土) 18:26:06.43 ID:1rn1baaI0.net]: 1995年のExcelブームは覚えている
594 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-J/Sn) mailto:sage [2023/07/01(土) 18:44:34.92 ID:GhycDyPNM.net]: Windows95, Plus!95, Office95の3点セットがお約束
595 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2b6e-+Mc8) mailto:sage [2023/07/01(土) 18:58:01.72 ID:Oh7XEfKm0.net]: ChatGPTにおすすめのエディターを聞いたらRubberduckを
勧められたんだが使っている人は多いのか？
ググってもあまりヒットしない。何がいいのか教えて
596 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd22-PlBh) mailto:sage [2023/07/01(土) 19:04:32.16 ID:gYHP+cm1d.net]: >>589
死ねよ
597 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-ZEnY) mailto:sage [2023/07/01(土) 19:06:53.69 ID:8xr8XSCFM.net]: >>586
それより前にMSDOSの上で動くwindows2とか3の時代があって初期のエクセルはそういうwindowsもどきの上で動いていた。ロータス123はのMSDOSの上で動いていたけど、もどきの上のエクセルのほうが優れていたから金融機関の先端部署はエクセルにシフトしていたよ。大衆に普及するのはwindows95以降だけど
598 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-J/Sn) mailto:sage [2023/07/01(土) 19:13:33.10 ID:FPliCilUM.net]: Win2は日本未発売、Win3.0はほぼ失敗作で改良版のWin3.1日本語版は1993年発売
599 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 029d-ZEnY) mailto:sage [2023/07/01(土) 19:57:47.85 ID:G9bG2R8/0.net]: じゃあ何で俺は使えてたのかな
海外の同僚に Windows 2.1 送ってもらったのかな
グローバルビジネスだから日本語いらんのでそうしたかも
ともかく海外の同僚がエクセルを使ってるのが羨ましかった記憶だけはあるわ
600 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd22-M6k6) mailto:sage [2023/07/01(土) 21:11:53.28 ID:Sw9UtBz+d.net]: むしろMSのOS使ってと1-2-3使ってない奴はモグリだろ
AppleのOSで使われてたのがExcelだし
601 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6710-jj/n) mailto:sage [2023/07/01(土) 21:15:52.32 ID:r23DAN/K0.net]: Windows2.x（いくつだったかは忘れたけど）は日本でも使われてたと思うけど
602 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd22-M6k6) mailto:sage [2023/07/01(土) 21:23:58.72 ID:ZTDJ1g/6d.net]: ほぼ8801、9801の日本で使われてたわけねーだろ
603 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23da-+Mc8) mailto:sage [2023/07/01(土) 21:31:34.20 ID:FiZzg/q70.net]: MS-DOSの時代からあったMicrosoft Works　ワードプロセッサ、表計算、データベース、スケジュール管理、通信が
ひとつにまとまった、Microsoft Officeの前身みたいな製品　2009年10月まで販売されていた（らしい）
それと勘違いしてるか、若しくはもうすでに認知sy
5inchだったか3.5inchだったかのFD10枚セットパッケージにサンプル品としてExcel4.0デモ版が添付されてて
それでExcelの機能をお試しできた（らしい）
604 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 029d-ZEnY) mailto:sage [2023/07/01(土) 21:56:15.11 ID:G9bG2R8/0.net]: >>596
NEC なんか使わなかったようちは
at とか MT とか言うようなやつを使ってた記憶がある
605 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 029d-ZEnY) mailto:sage [2023/07/01(土) 21:57:25.75 ID:G9bG2R8/0.net]: ちょっとしたらマックだったかもしれない
606 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6710-jj/n) mailto:sage [2023/07/01(土) 21:58:16.58 ID:r23DAN/K0.net]: Wikipediaによれば、PC-9800シリーズ用Windows 2.1日本語版は1989年6月にを出荷開始

あと「動け！Windows」なるサイトの「歴代Windows」ってページによれば、PC-9801用Windows2.0日本語版は1988年9月に販売開始
607 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6710-jj/n) mailto:sage [2023/07/01(土) 22:01:31.00 ID:r23DAN/K0.net]: >>598
PC/AT互換機だな
そういや情報処理うんたらいう大会で相手校が持ち込んできたのもPC/AT互換機だったな、Windows95だったけど
608 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 029d-ZEnY) mailto:sage [2023/07/01(土) 22:08:29.48 ID:G9bG2R8/0.net]: >>601
そうそうなんかそういう名前だった

エクセル使いたくてマックも導入したかもしれん
609 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/01(土) 22:11:05.38 ID:Qw99Rlz6a.net]: VBAなんていらないおじさんがいないかハンティングにきたけど山に帰ったか
いいことだ

アメリカで優秀だと評判な韓国系の記事を前に読んだが名前もソースも覚えてない
キムなんとか？いわく

あるシーンを乗り越えようとする時、VBA(Excel)を使う選択肢がベストでない事を作る本人は理解している。だが、やろうと思えばVBAで最低限のものは出来てしまう。Excelがあらゆるものをそのレベルへの対応を可能にしてしまう。
それ故に良くも悪くもVBAは根強く残るのだ。Excelが優秀な事が足枷にもなるのだ。
「僕のオフィスは未だにExcelがメインツールなんだよ」
これは地球上の多くのカンパニーで呟かれているのさ

おしまい
610 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/01(土) 22:25:46.41 ID:Qw99Rlz6a.net]: ちなみに俺のVBAの熟知レベルなんて一年生レベル
ここの回答者には心の底から尊敬しかないね
質問に対して見下すレスは好きじゃないが

ここまで偉そうに要約もせずに長ったらしいレスを延々と続けたわけだがこうみえてパワポの資料作成とプレゼンは多分ここの玄人には負けない
役員報告も毎回俺が担当してる
自動車業界のQC全国大会に北海道まで行った事もある
上にいけばいくほどみんなアニメーションが大好き
理想の処理をさせる玄人と違ってパワポ映えさせて口でそれっぽくストーリーを作る虚構の権化、それが俺

使えてもいないAIを知った風に語るニートが現れたらまた狩りにくるわ
611 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d732-hRAP) mailto:sage [2023/07/01(土) 22:40:08.80 ID:VrNsIall0.net]: 過去の栄光なんてどうでもいいんで
612 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d701-JA+y) [2023/07/02(日) 00:07:59.02 ID:9XSikxk90.net]: >>604
師匠と呼ばせてください。

師匠、Excelやっておけば社会で通用しますよね？
天下取れますよね？
613 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/02(日) 00:26:41.62 ID:4ambuWLNa.net]: とれるとれる
がんばってねー
614 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-hiKC) [2023/07/03(月) 09:02:24.50 ID:XuaWdgM7a.net]: キムバレークラークのトイペはなぜあんなに使い難いんだぜ
615 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0bad-NjMy) mailto:sage [2023/07/06(木) 20:30:12.67 ID:IUM+zzRi0.net]: 横に長い表があります
これの入力用にフォームを作っていますが、セルの値のフォームへの反映、フォームの値のセルへの反映を簡単に設定する方法はありますでしょうか？

今は、選択しているセルの行数をもとに、フォームのテキストボックスのCONTROLSAUCEを変更するVBAを使用しています

アドバイスを頂けると助かります！
616 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-PlBh) mailto:sage [2023/07/06(木) 21:12:54.93 ID:Or5iD8GR0.net]: 入力にVBAなんか使うな
617 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4fb1-Jyjt) mailto:sage [2023/07/07(金) 03:06:41.31 ID:7Kb0twbt0.net]: 64bit使ってるところってあるのかな
618 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8e-J/Sn) mailto:sage [2023/07/07(金) 03:42:42.23 ID:rixJK0HVM.net]: 32bitが主流だったのは2013とか2016の頃までだろ
今はVBAでも64bitが主流
いまどきのモダナイズExcelで32bitは扱いづらい
619 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-fE17) [2023/07/07(金) 15:45:30.02 ID:jtTfuF+Ga.net]: >>609
入力で手を抜かない
入力ミスをチェックする
カンマ区切りでsplitとか
620 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-XxlQ) mailto:sage [2023/07/07(金) 16:46:13.42 ID:fKwbBwpWa.net]: すみません、ヒント・アドバイスありましたらお願いできませんでしょうか。

ネットワークよりJSONを取得しExcel内に表展開するVBA付ExcelをWindows環境で使用しているのですが、このMAC対応で苦慮しています。
MAC対応のため一部コードの修正・変更を行い、自分が借用したMACでは何の警告もエラーもなく動作するようになったのですが、先方に渡したMACで動作させると、下記URL画像の警告が出てしまいます。

https://imgur.com/nq4WNPk
メッセージも何もありません。

バージョンは全く同じ Microsoft Excel for MAC 16.74 (23061100) です。

HTTP通信を行う部分は、JsonConverterモジュールの一部FunctionをPublicに変更いたしました。
また、MAC対応のためDictionaryクラスモジュールをインポート済みです。

なお、当方MACは非常に不慣れです...
どなたか、アドバイスありましたらお願いできませんでしょうか。
621 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23da-+Mc8) mailto:sage [2023/07/07(金) 17:04:26.85 ID:0VfWs2EP0.net]: 不慣れなのに請け負うから　これを解決しても続けざまにアレコレ発生するのが目に見える
検証用に一台入手して今後のトラブルに備える覚悟無いならやめとけとしか
古いけどこういうことなんだろう
https://rogolog.com/excel-vba-mac/
https://memorandums.3ki3ki.com/mac-macro/
本家　(相変わらずなんちゅーアドレス
https://support.microsoft.com/ja-jp/office/set-the-properties-for-a-visual-basic-project-in-office-for-mac-23b73fb9-0467-46b1-b996-0a3453474881
622 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-PlBh) [2023/07/07(金) 17:08:05.71 ID:kZsObKAx0.net]: そもそもVBAを使うのが間違い
623 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4fb1-Jyjt) mailto:sage [2023/07/07(金) 17:26:38.99 ID:7Kb0twbt0.net]: >>612
そうなんだ、自分の周りではまだまだ32bitが主流なんで自分も64bitに変えられずにいる
てかごく一部だけどファイルのやりとりすると未だ.xlsで返してくるところもある
早く64bitが当たり前になってほしいな
624 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ce19-/ugh) [2023/07/07(金) 20:07:48.30 ID:fswiLlFY0.net]: >>616
他言語やっててもVBAくらいは使えるようにしとけ
Excel 使うならWebでJavaScript使うのと同じくらい重要だぞ
625 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-PlBh) [2023/07/07(金) 20:23:21.30 ID:abSR6fudd.net]: >>618
馬鹿は話しの流れを読み取れない
626 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ce19-/ugh) [2023/07/07(金) 20:41:10.81 ID:fswiLlFY0.net]: >>619
無能はスレに趣旨も読み取れない
627 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sabb-UYgO) mailto:sage [2023/07/07(金) 21:18:11.39 ID:MbB8vp4aa.net]: またVBA否定おじさんが湧いてきてんのか
狩られる前に山に帰っとけよ
628 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f94-rqKn) [2023/07/08(土) 11:38:12.90 ID:ijl4CXnn0.net]: すみません。ど素人なのですが
excelのコメントの背景に画像を埋め込んで
画像をポップアップ表示していたのですが
列の操作をしていたらコメント表示が崩れてしまいます。
その度に一つ一つセルを選択して元に戻していたのですが
セルを選択して選択範囲のコメントを元に戻すマクロを作りたいです。

Range("選択範囲").Comment.Shape.LockAspectRatio = msoFalse
;縦横比を固定するの解除

Range("選択範囲").Comment.Shape.Width = 385
；サイズと角度の幅を385に指定；

上記2つの処理を選択したセルで実行したいです。
どなたかご教授願えませんでしょう？
629 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fea-BRQS) mailto:sage [2023/07/09(日) 06:16:39.66 ID:EyCr57CU0.net]: >>622
Range("選択範囲”) の部分を Selection にする
630 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b76e-rqKn) [2023/07/11(火) 11:46:33.86 ID:Hz6uZt090.net]: 条件付き書式設定だけを直接コピー＆ペーストする方法はありますか？
PasteSpecial メソッドの xlPasteFormatsだと値もコピーされるので困っています。
631 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-+GKF) mailto:sage [2023/07/11(火) 20:18:45.24 ID:MpA3DZ740.net]: かきこめねぇ
632 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eea5-5LlG) mailto:sage [2023/07/18(火) 10:54:26.03 ID:LvCNnvc20.net]: >>624
xlPasteFormatsなら書式設定だけが貼り付けされるはず
値もコピーされる状況が再現できるならコードがどこか間違ってるんじゃないかな
xlPasteFormulasになってるとか-4122が-4123になってるとか
633 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eea5-5LlG) mailto:sage [2023/07/18(火) 11:30:44.90 ID:LvCNnvc20.net]: あ、もし条件付き書式以外の書式設定を貼り付けたくないって場合ならPasteSpecialじゃできないよ
コピー元のFormatConditionsコレクションのインデックスをループして、
ModifyAppliesToRangeとかAppliesTo.Resizeとかで範囲を変えるしかないんじゃないかな
連レス失礼
634 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3510-oI9e) mailto:sage [2023/07/20(木) 08:56:12.31 ID:OYEyAFmI0.net]: バブル当時は零細企業なんてExcelはおろかPCは職場に１台あるか無いかでしょ
635 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM34-0CIe) mailto:sage [2023/07/20(木) 10:09:00.32 ID:uwS7wrmLM.net]: バブル期はロータスと一太郎の全盛期
636 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾗ Spc1-tdBp) mailto:sage [2023/07/20(木) 20:32:09.68 ID:XQoslBaMp.net]: ロータスとか一太郎使ってた奴は
今頃もう定年退職してるだろうな
637 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd7e-U5P+) mailto:sage [2023/07/20(木) 22:57:39.36 ID:dEX3NXOmd.net]: 十代で使ってたからまだ現役だよ😙
638 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ dada-/jfo) [2023/07/21(金) 21:59:28.58 ID:UW9xrttc0.net]: 一太郎2023 でてるよ
639 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd7f-edyX) mailto:sage [2023/07/22(土) 02:59:24.38 ID:xD38DDURd.net]: 再来年で定年だよ
640 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-LwMQ) mailto:sage [2023/07/22(土) 06:03:31.52 ID:v8m+bwk6a.net]: ロータス時代なんて教則本とかあまり無かったから、その世代の人達は自分で考える力が桁違いに高いね
641 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd7f-edyX) mailto:sage [2023/07/22(土) 09:06:11.45 ID:Zehs4MrMd.net]: 今みたいにネットで調べることが出来ないので、サポートデスクに電話して教えてもらうんだけど、口頭だとなかなか言いたいことが伝わらないで大変だった。
爺の昔話は苦情が来るからここまで。
642 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-pwGU) mailto:sage [2023/07/22(土) 09:43:10.34 ID:ZIIwLrCXM.net]: さようなら！ロータス１－２－３表計算ソフトの歴史
https://news.yahoo.co.jp/byline/kandatoshiaki/20141003-00039667
643 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 47da-nVDU) mailto:sage [2023/07/22(土) 12:14:26.21 ID:KzTx0+hC0.net]: そんな時代もありました案件
644 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4710-LwMQ) mailto:sage [2023/07/22(土) 22:31:19.96 ID:59T8aYZk0.net]: >>635
そのサポートデスクでさえ良く分かってなかったじゃんよ。
今は本当に便利な世の中
645 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-aMqs) [2023/07/23(日) 10:54:22.50 ID:XZ7 ]: [ここ壊れてます]
646 名前：bFq0A0.net mailto: まわるまわるよ時代は回る []: [ここ壊れてます]
647 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6732-nVDU) mailto:sage [2023/07/23(日) 12:03:51.28 ID:qXDZh0wS0.net]: 回る四天王

時代
メリーゴーランド
飛んで
東芝
648 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-T5WS) mailto:sage [2023/07/24(月) 10:59:23.04 ID:2E5Woh530.net]: 仕事でエクセル2003を使っています。
表の中に２つのSUM関数があります。

・０が表示されているSUM関数
・合計の数が表示されているSUM関数

マクロで、
「０が表示されているSUM関数のセル」
だけを選択する事は可能でしょうか。

自分でやった事は以下です。

・ジャンプ機能で数式をチェックする
　「すべてのSUM関数」が選択される。選択不可。
・検索機能で、０を検索する
　「検索条件に一致するデータは見つかりません」
　と表示される。選択不可。

知識がなくて大変申し訳ありません。
皆様のご指導をよろしくお願いします。
649 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-onGn) [2023/07/24(月) 12:05:35.50 ID:XScBRRuC0.net]: 検索対象に「値」ってないのか？　2003持ってないのでよくわからんが
650 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdff-SdiU) [2023/07/24(月) 14:33:06.59 ID:ps4dvXgGd.net]: >>641
馬鹿はこのスレが何のスレか知ってるか？
651 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/24(月) 17:55:27.73 ID:2E5Woh530.net]: >>検索対象に「値」ってないのか？　

数式
・数値
・文字
・論理値
・エラー値

ジャンプ機能の、数式の数値にチェックを
入れれば、SUM関数が選択されます。しかし、
すべてのSUM関数が選択されてしまいます。

「０が表示されているSUM関数のセル」だけを
選択できるマクロ・VBAはないでしょうか。
652 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdff-SdiU) [2023/07/24(月) 18:10:05.43 ID:ps4dvXgGd.net]: >>644
馬鹿が後付けの質問し直し
で選択してどうすんの？
馬鹿は消えろ
653 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-onGn) [2023/07/24(月) 18:54:14.46 ID:XScBRRuC0.net]: 夏休みの宿題かな
654 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-onGn) mailto:sage [2023/07/24(月) 20:06:13.43 ID:MGheshjRa.net]: Excel2021で勉強中で初歩的な質問で申し訳ないです
インテリセンスについて質問させてください
インテリセンスで表示される引数について、
[ ] で囲われた引数は省略可だと思いますが、
例えば、InStr関数については、すべての引数が [ ] です
これはどう理解したらいいのでしょうか？
https://i.imgur.com/RXDupxq.png
よろしくお願いします
655 名前：デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MMbf-XHZ2) [2023/07/24(月) 20:35:39.66 ID:z51ku1oZM.net]: 夏休みか
656 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ dfea-SN+J) [2023/07/24(月) 21:16:06.87 ID:TaKpevNO0.net]: >>641
こんな方法があるようで。
Sub SelectZeroSumCells()
Dim ws As Worksheet
Dim cell As Range
Dim formulaString As String
Dim selectionRange As Range
Set ws = ActiveSheet ' アクティブなシートを取得
Set selectionRange = Nothing ' 選択範囲を初期化
For Each cell In ws.UsedRange ' シート内の各セルをチェック
If Left(cell.Formula, 4) = "=SUM" Then ' セルの数式がSUM関数かどうかを確認
formulaString = Mid(cell.Formula, 2) ' セルの数式を取得（=を除く）
If Evaluate(formulaString) = 0 Then ' 数式を計算し、合計が0の場合はセルを選択
If selectionRange Is Nothing Then ' 初めて該当するセルが見つかった場合
Set selectionRange = cell
Else
Set selectionRange = Union(selectionRange, cell) ' 2つ目以降の該当するセルが見つかった場合、既存の選択範囲に追加
End If
End If
End If
Next cell
If Not selectionRange Is Nothing Then ' 該当するセルを選択
selectionRange.Select
End If
End Sub
657 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4710-LwMQ) mailto:sage [2023/07/24(月) 23:19:00.59 ID:MFtFNdvf0.net]: 馬鹿連呼のイカれ野郎はこのスレにもいるのか？
早く回答しろよ
658 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-onGn) [2023/07/24(月) 23:26:26.61 ID:XScBRRuC0.net]: >>647
インテリセンスの表示でなく、Netのヘルプ見たら string1とstring2 は[]が付いていないので
省略できないのが正しいと思う
659 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/24(月) 23:42:24.30 ID:2E5Woh530.net]: >>649

具体的なVBAをありがとうございます。
本とネットでプログラムを一つ一つ調べてみます。
ありがとうございました。
660 名前：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMcf-XHZ2) [2023/07/25(火) 00:13:56.48 ID:eKqn2vaBM.net]: >>652
自分の間違いを認められない奴は二度と来るな
661 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/25(火) 00:32:36.47 ID:VciGrMU40.net]: >>645

>>で選択してどうすんの？
宿泊施設で働いています。
施設内に冷蔵庫が３つ（A・B・C）あります。
盛り付けた料理を冷蔵庫に運び、保存します。
お客様の人数が少ない日は、AとBだけ使い、
Cを使いません。

（エクセルの表）
A小計・B小計・C小計・ABCの合計

　①空白セルを選択、ムダな列を非表示
★②CのSUM関数による小計０を選択、ムダな列を非表示
　③表全体を印刷

②が「０が表示されているSUM関数のセル」です。
②さえVBAで自動化できれば、①から③までの
すべてを自動化でき、ムダがなくなります。

ややこしい説明で申し訳ありません。
662 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/25(火) 00:40:20.70 ID:VciGrMU40.net]: >>653

おっしゃる通りです。こちらはVBAのスレ
でした。スレを汚して大変申し訳ありません。
663 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ dfea-SN+J) [2023/07/25(火) 04:35:19.33 ID:eLLZuLdp0.net]: >>654
sum文がどこのセルにあるかわからないなら >>649 のコードだけど、表形式のデータでsum文があるセルが固まって存在するならその範囲のセルの値を調べて値が0ならその列を非表示というVBAにしたほうがシンプルかと。
664 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-onGn) [2023/07/25(火) 12:19:49.55 ID:HKHhNjAB0.net]: あくまで想像だがこんなシート？
a,=sum(1+2)
b,=sum(3+4)
c,=sum(5+6)
abc,=sum(a+b+c)
a,=sum(2+3)
b,=sum(1+0)
c,=sum(0+0) ←この行を非表示
abc,=sum(a+b+c)
...
665 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-onGn) mailto:sage [2023/07/25(火) 15:40:59.03 ID:En1UaVrHa.net]: >>651
ありがとうございます
すみません、インテリセンスではなくクイックヒントでした
MicrosoftのHPでそこは確認できているのですが、
クイックヒントとの相違についてが、調べきれませんでした
666 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-onGn) [2023/07/26(水) 03:03:30.47 ID:zCZ/0Zp20.net]: >>658
表示の誤りはよくあるのであまり気にしない方がいいぞ
どうしても気になるならサンプルコード書いて動作確認すればいい
修正パッチや最新バージョン入れたら直ってるかもしれんし、しらんけど
667 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/26(水) 18:20:16.83 ID:WqknVGST0.net]: >>656

>>その範囲のセルの値を調べて
>>値が0ならその列を非表示というVBA
値を調べるVBAがあるのですね。ありがとうございます。
668 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/26(水) 19:00:57.27 ID:WqknVGST0.net]: >>657

そんな感じです。ややこしい説明で申し訳ありません。

（表の並び方）
A・B・C・ABCの合計

A　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
B　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
C　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
ABC SUM関数（AとBとCの合計）

Cの表を使わない場合、セルに数字を入力しませんので、
SUM関数のセルには「０」が表示されます。
「０が表示されているSUM関数のセル」を
選択し、列を非表示にするVBAを知りたいです。
669 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 47ce-LK98) mailto:sage [2023/07/26(水) 19:07:35.36 ID:werXCtDT0.net]: >>661
If Range("C3").Value = 0 Then Rows(3).Hidden = True
670 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdff-SdiU) [2023/07/26(水) 20:12:43.45 ID:I3jexMSod.net]: こんな低能にVBAを弄らせるなよ
後でトラブルが発生するのは確実だろ
671 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-aMqs) [2023/07/26(水) 20:17:42.86 ID:wSHYoxMZa.net]: 見えなくなったの戻せないとか言うんじゃね
672 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/26(水) 22:06:19.18 ID:WqknVGST0.net]: >>662

０を選択、非表示にする事ができました。
皆様本当にありがとうございます。

If Range("●●").Value = 0 Then
Columns("●●").Hidden = True
End If
673 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f33-UQg9) mailto:sage [2023/07/26(水) 22:32:56.39 ID:WqknVGST0.net]: 素人がスレを汚して大変申し訳ありません。
今後はROM中心に参加させていただきます。
674 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4710-LwMQ) mailto:sage [2023/07/26(水) 23:28:32.94 ID:PKfWYZBo0.net]: 素人って？？
ここにプロなんかいないよ。ましてや便所の落書き5ちゃんねるに。
675 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-OsUj) mailto:sage [2023/07/27(木) 01:39:10.67 ID:MKmA/8Fra.net]: >>659
そんなものなんですか
構文エラーなどで調べること多いんですが
エラー理由を知ると精巧に作られてるなと実感していたので意外でした
ありがとうございました
676 名前：デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MMbf-XHZ2) [2023/07/27(木) 01:50:48.93 ID:gFWuor0jM.net]: >>667
お前みたいな無知蒙昧の同類だろ
677 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-edyX) mailto:sage [2023/07/28(金) 16:37:41.40 ID:/W6OIRXGa.net]: 「あ6662」→「6662A」のように、頭に「あ」を含むセルは末尾に「A」をつけるようにするにはどうしたら良いですか？
678 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 47ce-LK98) mailto:sage [2023/07/28(金) 16:47:20.78 ID:rtSxtpUa0.net]: s=range("a1")
if left(s,1)="あ" then range("a1")=right(s,len(s)-1) & "A"
679 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2b-edyX) mailto:sage [2023/07/28(金) 16:47:51.90 ID:/W6OIRXGa.net]: >>671
ありがとうございます！
680 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-azQd) [2023/07/29(土) 05:39:19.04 ID:gWGSOie+0.net]: この程度の頭の連中がマイナンバーシステムを作ったのだろうな
681 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd8a-XRRA) mailto:sage [2023/07/29(土) 06:07:34.04 ID:Ha6G8fCgd.net]: >>673
あなたもデジタル庁の募集に応募すればよかったのにしなかったんでしょ？
682 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-ZEXt) mailto:sage [2023/07/29(土) 07:20:09.13 ID:wbc1KPRI0.net]: >>669
あんたはプロなの？
683 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-LDfi) mailto:sage [2023/07/29(土) 08:28:16.14 ID:PfnsHmcDM.net]: 趣味人
684 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b7ce-YxfT) mailto:sage [2023/07/29(土) 14:22:01.95 ID:0SU66WMB0.net]: バイトで色んな仕事やった中にマクロ作成もあったけどプロ名乗っていい？
685 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-CF7t) mailto:sage [2023/07/29(土) 20:25:55.50 ID:Iv5PIesma.net]: If Left(Cells(1, 1), 1) = "あ" Then
Cells(1, 1) = Mid(Cells(1, 1), 2) & "A"
End If
686 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-ZEXt) mailto:sage [2023/07/30(日) 09:59:21.42 ID:mMKkLHXn0.net]: >>677
今もVBAで飯食べてるならプロを名乗っていいんじゃね？
687 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-Fuds) mailto:sage [2023/07/30(日) 10:12:26.79 ID:kled6o86M.net]: VBAでは職業プログラマは無理だろ
あくまで本業で楽するための道具のひとつ
688 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ da3d-n8TV) mailto:sage [2023/07/31(月) 01:23:29.89 ID:5P8TOtn70.net]: 「そこが知りたい!Excel VBAプロの技 Excel97/2000/2002/2003対応!」
という本が「幻の名書」てことで、
アマゾンでも中古で8,575円になってる。
”素人には見向きもされない難解な本”らしい。
https://thom.hateblo.jp/entry/2015/08/17/211757

調べてみると東京都稲城市立中央図書館にあるとのことで、
18きっぷで南多摩まで行ったわ。
（ちなみに南多摩は無人駅だから・・・・・）
開架なので、誰かが借りてなければ閲覧できる。
かなりマニアックなことが書いてあるのかと思えばそうでもかなったな・・・・。
無駄足だった。
ほほーって思った記事は、for-nextよりfor-eachのほうが早いってことかな。
興味があるやつは稲城に急げ。
689 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd8a-Be6Z) [2023/07/31(月) 02:34:47.30 ID:LEmGEeTtd.net]: と転売屋が書き込んでます
690 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 17da-X/lp) mailto:sage [2023/07/31(月) 09:02:43.19 ID:OlV1D5u10.net]: 転売屋がわざわざ図書館紹介するなんて
回りくどいことはしないかと。
691 名前：デフォルトの名無しさん (ｱｳｳｨﾌ FF1f-6+wX) mailto:sage [2023/07/31(月) 10:07:47.32 ID:8wbRk2dYF.net]: 古過ぎて「名著」とかちゃんちゃら可笑しい
692 名前：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd8a-qpsW) mailto:sage [2023/07/31(月) 10:21:03.99 ID:jUC96+Yvd.net]: 今の365で出来ることまでVBAでしてた時代だろうしなぁ
693 名前：デフォルトの名無しさん (ｽﾌｯ Sd8a-kvF/) mailto:sage [2023/07/31(月) 13:03:47.11 ID:0J/eNra9d.net]: タバコの臭いプンプンしてそう
694 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7eda-CF7t) [2023/07/31(月) 17:54:55.55 ID:bEWQsMnv0.net]: どうでもいいけど　3*0.3333.....　ってやると
勝手に桁数直される時は1で直されん時は0.9999....　になるが見た目区別できない
695 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-ZEXt) mailto:sage [2023/07/31(月) 19:25:33.86 ID:XAjEbrs80.net]: 先輩方に、VBAは自分を守るために使えと教わった。
決して他人のために使うなと。
696 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fb10-I/6h) mailto:sage [2023/07/31(月) 20:36:11.68 ID:zKyqHyMA0.net]: >>688
True
697 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1a33-KN61) mailto:sage [2023/07/31(月) 22:08:50.60 ID:3/Nr8LRO0.net]: >>689
うまwwwww
698 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-Fuds) mailto:sage [2023/08/01(火) 07:52:59.84 ID:JzY3xMiyM.net]: 自己保身か承認欲求か
本性が試される
699 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-ZEXt) mailto:sage [2023/08/01(火) 18:17:32.33 ID:R94W5SY30.net]: 他人に頼まれて作ったらずっと注文されるから止めとけと言われた
700 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd8a-Be6Z) [2023/08/01(火) 19:11:32.30 ID:IJ3FqPP3d.net]: こういうスレを見てるとわかるように馬鹿は厚かましくしつこく聞いてきて挙げ句の果ては作ってくれと言い始める
701 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-ZEXt) mailto:sage [2023/08/01(火) 19:22:21.83 ID:R94W5SY30.net]: そうですよね。というか、あの人ならなんでもやってくれる的な便利屋扱いされる可能性がありますわ。
で、文句言われて終わると。
702 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMe6-xloS) mailto:sage [2023/08/01(火) 19:54:41.69 ID:oLtmhKenM.net]: 部署で使うマクロくらいなら作ってメンテもやってる
操作感と使い勝手がわかるから作りやすい
703 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7eda-p9y8) [2023/08/02(水) 02:05:58.77 ID:oR2VXJHY0.net]: 相談にはにっても、やってというのは受けない方がいいと思う
704 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-IPSQ) [2023/08/02(水) 08:57:59.43 ID:4pI1Wfnva.net]: にかった
705 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-p9y8) [2023/08/02(水) 10:26:10.96 ID:l89J1l2ha.net]: 乗るw
706 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-tm9Z) mailto:sage [2023/08/03(木) 03:53:57.20 ID:UKeTFbsWa.net]: 相談にねった時点で負け
707 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1710-0H1k) mailto:sage [2023/08/03(木) 18:47:51.28 ID:iTm4uhcW0.net]: 本来ならVBA頼まれたら作業料とるべきですよ。
708 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ aa59-rfHk) mailto:sage [2023/08/04(金) 13:53:32.70 ID:xOpPMRcx0.net]: セル更新時等に裏でどのようにVBAが動いてるか調べる方法って無い？
709 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-vR7y) [2023/08/04(金) 15:12:43.43 ID:IuB8EIWua.net]: vbaにブレークポイント付ければ良いのでは
710 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b759-DA6q) mailto:sage [2023/08/04(金) 15:12:48.12 ID:OOLIcLzp0.net]: ステップ実行？
711 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ aa59-rfHk) mailto:sage [2023/08/04(金) 17:27:37.71 ID:xOpPMRcx0.net]: ブレークポイントで特定できた
ありがとう
なんかセル更新時に重いなって思ってたらユーザー定義関数を都度都度大量に再計算してた
揮発性無効にしても効果がないのでなんでかなと思ったらVLOOKUPの第2引数の範囲に入ってるのが原因
面倒だけどユーザー定義関数やめて普通の長ったらしい関数記述するしかないか……
712 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7eda-CF7t) [2023/08/04(金) 20:57:58.34 ID:AtJZBxCM0.net]: 高速化のテクニックは無数にある
無駄な計算を実行しないとか、画面表示を止めるとか、同じ計算を1か所にまとめるとか
713 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ aa59-rfHk) mailto:sage [2023/08/04(金) 21:09:48.87 ID:xOpPMRcx0.net]: と思ったらVBE開いてるときだけ重くなることが判明した
閉じれば普通に軽くなるから使う上では害はないか
なんか釈然としない
714 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2a7c-yh3V) mailto:sage [2023/08/04(金) 23:32:34.31 ID:IpzqmEzK0.net]: 若い新人君がVBAマンやらされてて超可哀想
貴重な時間をそんなことで浪費して
715 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c510-xMhQ) mailto:sage [2023/08/05(土) 03:45:51.67 ID:ejud2Dlq0.net]: 給料上げてやるべき
716 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f59-LTUu) mailto:sage [2023/08/05(土) 08:17:27.77 ID:rnXgWpu00.net]: なんか仕事の愚痴吐く人目立つけど仕事で使ってる人ばっかなの？
ゲームのデータ管理やオカズの整理にしか使ってないのに質問したの申し訳なくなるな……
717 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdc3-Is3a) mailto:sage [2023/08/05(土) 08:34:55.78 ID:lU8F/70td.net]: ええんやで
使いたくて使ってる人と、
使いたくない人に使ってる人じゃモチベが全然違う
718 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f59-LTUu) mailto:sage [2023/08/05(土) 10:49:21.65 ID:rnXgWpu00.net]: でも独学で手探りでやってる身としては仕事でやらせてもらえる人羨ましくも思うわ
書籍とか買うにも自腹だし誰も教えてくれる人も居ないし
何よりそれでお金貰えるの結構モチベになるんじゃない？
719 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-4ObG) mailto:sage [2023/08/05(土) 14:50:20.84 ID:pQVEDhUA0.net]: >>711
ほれ、あれだ。
「仕事でやらせてもらえる」
というのは当然、「成果」を期待されているわけで。

あーでもない、こーでもないと言いながら、
こうはできないか、ああはできないかを自分の時間でする
てのが、一番楽しいのかも知れん。

「VBA研究職」なんてのは、世の中にはないし。
720 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-c/5M) [2023/08/05(土) 20:48:08.79 ID:9WxAdaD/0.net]: 税金から給料もらえる仕事に就くといいのでは
721 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bbb1-AMxq) mailto:sage [2023/08/06(日) 16:55:42.25 ID:1mg8NGPW0.net]: 個人としてみれば、貴重な時間を割いて手伝ったところで他人の成果の向上につながるだけで見返り無し（どころか自分の業務を圧迫することも）
組織としてみれば、VBAで処理できる内容をスキル不足と協調性の無さから手作業でやられたりすれば非効率になる一方なわけで

大手なら教育体制やら個別技能評価あたりで全体を押し上げることもできるんだろうけど、中小零細じゃ厳しいよね
格差は広がる一方だね
722 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ddb1-bULc) mailto:sage [2023/08/06(日) 18:30:00.92 ID:S1Y927HE0.net]: 大手でもそんなに制度がしっかりしてて綺麗に業務が分担してるとかじゃないよ
どこでも曖昧なもんよ
VBAで改善提案出して荒稼ぎしてる
723 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c510-xMhQ) mailto:sage [2023/08/07(月) 18:09:37.03 ID:dIkI+BhT0.net]: ワークシート関数で業務改善しました上司の評価◯
VBAで業務改善しました＝上司の評価上司の評価＝△
724 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sdc3-Is3a) mailto:sage [2023/08/07(月) 20:15:56.29 ID:Xa6sLRsgd.net]: >>716
VBAの式でエラー出しまくってそう
725 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0559-2VJl) mailto:sage [2023/08/08(火) 18:26:34.19 ID:kSOMEDyB0.net]: 担当者がいなくなったあとも後任が直せることが大事だからね
726 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-c/5M) [2023/08/09(水) 10:14:25.88 ID:qEKEd4/l0.net]: 理想はそうだが現実はそううまくいかないことが多い
727 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c510-xMhQ) mailto:sage [2023/08/09(水) 18:15:35.75 ID:3JVSCCUe0.net]: 後任者の知識が曖昧だとキツイですね
728 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0559-2VJl) mailto:sage [2023/08/09(水) 19:40:47.36 ID:ynZvtekK0.net]: プログラマはやれているから
VBA職人もやったら良いと思う
729 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c510-xMhQ) mailto:sage [2023/08/11(金) 19:08:12.63 ID:N7BBrBqP0.net]: 何回かいろいろな職場を渡り歩いたけど、VBA書ける人は数える位しかいなかったのが印象残ってる。
730 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-c/5M) [2023/08/11(金) 19:25:22.67 ID:edq/zelf0.net]: >>722
それはあなたの職場の利益はVBAがメインではないというだけの事
731 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ df10-R/Ki) mailto:sage [2023/08/13(日) 20:44:24.20 ID:oqKR2BBW0.net]: VBAメインの職場？
エンジニアかい？
732 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0eda-eQmn) [2023/08/13(日) 21:24:47.27 ID:uv4CALxs0.net]: 職場の中にVBAが書ける人が数えるくらいしかいないのか、大勢書けるのかはそういう職場ってだけで
それで利益が出ている会社(組織)であれば問題ないと思う
733 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ df10-R/Ki) mailto:sage [2023/08/14(月) 08:12:25.05 ID:tqsR7qSU0.net]: 全く書けない人もいましたよ。ワークシートで使う関数で完結できるらしいから。
734 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMb6-DWIq) mailto:sage [2023/08/14(月) 08:51:33.33 ID:OCn697tAM.net]: エンジニアというかプログラミングが本業で別言語が専門ならVBAにこだわる必要もないしな
というかBASICの派生言語は初心者向けと見做している節があるので必要が無いならあえて手を出そうとはしないだろ
735 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0eda-eQmn) [2023/08/14(月) 10:01:28.83 ID:ZKbk/ejd0.net]: >>726
自分より劣っている人みてどう思う？
そうなりたくないと思うのか、一緒になって馬鹿やっていくつもりなの？
736 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fce-1vgA) mailto:sage [2023/08/14(月) 10:38:54.28 ID:RxDKQnu40.net]: 文法の違いなんて大した問題じゃないから、まともなプログラマなら未経験でもすぐ書けるようになる
たまたま今まで必要になってなかっただけ
737 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMb6-DWIq) mailto:sage [2023/08/14(月) 10:52:14.00 ID:TTcLrbC8M.net]: そりゃ必要無ければやらないだろ
別の選択肢があるのにわざわざVBA使う意味がない
738 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6332-eQmn) mailto:sage [2023/08/14(月) 18:28:40.53 ID:O3+IEAUZ0.net]: 今年度に入ってから、どうしても必要だったVBA&フォームをやっておいたから、Visual C#にもさほど抵抗なく入っていけたわ。
739 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ df10-R/Ki) mailto:sage [2023/08/14(月) 18:50:17.54 ID:tqsR7qSU0.net]: さすがに失礼でしょ。
自分より劣ってるとか一緒に馬鹿やってくとか、自分はそういった目で回りを見ないですから。
740 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1ab1-VPys) mailto:sage [2023/08/14(月) 20:38:20.98 ID:kEtDriiW0.net]: >>726
要は、それでその部署の業務効率がそれなりに上がっているのなら何の問題もないってこと
もしかするとあなたがVBAを使うことに拘っているだけで、そんな部署で周囲が不慣れなVBAを使う方が逆に非効率化につながったりするかもね

例えばただの会計部門があるとして、そこで発行する請求書の金額計算をVBAで即時計算するシートを作ったとして、これは本当に効率的なんだろうか？
そして他の社員から「消費税率変えたいんだけどやり方が分からないから書き直して」
741 名前：と言われたときに、「あー、これだからレベルの低い社員はー」とか嘆いた場合… レベルが低いのはいったいどっちなんだろうか []: [ここ壊れてます]
742 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdba-mZuj) [2023/08/15(火) 00:12:24.51 ID:oAFI4asrd.net]: そもそも会計ソフトがない職場って…
ニートなのか？
743 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f59-eK1Q) mailto:sage [2023/08/15(火) 01:12:34.71 ID:y7tnnM+w0.net]: そういう会社たまに募集出てる。
手書きで帳簿締められる人って条件だったw
744 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 275f-uqZS) mailto:sage [2023/08/17(木) 12:54:54.24 ID:jWboogY+0.net]: chatgptでコード生成すると頼んでもいないのに余計な機能付けてくれるね🥹
745 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fce-1vgA) mailto:sage [2023/08/17(木) 18:13:15.19 ID:/dFKjIE80.net]: それは頼み方が悪いだけ
普通は何回も続きを要求しないと最後まで書いてくれない
746 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMb3-pwIG) [2023/08/22(火) 16:00:04.20 ID:iKCtheYZM.net]: 質問ですみません

とあるログイン画面で
IDとPWをsendkeysで入力して
オートログイン試みたのですが
PW欄は入力反映してID欄は空白の状態です。

試しに、かな入力モードにして実行すると
ID欄にかな入力で反映されますが、
変換（例:testだと「てst」になる）
されているためログインできません。
これはログインID欄側のセキュリティ等の
問題なのでしょうか？

IDとPWは半角英数字で、
事前にセルに入れてあるのをvalueで得て
sendkeysで送ってます

送信先をセルやWordにすると共に
入力されるのは確認できます。
747 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4b-DaUO) mailto:sage [2023/08/22(火) 16:27:04.61 ID:xuHs4woBM.net]: 速すぎたんじゃね
748 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c132-hPrW) mailto:sage [2023/08/22(火) 16:50:30.86 ID:hH58UM4T0.net]: メモ帳でsendkeysを使ったら、Windows 10とWindos 11とで
メモ帳が完全に立ち上がるまでの時間にわずかな差があるから、
Windows 11では発行が早すぎて何も起こらなかったことがある。
749 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c949-Uf20) mailto:sage [2023/08/22(火) 17:20:50.90 ID:6VUW5eCD0.net]: せんどきーねえ。。
750 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMb3-pwIG) [2023/08/22(火) 17:35:32.69 ID:zRHQEGsEM.net]: 皆さま、ありがとうございます

最初早すぎだと思って
試しにIDで止めてみても
マウスポイントがチカっと光って（送られてる？）
何も反映されませんでした。
次にID欄に実行してるのを
PW欄だけで実行すると入力されたので
ID欄自体の問題かなと考えてます。

学校のedgeからIEモードで開いた
ログインサイトで
家のPCでは出来たのですが
学校配布のPCで実行するとダメでした。

夏休みの自由課題としてやっていたのですが
行き詰まってしまいました。
751 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c9e5-DaUO) mailto:sage [2023/08/22(火) 20:08:55.62 ID:7p7UHXwl0.net]: ブラウザの話ならそう言えよ
解決方法はしらんけどな

ieならActiveXからの操作で安定だろ
752 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMfd-++yE) mailto:sage [2023/08/22(火) 20:47:58.60 ID:57wATwN5M.net]: Selenium使ってVBAでサイト開いてログインしたいって話でしょ
すぐわかったけど
エッヂのバージョンとウェブドライバーのバージョンが合ってないとかその辺か
753 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 796e-YAjS) mailto:sage [2023/08/22(火) 21:13:55.24 ID:97CmeXUS0.net]: 最近chromedriverの更新が追い付かなくて対応するのが面倒だった。
webdriver-managerにして改善したけど遅いな
754 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4102-DaUO) mailto:sage [2023/08/22(火) 21:16:51.83 ID:FwAi9wzX0.net]: Seleniumってセンドキーなんかつかわないかんの？
755 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 89ce-Xf/K) mailto:sage [2023/08/23(水) 01:12:56.32 ID:cxtvhOeg0.net]: Sendkeysが必要になるかどうかはwebサイトの作りによる
入力フォームなどにIdがちゃんと設定されてないと詰みがち
756 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b3bd-oHaR) mailto:sage [2023/08/23(水) 22:51:14.34 ID:BlvzWZd70.net]: >>738
DOMってわかる？
ウェブサイトってタイトルやフォームみたいなパーツで作られてるのは直感的にわかると思うんだけど、
それらは全部住所みたいなものを使って直接触ることができるのね。

そのＤＯＭを使ってＩＤ欄やPW欄の入力されてる文字自体を変更し、
次に送信ボタンを触ってclickメソッドを実効するのが一般的な方法だと思う。
「スクレイピングログイン vba」とかで検索すると簡単に出てきます。

sendkeyだとタイミングの問題の他、そもそも入力欄が選択されているのかの問題もあるから、
ゲームみたいなそもそも入力欄がないような場面でしか使わない。

タイミング問題はDOM操作にも発生するけど、
読み込みを待つための定番コードがあって比較的安全にアクセスできる。
こちらも「selenium 待つ vba」で検索すると出てきます。
757 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4b-pGo3) mailto:sage [2023/08/24(木) 05:03:17.77 ID:wXHnjh4RM.net]: Microsoft、「Python in Excel」を発表～Windows向けベータ版でテスト開始
https://forest.watch.impress.co.jp/docs/news/1525532.html
758 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4b-pGo3) mailto:sage [2023/08/24(木) 05:04:20.26 ID:wXHnjh4RM.net]: ごめん総合スレと間違えた
759 名前：デフォルトの名無しさん (ｻｻｸｯﾃﾛﾛ Sp0d-uDNR) [2023/08/24(木) 20:06:04.03 ID:VgGK6Go7p.net]: >>749
来た・・・のか？
760 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d1ec-ToHT) mailto:sage [2023/08/24(木) 20:19:22.92 ID:9ogn9xLY0.net]: 思ってたのと違う形態や
761 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMab-8W5i) mailto:sage [2023/08/24(木) 20:22:38.26 ID:t/lOrPqdM.net]: >>749
Python自体はクラウド上で実行って
会社では使えないな
762 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ db79-wKkg) mailto:sage [2023/08/24(木) 22:00:43.13 ID:W+JHQ2GG0.net]: サブスクに重ねて金取るのか
何やそれ
763 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2b8e-1fKg) [2023/08/24(木) 22:05:02.11 ID:PZycjr7d0.net]: 実際の実行はクラウド上で行うからだろ
インターフェースを追加しただけだ
764 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ db79-wKkg) mailto:sage [2023/08/24(木) 22:16:32.36 ID:W+JHQ2GG0.net]: クラウドで金取るモデルは広まらないよ
そのうち有志の野良python環境に挿げ替わるんじゃね
765 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdf3-iFcE) mailto:sage [2023/08/25(金) 00:01:23.03 ID:IOlfztOBd.net]: >>756
ならopenPyXlとかxlwingsとか使うだけじゃね
766 名前：（EXCEL版）５ちゃんねるスレタイ検索ツール (ﾜｯﾁｮｲ da89-6jLp) mailto:sage [2023/09/11(月) 14:52:46.55 ID:HHX5mbL20.net]: https://i.imgur.com/UKu8Mlf.png
https://i.imgur.com/J1SuXUS.png
VBAで作ってみたが、提供しない。
767 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9ab5-R9zz) mailto:sage [2023/09/11(月) 19:38:08.28 ID:7mikMXk50.net]: 公開したくてたまらないって感じだけど
正直PCで未だに5ちゃんやってる人なんてほとんどいないからね…
768 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdba-benL) mailto:sage [2023/09/11(月) 19:53:25.45 ID:jh55A2B4d.net]: mateって便利なアプリがあることを教えてあげたい
769 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ e3da-KCBg) mailto:sage [2023/09/11(月) 20:30:29.14 ID:iVOktJK70.net]: スマホからのこの書き込み、mate。
デスクトップでは以前『Live5ch』を使っていたが、Talk専用になってしまった。
他にも探したが、使いにくかった。
Excelのスクショ貼るには、デスクトップから。
770 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffce-SjEv) mailto:sage [2023/09/11(月) 20:34:52.02 ID:nPo9+2yh0.net]: Janeで何も困ってない
771 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 83da-MPWR) mailto:sage [2023/09/11(月) 20:38:20.27 ID:XG/KtWQC0.net]: PCからなら
JaneStyle 4.23の延命スレ参考に、ごにょごょしてとか、
ギコナビなら人柱版ﾊﾞﾀ72(1.72.0.866)とか
色々
772 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdba-benL) mailto:sage [2023/09/11(月) 21:03:05.00 ID:jh55A2B4d.net]: 何このロボットみたいな文章
773 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdba-zlg9) mailto:sage [2023/09/11(月) 22:14:37.37 ID:exwJXaZMd.net]: なぜ触るのか
承認欲求モンスター大喜びじゃねーか
774 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ e3da-KCBg) mailto:sage [2023/09/12(火) 01:01:45.73 ID:sTBLiLKO0.net]: >>765
『にやにや』が止まりませ～ん♪
775 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8abd-AmsK) mailto:sage [2023/09/12(火) 20:29:10.94 ID:m88zAnXo0.net]: 普通におじさん構文で怖いわ
776 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMba-UMDi) mailto:sage [2023/09/13(水) 06:41:05.98 ID:rgYfAsVOM.net]: 5chはおじさんの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
777 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ da89-6jLp) mailto:sage [2023/09/13(水) 06:41:58.87 ID:gyHagRQI0.net]: 【質問】
作ってみた。どや？
https://i.imgur.com/iPS3M3e.png
778 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e301-ikMy) mailto:sage [2023/09/13(水) 11:24:28.95 ID:EEgtnT400.net]: セルベーダーは感動、感心したわ、色んな意味で
779 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd5a-bdWa) mailto:sage [2023/09/13(水) 11:27:55.23 ID:Yx+Fhppad.net]: ああいうのは一番最初にやったやつだけが面白い
780 名前：デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM8a-d/CV) [2023/09/13(水) 18:14:01.15 ID:mjWmASTcM.net]: 職業訓練校通いのおじさんが自慢するスレ
781 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾃﾃﾝﾃﾝﾃﾝ MMb6-KCBg) mailto:sage [2023/09/13(水) 18:35:10.29 ID:BoUFSJ2kM.net]: >>772
世の中、金持ってる方が上なんやで（笑）
https://i.imgur.com/5XjGLng.jpg
https://i.imgur.com/l6AvarI.jpg
782 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdba-Du02) mailto:sage [2023/09/13(水) 19:03:14.69 ID:8tIdE0x0d.net]: 非モテをこじらせたまま老いるとこーなるのかぬ　参考になるぬ
783 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8abd-AmsK) mailto:sage [2023/09/13(水) 20:39:45.93 ID:QRa3u4fp0.net]: いつも気になってたから聞いてみるわ
何でお前みたいなヤバいやつって揃いも揃ってロボットみたいな口調なの？
784 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdba-7VGn) [2023/09/13(水) 21:01:18.08 ID:80Drqb83d.net]: >>773
普通の人は職業訓練校なんて行かんよ
785 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-bpS4) mailto:sage [2023/09/13(水) 23:36:51.13 ID:ljzzNVbDa.net]: >>776
偏差値判るよな
786 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdba-Tt2Y) [2023/09/14(木) 02:45:37.99 ID:8m/4KAKkd.net]: 職業訓練校通いの無職男性の年寄りがドヤ顔
こいつ例の零細企業勤めの爺だろ
787 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ da89-KCBg) mailto:sage [2023/09/14(木) 07:05:27.33 ID:0Z3SKyG70.net]: お前ら勘違いしてるぞ！　俺のスペックを紹介するよ。
親父が高卒の元公務員（警察官）で、
我が家は世帯の金融資産が１億円を超える『富裕層』なんよ。
日本には富裕層がわずか2.7％しか居ない。
だから、生活のために働く必要なんてないんだわ。
しかし、無職の頃モンハンにハマってたら親父に殴られた。
仕方なくラクなバイト（工場の守衛室）週２回夜間だけ働いてるわ。
遺伝子のおかげで格闘技は強いんだが、脳ミソまで筋肉やがな（笑）
プログラミングは『金持ちの道楽』
ExcelVBAは、おもに株のデータ分析に活用してる。
お前らもスペック書いてよ！
788 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ da89-KCBg) mailto:sage [2023/09/14(木) 07:27:55.14 ID:0Z3SKyG70.net]: 職業訓練校は去年の話や。
IT系コースで ExcelVBAとACCESSを習った。
授業のペースが早くて理解できず、ほとんど身に付かなかったわ。
グループワークで 20代後半の女性と話すのも新鮮だったわ。
就職の為ではなく『失業手当の延長』が最大の目的だ。
去年は失業手当の総額が 100万円を超えてた。
実は、職業訓練校に通ったのは去年が４回目。
789 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sdba-Du02) mailto:sage [2023/09/14(木) 15:20:19.42 ID:LY7EgMJsd.net]: そんトキ付いていけてなくても　あとでもらった資料を見返すと　案外すんなり理解が進んだりするぬ
790 名前：デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM8a-d/CV) [2023/09/14(木) 15:56:44.63 ID:CPm14Qh/M.net]: 職業訓練校の授業にもついていけなかった無職の子供部屋おじさんがいきりはじめました
791 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff59-2wCl) mailto:sage [2023/09/14(木) 16:17:39.82 ID:/d7uzmrP0.net]: 訓練校の学習ペース速いんだよね。
初学者が躓くと挫折する。
792 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMb6-fp0Z) mailto:sage [2023/09/14(木) 16:23:06.62 ID:1AEptNA6M.net]: プログラミングは義務教育だし初学者は無視だろ
793 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM67-R9zz) mailto:sage [2023/09/14(木) 17:00:40.65 ID:e1e6HVz7M.net]: このスレで職業訓練校というパワーワードが出るとは
もうVBA以前の問題でフォークリフトの技能講習とか取った方がいいんじゃねーの
794 名前：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM8a-d/CV) [2023/09/14(木) 17:29:04.17 ID:UVo7YKcqM.net]: 無職子供部屋おじさん

もろに英一郎案件
795 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMb6-5CWk) mailto:sage [2023/09/14(木) 18:38:58.30 ID:Db2aBov/M.net]: 電気工事士かボイラー技師の方が良くない？
796 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ 5fda-KCBg) mailto:sage [2023/09/14(木) 19:59:51.79 ID:Xxpyx0oi0.net]: お前ら、何の資格とったの？
https://i.imgur.com/HJOwP64.jpg
https://i.imgur.com/FnuM1zX.jpg
797 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sdba-zlg9) mailto:sage [2023/09/14(木) 20:59:03.34 ID:jq5ex7dFd.net]: 世の中から認められてない、
必要とされてないコトは理解できてるんだな
かわいそうに
798 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e301-ikMy) mailto:sage [2023/09/14(木) 22:22:45.67 ID:kQn+Df7T0.net]: （定年）退職したら ExcelVBAとACCESSコース受けるわ
寝てても理解できるし金もらえるとか美味しすぎる
（あ、前職バレるん？土方と言えばオケ？）
799 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff59-2wCl) mailto:sage [2023/09/15(金) 02:10:41.32 ID:Ux2xtMGQ0.net]: 定年後って失業手当もらえるの？
800 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-bpS4) mailto:sage [2023/09/15(金) 10:52:25.67 ID:FLL155poa.net]: おまいらの払った税金がこんなのに使われてるんだぜ
801 名前：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MM63-AT3V) mailto:sage [2023/09/15(金) 13:10:13.06 ID:XGzsxbAMM.net]: 嫌なら出ていってもいいんだぞ
802 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-bpS4) [2023/09/15(金) 14:52:58.58 ID:FLL155poa.net]: >>793
これな
https://www.youtube.com/watch?v=l065M7DJtB8
https://www.youtube.com/watch?v=YTNptpYmcFk
https://www.youtube.com/watch?v=OAyCzIQHkts
803 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f49-gmBc) mailto:sage [2023/09/15(金) 15:10:56.61 ID:a74ojgzk0.net]: 雑談スレ
804 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｲｰﾜ2 FF12-KCBg) mailto:sage [2023/09/15(金) 15:51:18.79 ID:0NerNeAkF.net]: https://i.imgur.com/bFs1lNP.jpg
https://i.imgur.com/OSR12Zv.jpg
現引きしたから減ったように見える。
でも、翌朝５時に口座残高は正常に戻る。
805 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e332-erq7) mailto:sage [2023/09/15(金) 18:57:24.40 ID:D9/RTlLj0.net]: かまってくれる人いんのんやな
806 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fda-JsEB) mailto:sage [2023/09/15(金) 19:32:05.53 ID:cd4Mhd650.net]: そこで、Whisperと連携して、成り行きで全株式売り！
とかすればかっこいいのぅ
807 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sdba-zlg9) mailto:sage [2023/09/15(金) 20:48:39.15 ID:7VUDEurGd.net]: 触らずにはいられない病
荒らしの相手する奴も荒らしとはよく言ったもので
808 名前：（EXCEL版）優待スレからレア情報の発掘ツール (ﾜｯﾁｮｲ cfa5-ZHvs) mailto:sage [2023/09/16(土) 18:50:25.00 ID:NWxpsVP30.net]: https://i.imgur.com/m5W5Liq.jpg
https://i.imgur.com/9uzNLaN.jpg
https://i.imgur.com/cFKrV8c.jpg
https://i.imgur.com/LefrET9.jpg
お前ら、３連休を楽しんでるか？
809 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4f10-2VPA) mailto:sage [2023/09/17(日) 12:55:17.44 ID:w1L9HAkI0.net]: 職業訓練でVBAコースとかレアだと思う。
自分の地域はビジネスコースか医療事務か介護コースしかない
810 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0f9b-5Uth) [2023/09/18(月) 10:43:43.03 ID:UcHLSTJh0.net]: l_i_t_e(邪魔という方は左記をNGお願いします)

更に家族にも教えて追加で￥4000をゲットできる！
https://i.imgur.com/JnCgXpC.jpg
811 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f63-DjdT) mailto:sage [2023/09/18(月) 12:24:57.59 ID:96unkEOz0.net]: >>802
絶対に試すべきだね。
812 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-NfV8) mailto:sage [2023/09/20(水) 11:06:33.59 ID:GIJhei1D0.net]: 宣伝かよ削除依頼出した方がいいのかな？
813 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sd5f-2QWH) mailto:sage [2023/09/20(水) 11:48:24.12 ID:vReq5NqSd.net]: その方が良い
814 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3f79-EhfR) mailto:sage [2023/09/21(木) 00:44:13.32 ID:H7YqoNcR0.net]: 削除依頼って機能してるの？って疑問が
815 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4fce-NfV8) mailto:sage [2023/09/21(木) 00:51:02.36 ID:vSTRK7zj0.net]: 荒らしが多すぎてほとんど機能してない
依頼が100あっても実際に削除されるのは数個
816 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sdaa-rxxA) mailto:sage [2023/09/23(土) 08:13:34.89 ID:EJsHT2SBd.net]: 他スレのこれに関しては削除依頼機能してるね
817 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ee-f7kt) mailto:sage [2023/09/23(土) 19:06:36.67 ID:jmQqTPvF0.net]: 昔は削除人がすぐ動いてくれた気がする
818 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1bac-vno/) mailto:sage [2023/09/23(土) 21:22:49.47 ID:yLXwI4cl0.net]: 悪ノリで真似してるやつも多いんだろ、しらんけど
819 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0736-f7kt) mailto:sage [2023/09/25(月) 14:49:00.33 ID:AvFI4mAE0.net]: Excelスレ、マクロスレともにだんだん過疎ってきてるのはネタが尽きたからかな？
それともExcel自体オワコンだから？
820 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 27ce-WMZf) mailto:sage [2023/09/25(月) 15:21:12.63 ID:Hhr+Al0F0.net]: 最近5chの規制が厳しくなって、かなり書き込みがやりにくくなった
類似の掲示板がいくつもできて互いに潰し合いをしてて、人が分散した
821 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0736-f7kt) mailto:sage [2023/09/25(月) 17:48:13.18 ID:AvFI4mAE0.net]: そうなんだ。道理で寂しくなった訳だ。一週間以上書き込みなしとかザラ
822 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sdaa-rxxA) mailto:sage [2023/09/25(月) 19:51:38.65 ID:h4JXV3std.net]: 書き込み規制が一番影響大きかった気がする
823 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd4a-WMZf) mailto:sage [2023/09/25(月) 20:14:28.69 ID:qz1xrI0zd.net]: LINE掲示板への誘導もかなりひどいことになってるし
824 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0736-f7kt) mailto:sage [2023/09/26(火) 02:09:19.73 ID:N1pTSTsE0.net]: 月イチで書き込み規制食らう。もう5ちゃんは終わりかも。
825 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fabd-ntr7) mailto:sage [2023/09/26(火) 10:29:35.57 ID:wjfDMRbv0.net]: 今VBAの質問したい場合はどこに書くのがベスト？
qiitaは鼻で笑われそう
知恵袋が年齢層とマッチしてるかな
826 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ debf-XJtl) mailto:sage [2023/09/26(火) 12:02:20.02 ID:fy30Qqf30.net]: まずはここに書いてみ？
827 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0a58-f7kt) mailto:sage [2023/09/26(火) 12:49:35.87 ID:QhUA9uAI0.net]: 知恵袋も下火っぽいよ。
828 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMc6-se1G) mailto:sage [2023/09/26(火) 12:58:35.95 ID:OBNYB9z3M.net]: copilotに聞けばいいよ
829 名前：デフォルトの名無しさん (ｽﾌｯ Sdaa-WMZf) mailto:sage [2023/09/26(火) 13:21:45.27 ID:LWSdo286d.net]: copilotは知恵袋より信頼できると思う
830 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0736-f7kt) mailto:sage [2023/09/26(火) 18:13:51.85 ID:N1pTSTsE0.net]: ms純正だから信頼できるよね
831 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 869b-lrL5) [2023/09/26(火) 18:28:27.80 ID:RHujdELN0.net]: MS製だから信用できんのだろうが
832 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fabd-ntr7) mailto:sage [2023/09/26(火) 19:32:53.14 ID:wjfDMRbv0.net]: copilotってVBEでも使えるの？
他言語だがVSCodeでは使ってる
あれ凄いよね、もはや上手いコメント書いたら殆どコーディングしてくれる
体験版終わったら脳死で課金した
833 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1e8e-XHBf) [2023/09/26(火) 20:10:45.32 ID:UX+CVdyj0.net]: >>824
基本的なことがわからない探せないお前みたいな低次元の無能な人が重宝するだけ
834 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0ac8-tU16) mailto:sage [2023/09/26(火) 20:47:48.58 ID:e5wjlTrL0.net]: まぁちょっとでもコーディング楽したいからカネ払うってのはアリカモとわ思いましたケドぬ
835 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0736-f7kt) mailto:sage [2023/09/27(水) 08:16:47.55 ID:KzAf4gKK0.net]: これ以上カネ払いたくない
836 名前：むっつりクマたん ◆cIkVt1EXxY (ﾜｯﾁｮｲ ca89-j351) mailto:sage [2023/09/27(水) 11:24:21.36 ID:pPbUGATv0.net]: 俺はこんな情報すら知らない『情弱』だったわ。
https://sogyotecho.jp/microsoft-365-copilot/
837 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6b01-P6+q) mailto:sage [2023/09/28(木) 22:12:51.19 ID:dYhUuhvT0.net]: Redimって途中からの指定は無理なのか？
Redim Arry(1 to Ubound (Arry) , 5 to 10)みたいな感じにしたいんだが
838 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 27ce-WMZf) mailto:sage [2023/09/28(木) 23:04:37.28 ID:Kp8uTxgJ0.net]: 無理
839 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 062f-oRtz) mailto:sage [2023/09/29(金) 01:59:31.59 ID:YBCTJXQl0.net]: >>829
途中ってどういう意味だ?

Sub test()
Dim Arry()
ReDim Arry(5, 10)
ReDim Arry(1 To UBound(Arry), 5 To 10)
End Sub

とくにエラーはでないが？
840 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr23-P6+q) mailto:sage [2023/09/29(金) 06:16:54.23 ID:hPMCTGyUr.net]: >>831
分かりにくくてすまん
Redim Arry(1 to Ubound (Arry) , 5 to 10)と書いてもエラーは出ないけど実際二次元側の配列に格納されるの1～6の値になるってこと
841 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9b2f-UA51) mailto:sage [2023/09/30(土) 00:04:10.69 ID:u5B7upPH0.net]: >>832
ますます意味がわからん
ReDimした段階で中身は空なんだが？
842 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23ea-/hnu) [2023/09/30(土) 10:41:38.51 ID:e5dXzvv10.net]: >>832
う～ん、言っている内容がわからない。画面キャプチャして貼ってみて。
https://i.imgur.com/LPlz6iE.jpg
843 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sd43-1H40) mailto:sage [2023/09/30(土) 12:02:57.08 ID:+2S9roRWd.net]: 値なのか添字なのかハッキリしてくれ
844 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8501-E3Lm) mailto:sage [2023/09/30(土) 19:39:00.90 ID:HRNdSGlC0.net]: 度々すいません

Sub test()

Dim Arry()

Arry = Sheet1.Range(“A1”).CurrentRegion.Value

Redim Arry(1 to Ubound (Arry) , 5 to 10)

End Sub

これで二次元側の値をArryの5～10の値を格納したいけど1～6の値がはいります

そもそも無理なんでしょうか？
845 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8501-E3Lm) mailto:sage [2023/09/30(土) 19:44:55.14 ID:HRNdSGlC0.net]: Preserve書き忘れてましたけど実際は書いてます
846 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd43-IetE) mailto:sage [2023/09/30(土) 20:30:52.83 ID:ITwwqQZud.net]: こいつずっと日本語おかしいけど
なんなの？w
847 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23ea-4a9y) [2023/09/30(土) 21:43:15.63 ID:e5dXzvv10.net]: >>836
何をやりたいのか書いた方がいいかも。
見た感じ、Redimの使い方を間違ってる、機能を誤解している印象。
848 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 8501-6YkV) mailto:sage [2023/09/30(土) 21:52:52.81 ID:UMbhW8aD0.net]: >>836
>>834
849 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23ea-/hnu) [2023/10/01(日) 08:29:59.20 ID:Po2H+ILb0.net]: Redimは配列の要素数を変更するもの。元々の添字が1～10でRedimで5 to 10としたら要素数を6に変更し添字が5から始まるようになるだけ。 Preserveを使っているなら元の値の頭から変更後の要素数分だけ持ってくる。

てか、この後どう使っているか知らないけどRedimする必要ある？
配列から値を読み出す時に添字をいじればいいんじゃない？

c = 4 ‘今回の使い方だと-4?
d = arry(a, b + c)
850 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0502-5C2y) [2023/10/01(日) 14:22:43.95 ID:n3YXj22r0.net]: 素人質問で申し訳ありません。
VBAをコピーしつつ組んだのですが下記がエラーが出てしまいます。
ご教示いただけますと幸いです。
A行(A1：A100)をダブルクリックするとA行に１加算され、
B行(B1：B100)をダブルクリックすると、B行には年月日が、C行には時間が記載される。
D行(D1：D100)をダブルクリックすると、D行には時間が記載される。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Target.Value = Target.Value + 1
If Not IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("B1:B100,D1:D100")) Is Nothing Then Exit Sub
If Target.Column = 2 Then
Target.Value = Date
Target.Offset(, 1).Value = Time
ElseIf Target.Column = 3 Then
Target.Value = Time
ElseIf Target.Column = 4 Then
Target.Value = Time
End If
Cancel = True
Cancel = True
End Sub
851 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd43-VEJP) mailto:sage [2023/10/01(日) 16:06:27.86 ID:BhexpavYd.net]: どんなときにどんなエラーが出るか（どのコードでエラーがでるかなど）ぐらい書いたほうがいいんじゃね
素人でもそれぐらいはできるでしょ
852 名前：842 (ﾜｯﾁｮｲ 0502-UA51) [2023/10/01(日) 17:20:06.14 ID:n3YXj22r0.net]: >>843
すみません。エラーが出るというより、Ａ行とD行しか反応しません。
853 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7dce-VEJP) mailto:sage [2023/10/02(月) 03:50:19.29 ID:oQhLkSNR0.net]: >>842
とりあえずこれで動くけど、何か説明が抜けてない？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Intersect(Target, Range("A1:A100,B1:B100,D1:D100")) Is Nothing Then Exit Sub
　　If Target.Column = 1 Then　'A列
　　　　Target.Value = Target.Value + 1
　　ElseIf Target.Column = 2 Then　'B列
　　　　Target.Value = Date
　　　　Target.Offset(, 1).Value = Time
　　ElseIf Target.Column = 4 Then　'D列
　　　　Target.Value = Time
　　End If
　　Cancel = True
End Sub
854 名前：842 (ﾜｯﾁｮｲ 756f-4zuU) [2023/10/02(月) 08:22:38.98 ID:9fso2rak0.net]: >>845
ありがとうございます。
やってみます。
説明できる限りのことは書いたのですが
要領を得なかったら申し訳ありません。
855 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd43-VEJP) mailto:sage [2023/10/02(月) 09:11:09.89 ID:MMPwIajKd.net]: >>846
自分の書いてる説明には
If Not IsEmpty(Target) Then Exit Sub
これに相当することが書かれてないけど必要なの？
これがあるとB列とD列は一度設定されると以降の処理が動作しないよね（未設定の時だけ設定される動作）
（そういう点では>>845のコードは説明に合わせたコード）
あと
ElseIf Target.Column = 3 Then
Target.Value = Time
これは自分の説明にはない動作だよね（「C列をダブルクリックしたら時間を設定」だけど実際にはIntersectの範囲に含まれないから動作しない）
856 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d9a-/sIl) [2023/10/02(月) 12:25:48.10 ID:ld9+k8U+0.net]: >>反応しません
ってので見てるとこがね…
857 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d9a-/sIl) [2023/10/02(月) 12:26:02.80 ID:ld9+k8U+0.net]: >>反応しません
ってので見てるとこがね…
858 名前：デフォルトの名無しさん [2023/10/11(水) 12:18:31.21 ID:VviNns4z0.net]: vbaを含むxlsmファイルのライセンスってどこに含めるのが一般的ですか？
859 名前：デフォルトの名無しさん [2023/10/11(水) 12:24:39.89 ID:nuQ0rfxo0.net]: つくったとこじゃね
860 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM1d-YcX+) mailto:sage [2023/10/15(日) 13:46:37.05 ID:f8ckKaeDM.net]: VBA使えなくなるんですか？？？
https://gigazine.net/news/20231012-microsot-kill-off-vbscript/
861 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 131f-ty0S) mailto:sage [2023/10/15(日) 13:55:09.75 ID:vVffQC480.net]: YES
862 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fbbf-3tBr) [2023/10/15(日) 14:15:54.32 ID:BVKbSlte0.net]: >>852
馬鹿
863 名前：デフォルトの名無しさん mailto:sage [2023/10/15(日) 14:24:09.38 ID:vRG6kfBHM.net]: VBSとVBAは別物なのでまだ当面使えなくなることはないだろうけどそろそろ別の手段を考え始めた方が良さげな感じではある
864 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7b77-fsiV) mailto:sage [2023/10/15(日) 15:28:22.49 ID:j1k0qbJm0.net]: セキュリティリスクだからVBA使うなって会社もそろそろ増えてきてるだろうしな
865 名前：デフォルトの名無しさん [2023/10/15(日) 17:42:26.62 ID:H9M8XB6j0.net]: excelが悪い
866 名前：デフォルトの名無しさん mailto:sage [2023/10/16(月) 09:17:56.44 ID:1jmJ2+9pM.net]: もう今はExcelとVBAではなくモダンExcelとPowerPlatformの時代
867 名前：デフォルトの名無しさん [2023/10/16(月) 09:59:53.14 ID:kgcCjrnKa.net]: >>856
同じ理由ならpowershellも廃止すべきでは
868 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2bf7-xRLz) [2023/10/17(火) 07:51:58.43 ID:mIHb8CZV0.net]: 自分が使わなければいいだけでしょ
869 名前：デフォルトの名無しさん mailto:sage [2023/10/18(水) 10:45:13.63 ID:BxVgF2oz0.net]: なんでやねん、説明して
870 名前：デフォルトの名無しさん mailto:sage [2023/10/18(水) 11:05:14.43 ID:IL9b7uemd.net]: >>861
スレチなので当該スレでやって
871 名前：デフォルトの名無しさん mailto:sage [2023/10/19(木) 20:33:49.11 ID:k8TjAFfd0.net]: ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？
872 名前：デフォルトの名無しさん mailto:sage [2023/10/19(木) 20:36:45.56 ID:k8TjAFfd0.net]: ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？
873 名前：デフォルトの名無しさん mailto:sage [2023/10/19(木) 20:37:04.09 ID:k8TjAFfd0.net]: ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？
874 名前：デフォルトの名無しさん mailto:sage [2023/10/19(木) 20:37:18.34 ID:k8TjAFfd0.net]: ACCESSの連結フォームのように、Excelのセルとフォームを簡単に連動させるテクニックはありますか？
875 名前：デフォルトの名無しさん mailto:sage [2023/10/19(木) 23:17:38.32 ID:3q17UY2e0.net]: Excelのセルを使ってVBAソースを作る
似たような式をフィルでズズーと作ると気持ちいいぞ
876 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5901-Q3Hg) mailto:sage [2023/10/20(金) 03:27:46.40 ID:mGpX8NcL0.net]: >>867
狙ったとこだけ変えるテクを教えてください
877 名前：デフォルトの名無しさん mailto:sage [2023/10/20(金) 18:26:19.01 ID:YxHuWP400.net]: これを参考にしてみて、この程度でいいならいちばんシンプル
https://forest.watch.impress.co.jp/docs/serial/exceltips/1208637.html

もっと深く踏み込んだのが欲しければ、ここで在庫管理とかを解説してる　
真似するだけで、かなりのものに仕上がる
https://www.minizaiko.com/entry/ZaiSis102
878 名前：デフォルトの名無しさん mailto:sage [2023/10/21(土) 03:50:37.64 ID:4nC0eILg0.net]: >>866
RowSourceとかControlSourceとか
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/listbox-control-boundcolumn-controlsource-rowsource-properties-example

>>869
今のエクセル、入力用フォーム自動生成してくれるのか
もう無茶苦茶な機能追加だな
でも自分でそのフォームカスタマイズできないのは魅力半減だな
879 名前：デフォルトの名無しさん mailto:sage [2023/10/21(土) 03:54:30.35 ID:+5aGT6RT0.net]: 設定ファイルを書き換えればカスタマイズできる
880 名前：デフォルトの名無しさん mailto:sage [2023/10/25(水) 10:36:26.65 ID:eJmjtmbA0.net]: Excelなのですが、複数セルに条件付き書式を一括で追加したいです。（条件は各行変化する）
FomulaとFormatConditions.addを組み合わせる様な事をしたいのですが、
実際やるとエラーで通りません。

例えば
FormatConditions.Add(2,3, '=A2TRUE')
と言った具合で、範囲で追加したときAの値A2,A3,A4と変化させたい感じです。

また別言語（Powershell）から呼び出しているのでWith構文は使えないと思います。
Forで回しても良いのですが、１０００行近くあるので時間が結構かかる為避けたいです。
881 名前：デフォルトの名無しさん [2023/10/25(水) 12:26:50.69 ID:SA71alYG0.net]: もっとよく考えたほうがいいと思う
882 名前：デフォルトの名無しさん mailto:sage [2023/10/25(水) 20:06:44.00 ID:FhNheB/20.net]: >>872
1000行なんてパソコンにとっては全然多くない
どうやろうが一瞬で終わる程度の量
そんな作業はどう考えてもForで回した方が速い
883 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7ae6-dytz) mailto:sage [2023/10/26(木) 11:27:43.31 ID:0owHhtRH0.net]: VBA内なら1000行すぐ終わるかも知れませんが
Powershellから呼び出しだと結構時間かかります
試しにComObject作成して確認してみて下さい
884 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd7a-JD/u) mailto:sage [2023/10/26(木) 11:37:44.62 ID:q3pE0MJPd.net]: 最初の質問から24時間以上経過してるけど、その間にパソコンを動かしてたら遅い方法でもとっくに終わってたやろうなあ
885 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sd9a-pqHO) mailto:sage [2023/10/26(木) 11:38:24.30 ID:ewuxy2JXd.net]: 実際のセルの処理は時間がかかる
描画を止めてから処理すれば多少早くなるから、
Application.ScreenUpdating=Falseしてから処理をはじめ、
終わったらApplication.ScreenUpdating=True
計算処理も同様に
Application.Calculation = xlCalculationManual
やってからはじめて、
Application.Calculation = xlCalculationAutomaticでおえる
886 名前：デフォルトの名無しさん (ｽｯﾌﾟﾌﾟ Sd9a-pqHO) mailto:sage [2023/10/26(木) 11:39:48.79 ID:ewuxy2JXd.net]: >>876
何度も使うつもりなら速いに越したことはないでしょ
一回切りなら尤もな話だけどさ
887 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7ae6-dytz) mailto:sage [2023/10/26(木) 12:19:58.33 ID:0owHhtRH0.net]: 質問取り下げます
まともに回答するつもりの方いない様なので
書き込む前から雰囲気悪いなと思ったけどやっぱりか・・
888 名前：デフォルトの名無しさん mailto:sage [2023/10/26(木) 12:46:23.38 ID:UgEvltp9M.net]: 変化する条件を一括設定したい
これだけ聞いたら「もう少し考えたら？」の回答しか出ないよ
889 名前：デフォルトの名無しさん mailto:sage [2023/10/26(木) 14:25:49.72 ID:w9aGlpnFd.net]: >>879
与えられた条件で速くなりうる手段を考えて回答したのに、
まともな回答じゃないって判断されたんだね
考える時間もレスする時間も無駄にしたわ
890 名前：デフォルトの名無しさん mailto:sage [2023/10/26(木) 14:46:30.23 ID:Sxr6n1fv0.net]: > VBA内なら1000行すぐ終わるかも知れませんが
> Powershellから呼び出しだと結構時間かかります

これよくわからない
時間がかかってるのはExcelの起動やらとかであって、Forの実行はVBA内で行われるんじゃないの？
891 名前：デフォルトの名無しさん mailto:sage [2023/10/26(木) 14:51:50.68 ID:ZtFvM5yP0.net]: 取り下げたんだからもう良いんじゃねw
自分の恥ずかしいところとか見つかったんだろうよw
892 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ dd4e-CxP9) mailto:sage [2023/10/27(金) 15:12:43.55 ID:fcYuq+zB0.net]: >>883
> また別言語（Powershell）から呼び出しているのでWith構文は使えないと思います。
これもよくわからないし

Powershellって人がプロシージャに書いてある文章を一行ずつ読みにいって、自己解釈の元で自分で実行するみたいな発想だったのかね
ここまで意味不明な解釈してる人がどこで何に気がついたのか知らないけど>>879の捨て台詞は必要だったのかね
そして何よりもID:ewuxy2JXdが不憫で仕方がない
893 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a551-dytz) mailto:sage [2023/10/27(金) 17:17:23.69 ID:NmWpMbd70.net]: これからこういう人多く成るんだよ？　高学歴が邪魔するのか何だか知らんけど
プライドだけは変な方向に高い　実務に即さない解決策を講じる　選択肢が間違ってても突っ走る
894 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c1a5-ANn9) mailto:sage [2023/10/27(金) 18:21:28.41 ID:HOnfPTgV0.net]: ChatGPTでしらべたけどよくわからん、みたいな？
895 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 4ec2-WPgu) [2023/10/27(金) 21:02:38.87 ID:4EmYUF1P0.net]: 馬鹿が考える解決方法はそんなもの
馬鹿ほど己の間違え方法にこだわる
896 名前：デフォルトの名無しさん mailto:sage [2023/10/28(土) 00:17:29.34 ID:jY1bWC/90.net]: やっている本人しかわからない可能性があることなんていくらでもあるだろう。
897 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 29ca-mA8z) mailto:sage [2023/10/28(土) 06:04:48.34 ID:frVn+RL00.net]: セルに○○と打ち込んだ
これを.Valueで取ったら"○○"
.Textで取ったら" ○○ "になった
その前後のスペースはどこから来たんじゃい?
898 名前：デフォルトの名無しさん mailto:sage [2023/10/28(土) 08:55:39.42 ID:GGD6bBOU0.net]: >>889
再現しない
https://i.imgur.com/6cSraSv.png
899 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 41da-c8RC) mailto:sage [2023/10/28(土) 11:13:55.25 ID:EfsxXat70.net]: >>889
朝から寝ぼけたんじゃね
900 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 29ca-mA8z) mailto:sage [2023/10/28(土) 11:19:53.47 ID:frVn+RL00.net]: だよなあ
20年やっててこんなこと初めてだわ
901 名前：デフォルトの名無しさん mailto:sage [2023/10/28(土) 15:22:33.56 ID:Jo+R6/p70.net]: 馬鹿馬鹿って頻繁に書き込んでる人はよほど優秀なんだろうね。
Excelマクロ教室でも開けば良いのに。
902 名前：デフォルトの名無しさん mailto:sage [2023/10/28(土) 20:44:15.82 ID:13jr+kZc0.net]: >>889
セルの書式
903 名前：デフォルトの名無しさん mailto:sage [2023/10/29(日) 01:44:54.53 ID:IGVL7C2J0.net]: >>894
標準か文字型
○○は漢字で、
Cells(1, 1).Text = "○○" がFalseで、
Cells(1, 1).Value = "○○" がTrueになったので、
んなわけあるか!と思ってDebug.Printしたら、
.Textには前後に変な空白があったのよ
904 名前：デフォルトの名無しさん mailto:sage [2023/10/29(日) 10:01:38.54 ID:9r8OlfFd0.net]: とりあえずトリムっとけばおｋ
905 名前：デフォルトの名無しさん mailto:sage [2023/10/29(日) 10:54:39.06 ID:j00+fEWV0.net]: 同じやん
https://i.imgur.com/ULDMIE0.png
906 名前：デフォルトの名無しさん mailto:sage [2023/10/29(日) 12:32:43.45 ID:T4jRmqRS0.net]: >>895
問題のセルがA1だったとして、A1の表示形式を"標準"にする。
(一旦別の表示形式にして"標準"にするのがよい)
その状態からF2で一旦入力状態にして、Enterで確定。

これで同じになれば値をどうやって入れたかを調べる。
同じ列の別の行で同じことが起こるか、などいろいろ。

動けばいいんだったら、違うことを前提にして回避策をいれればいい。
907 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1310-mA8z) mailto:sage [2023/10/30(月) 00:45:58.32 ID:ok297MD20.net]: 1セルだけ書式が会計になってたわ
>>891の言うとおりだった
すまん

しかし、なんで会計だと空白が付くのかという新たな疑問が
908 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 51da-c8RC) mailto:sage [2023/10/30(月) 01:23:46.28 ID:B1G43WsB0.net]: >>899
セルや罫線の中で見やすくするためかしら？
桁区切り付き数値にしても、値の後に空白が入る。
909 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 10:34:02.92 ID:upgSC0LO0.net]: Textはあくまで見た目のデータだからね
書式設定のウインドウでも位置がズレることが確認できるはず
何故かはしらん、マイナスとかついたときの位置を固定するためとかやろ
910 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 11:27:34.15 ID:TNhE6eNI0.net]: 標準で入ってる書式にもスペース入ってるのあるはず（前はあったが…）
あれみた時、見えない爆弾仕込んでるな…と思った
911 名前：デフォルトの名無しさん [2023/10/30(月) 12:07:45.37 ID:RmOFtzKv0.net]: 前の空白は数値で付くのはわかるが後ろの空白は謎
912 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 12:28:45.35 ID:lBYVOk8eM.net]: おそらく非表示の書式文字はアンダーバー+半角スペース1文字
913 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 15:52:04.09 ID:lVrtS1Ry0.net]: 会計を設定した場合に隙間が空くのは、次のような表示形式が行われるからです
_ \* #,##0_ ;_ \* -#,##0_ ;_ \* "-"_ ;_ @_
https://www.officepro.jp/exceltips/tips_format/index16.html
基本のキ
914 名前：デフォルトの名無しさん [2023/10/30(月) 16:33:05.01 ID:upgSC0LO0.net]: いやそれが何故かっていう疑問なんじゃないの・・・
（言い換えれば空ける理由、空けなくてもいいんじゃない？っていう疑問だと思う）

答え出るかわからんし闇っぽいから、はい次の方
915 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 16:45:21.41 ID:+WHjaEV1d.net]: 闇って言いたいだけだろ
916 名前：デフォルトの名無しさん mailto:sage [2023/10/30(月) 22:20:23.95 ID:8XyBI/Ix0.net]: 書式設定を変えた時、文字の位置が少し変わるのは知ってたけど、まさかそれを内部的には空白で表現してるとは思わなかったよ
917 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1387-zW/F) [2023/11/01(水) 01:09:45.26 ID:hjpDJv/i0.net]: 【質問】
Excelのソートに関しての質問です。

①シートの１列目の文字列に基づいて昇順でソートする。
②シートの１列目の文字列の先頭に「○」や「☆」などの記号がある場合は、それらを無視して２文字目の文字に基づいてソートしたい。

そこで下記コードを実行したところ、
「実行時エラー '1004': 並べ替えの参照が正しくありません。」というエラーが出ます。
どこをどう修正すればよいでしょうか？
918 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1387-zW/F) [2023/11/01(水) 01:11:37.64 ID:hjpDJv/i0.net]: Sub CustomSort()
Dim LastRow As Long
Dim SortRange As Range
Dim SortKeyRange As Range
Dim i As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set SortRange = .Range("A2:A" & LastRow)
Set SortKeyRange = .Range("B2:B" & LastRow)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
919 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1387-zW/F) [2023/11/01(水) 01:12:11.61 ID:hjpDJv/i0.net]: For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = Mid(SortKeyRange(i, 1), 2, 1)
End If
Next i

With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortKeyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = "○" & SortKeyRange(i, 1)
End If
Next i
End Sub
920 名前：デフォルトの名無しさん mailto:sage [2023/11/01(水) 03:09:14.48 ID:u6oKBIyz0.net]: >>909
何もかも違ってる気がするので丸ごと作り直してみたけど、これで希望の結果になってるかはわからない

Sub CustomSort()
　　Dim LastRow As Long
　　Dim SortRange As Range
　　Dim SortKeyRange As Range
　　Dim i As Long

　　With ActiveWorkbook.ActiveSheet
　　　　LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　Set SortRange = .Range("A2:B" & LastRow)
　　　　Set SortKeyRange = .Range("B2:B" & LastRow)
　　　　.Range("A2:A" & LastRow).Copy Destination:=SortKeyRange
　　　　For i = 2 To LastRow
　　　　　　If Left(.Cells(i, 1), 1) Like "[〇☆]" Then
　　　　　　　　.Cells(i, 2) = Mid(.Cells(i, 1), 2, 1)
　　　　　　End If
　　　　Next i

　　　　With .Sort
　　　　　　.SortFields.Clear
　　　　　　.SortFields.Add2 Key:=SortKeyRange
　　　　　　.SetRange SortRange
　　　　　　.Header = xlNo
　　　　　　.MatchCase = False
　　　　　　.Orientation = xlTopToBottom
　　　　　　.SortMethod = xlPinYin
　　　　　　.Apply
　　　　End With
　　End With
End Sub
921 名前：デフォルトの名無しさん [2023/11/01(水) 03:13:41.64 ID:H7+Ix2LYd.net]: >>909
ほぼマルチんこ
922 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1387-zW/F) [2023/11/01(水) 07:02:30.74 ID:hjpDJv/i0.net]: >>912
ありがとうございます。
ただ、そのコードを実行してみたら、ちょっとセルの中身がずれたりしていたので、色々試した結果、下記のコードで解決しました。

Sub CustomSortWithSymbol()
Dim LastRow As Long
Dim ws As Worksheet
Dim i As Long, j As Long, k As Long
Dim sortKey As String
Dim originalValue As String

Set ws = ThisWorkbook.ActiveSheet ' アクティブなシートを設定
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最後の行を取得

Dim sortKeys() As String ' カスタムソートのため、ソートキーを一時的に保持
ReDim sortKeys(1 To LastRow)

For i = 2 To LastRow ' ○や☆の文字で始まる文字列の場合、次の3文字をソートキーとして設定
originalValue = ws.Cells(i, 1).Value
If Left(originalValue, 1) = "○" Or Left(originalValue, 1) = "☆" Then
sortKeys(i) = UCase(Mid(originalValue, 2, 3))
Else
sortKeys(i) = UCase(Left(originalValue, 3))
End If
Next i
923 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1387-zW/F) [2023/11/01(水) 07:04:31.49 ID:hjpDJv/i0.net]: For i = 2 To LastRow ' ソートキーを使ってソート順を決定
For j = i + 1 To LastRow
If sortKeys(i) > sortKeys(j) Then
Dim tempKey As String ' ソートキーの順序を入れ替え
tempKey = sortKeys(i)
sortKeys(i) = sortKeys(j)
sortKeys(j) = tempKey

Dim tempValue As String ' A列のセルの値も入れ替え
tempValue = ws.Cells(i, 1).Value
ws.Cells(i, 1).Value = ws.Cells(j, 1).Value
ws.Cells(j, 1).Value = tempValue

For k = 2 To 10 ' B列～J列のセルの値も入れ替え
tempValue = ws.Cells(i, k).Value
ws.Cells(i, k).Value = ws.Cells(j, k).Value
ws.Cells(j, k).Value = tempValue
Next k
End If
Next j
Next i
End Sub
924 名前：デフォルトの名無しさん mailto:sage [2023/11/02(木) 01:34:57.09 ID:qnTt38vU0.net]: めっちゃ解りやすい。上手ですね
925 名前：デフォルトの名無しさん mailto:sage [2023/11/02(木) 10:47:14.24 ID:I7yCwl+w0.net]: いえいえ
926 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f3ad-2XMF) [2023/11/02(木) 12:10:56.31 ID:T6fjkERA0.net]: swap関数作るともっと簡単に
927 名前：デフォルトの名無しさん [2023/11/08(水) 19:03:41.59 ID:OdlSvgsbk]: 朝からうちのseleniumbasicがエレメントはじいて、
困ってます。
ページ移動やページソースは持ってきてくれますが、
driver.IsElementPresent(myBy.id("xxxx"))や
driver.FindElementById ("xxxx")がエラーで、

某サイトのサンプルをコピペしても同じです。エラー↓
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
実行時エラー'13':
UnknownError
unknown error:result.webdriverValue.value list is missing or empty in
Runtime.callFunctionOn response
(Session info:chrome=119.0.6045.106)
(Driver info:chromedriver=118.0.5993.70
(e52f33f3091b4ddfad649acddc39ab570473b86-refs/branch-heads/5993{#12
NT 10.0.19045 x86_64
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
よろしくお願いします。
928 名前：デフォルトの名無しさん [2023/11/09(木) 22:15:08.21 ID:1dy9z0CQM]: 解決しました。
https://note.com/yuu________/n/n48b3530b0fe6
929 名前：デフォルトの名無しさん mailto:sage [2023/11/10(金) 14:54:35.91 ID:A5qmTFWx0.net]: VBAでスクレイピングをしてるんだが

これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class = 'next'] > a")
これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class *= 'next'] > a")
これはエラーになる
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class ！= 'next'] > a")

VBAのFindElementsByCssで!=を使う方法てある？
もちろん<>もだめ。
930 名前：デフォルトの名無しさん mailto:sage [2023/11/10(金) 18:46:25.71 ID:W6cpCxu4M.net]: ソレってVBAではなくDriverさんの文法ですよね？
931 名前：デフォルトの名無しさん mailto:sage [2023/11/10(金) 20:05:43.07 ID:SDTABjlf0.net]: コレでどーなるか　ちょっと試してみてもらえるかぬ
Set o_elem = Driver.FindElementsByCss(“ul.M_pager > li:not([class = ‘next’]) > a”)
932 名前：デフォルトの名無しさん mailto:sage [2023/11/10(金) 23:38:13.76 ID:A5qmTFWx0.net]: >>923
THX
それだとエラーはなくなるけど
<li class=next><a>も選ばれてしまう。
.

ul.M_pager > li:not([class]) > a
だとうまくいきました
933 名前：デフォルトの名無しさん mailto:sage [2023/11/11(土) 00:16:15.21 ID:QtW8OgmTd.net]: 解決オメだぬ
934 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff4f-ljUV) [2023/11/12(日) 20:06:42.57 ID:evQWrDt50.net]: デスクトップに保存したhtmlファイルを、Shell ("エッジのパス\msedge.exe" & path, vbNormalFocus)で開いています。
んで、そのhtmlファイルには複数個のリンクがあります。
各リンクを自動的にonClick()でクリックするにはどのようにすればいいでしょうか？
935 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f30-i63k) mailto:sage [2023/11/13(月) 01:56:20.78 ID:zqycnYO50.net]: 知らんが、onclickするより、
そのhtmlをテキストで読み込んで、
アドレス調べて直接開いた方がはやい
936 名前：デフォルトの名無しさん [2023/11/13(月) 07:48:09.28 ID:qmUd3R410.net]: >>926
ウイルスみたいなことは止めてね
937 名前：デフォルトの名無しさん mailto:sage [2023/11/13(月) 09:56:28.31 ID:bmjie8/E0.net]: Tiktok LiteでPayPayやAmazonギフトなどに交換可能な4000円分のポイントをプレゼント中！
※既存Tiktokユーザーの方はTiktokアプリからログアウトしてアンインストールすればできる可能性があります。

1.SIMの入ったスマホ・タブレットを用意する
2.以下のTiktok Liteのサイトからアプリをダウンロード（ダウンロードだけでまだ起動しない）
https://tiktok.com/t/ZSNfGYxDA/
3.ダウンロード完了後、もう一度上記アドレスのリンクからｱﾌﾟﾘへ
4.ｱﾌﾟﾘ内でTiktokで使用してない電話番号かメールアドレスから登禄
5.10日間連続のチェックインで合計で4000円分のﾎﾟｲﾝﾄゲット

ﾎﾟｲﾝﾄはPayPayやAmazonギフト券に交換できます
家族・友人に紹介したり、通常タスクをこなせば更にﾎﾟｲﾝﾄを追加でゲットできます
938 名前：デフォルトの名無しさん mailto:sage [2023/11/13(月) 10:34:01.20 ID:M/Z3XSeO0.net]: >>929
これは試す価値あるな
939 名前：デフォルトの名無しさん [2023/11/13(月) 11:23:51.91 ID:MRrvj9HMd.net]: >>926
イベントハンドラ(onClick)を自動的にクリックとか表現してるあたり、なんか基本がわかってなさそうなふいんきだけど、大丈夫？

Edgeに限らず、Shellで開いたアプリをクリックするのは不可能じゃないけどかなり大変
APIを使わないと無理なんだけど、Shell以外の方法で開くのはだめなの？
940 名前：デフォルトの名無しさん mailto:sage [2023/11/13(月) 20:01:33.22 ID:lWzkFiOt0.net]: そういうのは、Ruby, Selenium WebDriver で出来そう
941 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f07-1GGZ) mailto:sage [2023/11/14(火) 05:23:36.97 ID:OZUGvDNw0.net]: アクティブブックを保存してBluetoothでファイル転送。の方法をお教えいただきたくお願いいたします。

上記についてはウェブサイトでも見つかりませんでした。今は手段をメール添付にして似た動作で行っていますが、ローカルPCでも自動ファイル転送するケースがでてきたため、Bluetooth転送方法をお願いいたします。
942 名前：デフォルトの名無しさん mailto:sage [2023/11/14(火) 07:04:54.83 ID:iOHrZmQ00.net]: 転送したいファイルを右クリックして　送る　で　ＢＴデバイスを選択するダケと思いましたケドぬ
943 名前：デフォルトの名無しさん mailto:sage [2023/11/14(火) 13:08:23.76 ID:nlIF0ifC0.net]: >>933
BT通信の自動化はかなりめんどい
専門家に開発費を払って作ってもらうレベル
自分でやりたいなら、ここを参考にして
https://www.softech.co.jp/mm_170705_tr.htm
944 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffbd-f7HJ) mailto:sage [2023/11/16(木) 21:59:20.91 ID:NlRecVbU0.net]: Microsoft 365 Excel バージョン2310 ビルド 16924.20124だけど、
name no
a 1
b 2
c 3
みたいなテーブル1を作ってワークシート上で
XLOOKUP("a",テーブル1[name],テーブル1[no],"")
ってやると当然1が帰るけど、
vbaで
With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]"), .Range("テーブル1[no]"), "")
End With
みたいにするとaだけ帰ってこない b以降はOK これは何でしょ？
945 名前：デフォルトの名無しさん mailto:sage [2023/11/17(金) 00:30:19.09 ID:82JP36FI0.net]: With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]A1:A3"), .Range("テーブル1[no]"), "")
End With

こんなカンジで試してみてどーかぬ
946 名前：デフォルトの名無しさん [2023/11/17(金) 05:58:28.92 ID:cP0QxO9W0.net]: >>936
そのコードで本当に動いた？エラーになるけど。
そのWithの指定だとテーブルの中身だけ持ってくるから .Range("テーブル1[name]") で参照出来ないと思う。
947 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd9f-ze79) mailto:sage [2023/11/17(金) 10:29:57.13 ID:n+3yrbg2d.net]: >>937
ありがとあとで試してみる
>>938
動いてるコードそのまま貼ったつもりなんだけど…動かなかったらすまん
948 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff02-czGt) mailto:sage [2023/11/17(金) 12:35:58.54 ID:pS9NmqjV0.net]: 商社から上司経由でシステムの売り込みとかよく来るしpython勉強すればもっと広い範囲で出来たりするんだろうけど
vbaで何とかしようと考えちゃう悪癖が無くならない
42歳だけど化石人種のまま定年になるんかなぁ
949 名前：デフォルトの名無しさん mailto:sage [2023/11/17(金) 17:47:10.30 ID:82JP36FI0.net]: 得意なツールでなんとかするのわ　ワルくわネエと思いますケドぬ
950 名前：デフォルトの名無しさん mailto:sage [2023/11/17(金) 17:58:29.35 ID:cgnjVGQxd.net]: ではN88BASICとフロッピーでなんとかします！
951 名前：934 mailto:sage [2023/11/17(金) 20:54:07.11 ID:Z3gLVdXN0.net]: With ThisWorkbook.Sheets(1).ListObjects("テーブル1")
MsgBox Application.WorksheetFunction.XLookup("a", .ListColumns("name").Range, .ListColumns("no").Range, "")
End With

結局これでうまくいったおまえらありがとう
952 名前：デフォルトの名無しさん mailto:sage [2023/11/17(金) 21:14:43.08 ID:82JP36FI0.net]: 解決オメだぬ
953 名前：デフォルトの名無しさん mailto:sage [2023/11/18(土) 09:48:39.54 ID:zOT3yXlF0.net]: ChatGPTのcursorとエクセルを連動することって出来ますかね？

cursorで作成したVBAコードをVBEに貼り付けて実行ではなく、
cursor内から直で実行したいです。
954 名前：デフォルトの名無しさん mailto:sage [2023/11/18(土) 11:55:47.75 ID:Qfp+vd6T0.net]: cursor ってpythonなので　python でエクセルを呼んでやれば可能と思いますケドぬ
955 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5d6e-ekUX) mailto:sage [2023/11/18(土) 15:43:14.57 ID:zOT3yXlF0.net]: ありがとうございます。
やっぱり難しいですよね。
そもそもVSCodeとVBAの相性もいまいちなことに気づきました。
956 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a15d-CeNl) mailto:sage [2023/11/18(土) 18:44:14.80 ID:xWw6yRZ60.net]: コピー元.Copy : コピー先.Paste
はクリップボード経由なので遅いと聞きましたが
コピー元.Copy Destination:=コピー先
はクリップボード経由でしょうか？
957 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a15d-CeNl) mailto:sage [2023/11/18(土) 18:45:57.90 ID:xWw6yRZ60.net]: ChatGPTの回答を貼ってくれるのでも良いです。
958 名前：デフォルトの名無しさん mailto:sage [2023/11/18(土) 19:32:00.40 ID:Ej/o1uIw0.net]: 書いてる間に試せるだろうに
959 名前：デフォルトの名無しさん mailto:sage [2023/11/18(土) 20:51:47.51 ID:xC7uHPaQd.net]: 出先とかでVBA動かせない環境かもよ
copyメソッド＝クリップボードにコピー
960 名前：デフォルトの名無しさん mailto:sage [2023/11/18(土) 23:37:15.79 ID:gYYEvv1+0.net]: フォームボタンから引数付きマクロ呼び出すとエラー出たり再度ブック開くときに壊れるね
これ改善されないのかな
961 名前：デフォルトの名無しさん mailto:sage [2023/11/19(日) 17:49:55.03 ID:j1WNDpei0.net]: 意味わからんな、使い方が悪いんじゃね
962 名前：デフォルトの名無しさん mailto:sage [2023/11/20(月) 18:02:44.99 ID:13EUXszm0.net]: それだけだと何とも
壊れるのが普通なら、壊したことないオレが優秀なのか
（RPAでXLファイル更新させたら木っ端微塵にされた経験はある）
963 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a154-f5/H) mailto:sage [2023/11/21(火) 14:03:41.40 ID:HpmNczC40.net]: された　んじゃなくて　木っ端微塵にするロードマップを書いたんだろ　参考までに載せとけ
964 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-lMS9) mailto:sage [2023/11/21(火) 15:47:16.68 ID:6fZ44FAy0.net]: >>955
開発元に連絡して不具合であることを確認済み
お前のようなアホではない
テストですぐわかるからイチイチ書かん
965 名前：デフォルトの名無しさん mailto:sage [2023/11/21(火) 16:47:11.94 ID:YC5sH7GHd.net]: MSに問い合わせたってこと？
966 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a12f-f5/H) mailto:sage [2023/11/21(火) 22:17:10.20 ID:HpmNczC40.net]: ほほう、「RPA 不具合」でググると散々だな　けちょんけちょんに貶されてる　まだ時期尚早てか
アホでは無いひとはスイスイそれらのトラブルを回避し続けてるということか　さすがです
クラウドもオンプレもどっちもロクな事書かれてない　実務で導入・運用はこええじゃん　潔いな
967 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 00:08:04.33 ID:x/9NhZOn0.net]: まあそこは色々な言い方があるだろうな
全銀がトラブルくらいなら各銀行は信用ならんと言う人もいるだろう
相変わらずリコール出してる車ってものは信用ならんと言う人もいるだろう
30年前は事務のおばちゃんは殆どがPCなんて使ってなかっただろう。今はEXCEL詳しいおばちゃんもいる
30年後にはAIは様々な形で普通に使われているだろう
RPAはその一部かもわからないが、実績を上げてる事例は既に多い
現場のおばちゃんが使い出したとこもある
システム開発に多額な費用出せない中小企業には救いなソリューションかもしれない
968 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 05:12:35.72 ID:RQffoeNP0.net]: RPAでできることはほとんどVBAでできるしね。
RPAを導入するやつはアホとしか言えん。
969 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-lMS9) mailto:sage [2023/11/22(水) 08:00:16.99 ID:x/9NhZOn0.net]: >>960
RPA知らないバカですって言ってるようなもん
970 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM66-lHey) mailto:sage [2023/11/22(水) 10:12:11.97 ID:TR/RnYjJM.net]: ロジック部分や外部連携はRPA、セルの修飾などExcel固有の処理をVBAで処理するのが本来の姿
971 名前：デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd22-6ynB) mailto:sage [2023/11/22(水) 10:33:46.71 ID:bjy9vKhqd.net]: いやRPAは自動化システム全体を指すし、
それの実装方法の一つとしてVBAやらPythonやらベンダーのソフトやらがある
ノーコードだって一人情シスがシコシコVBA組んだって、
それで作業自動化ができればそれはRPA
VBAだとoffice以外の自動化がしにくかったのは昔の話だし
972 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 13:09:03.96 ID:KWP7ULRA0.net]: 言い出しっぺが、RPAでXLファイル更新させたら　って書いてんだから、VBAじゃあ無いんだろう
RPAってなんぞ？　と少しく調べてみたら、何のことは無い　自動化を言い換えただけ
MS謹製のもあるし日立とかのもあったりする様子だけど、古来そおゆうのが蔓延った試しが無い
云わば吊るしのスーツに体を合わせろの姿勢　個々の企業の千差万別の業務に特化したオーダーメードには
やっぱりVBAで対応するのが何より
その先の他業務との連携に関してはRPAがございます　どうぞよろしく　な立ち位置なのか
特にクラウド系の、外部に居てもアクセスできます　部外者へのお披露目関連はこの鯖つこてください
とかなら、ネットに疎いみなさんでも容易に使えて都合がいいのかも知れない

ただ、自動化の困るところは、いざトラブった時の原因の切り分けが必要以上に厄介に成るところ
一人情シスの手に負えるところじゃ無くなる　要員増やさなきゃ仕事に支障が出る　若しくは外注
中小零細はVBAでいいんだ
973 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 13:30:34.62 ID:1iUy4wDvd.net]: >>964
逆
一人情シスじゃないとブラックボックス化してゴミ化する
974 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 15:08:56.43 ID:KWP7ULRA0.net]: 一人情シスをボロボロになるまで使い倒す気マンマンでﾜﾛﾀ
本人がやる気満々のうちはいいだろうが、寿命縮むぞ　そう長期に亘って携わっていられる業務じゃ無くね？
何よりどんどん投入されるこういった新しい技術も知的財産として蓄えてかなきゃならない
それが実務に応用できるかの検証が必要　デバイスもコロコロ変わる　相互の親和性とかもチェックし続け
そおゆうのをひとりっきりに任せっぱなしだと、後継者がいざ現場に就いた時に玉手箱明けたウラシマ状態
「なんじゃこりゃあ！」と必ず叫びたくなる　情報共有の重要性を切実に訴えたい
そういうトコを切り詰める企業は先細り
いや、経営陣はそんなの知ったこっちゃ無い「お金掛けてるのになんでできないの？」「失敗したら責任な」
そんなのが大半だから、ボトムアップで訴えを上げ続けないと　　　って、スレチだな　ついな
975 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 15:10:51.10 ID:ZliUGD1s0.net]: はい次の方
976 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 16:39:38.78 ID:izBzFnSKd.net]: >>966
RPAがオワコン呼ばわりされてるのは、
結局やってることが草の根VBAと同じだからよ
RPAそのものより、その運用ノウハウの方が高く売れる
述べてる情報共有方法だったり、業務フローの資料化だったりね
977 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 16:40:36.89 ID:5ubWeHcRd.net]: >>966
単に一人情シス　イヤになれば　辞めたらイイと思いますぬ
978 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 17:58:45.17 ID:KWP7ULRA0.net]: オワコンとは思わんが
MSが推進しようとしている、総合型コラボレーションプラットフォーム Teams　だの　Azure　だの
それぞれ単品で試してウケが良かったら一つにまとめて行って高値付けて一儲けしよう　という方向性がね
尻馬に乗っかろうって他社も同様　万単位で開発者が居るような統合アプリを、一人情シスでは捌ききれん
中小零細がそれをどれだけ導入するかにも依るが　いずれは避けて通れなく成ってくんだろうとは思う
「親会社の要請で」だの「導入してないと仕事も貰えない」だの
　ノウハウ売るだけでサポートなんかしません　っつー商売はいいトコに目を付けたと思う　精々お励みください
979 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 18:50:32.60 ID:x/9NhZOn0.net]: 仕事楽にするのは別にVBAだけじゃなくても構わんてだけのことよ
VBAに拘るのはアホってだけ
980 名前：デフォルトの名無しさん mailto:sage [2023/11/22(水) 19:21:41.90 ID:PUzz2qLsM.net]: MicrosoftのRPAというならAzureはちょっと路線が違う
PowerPlatformの方が方向性が近い
981 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 59da-hO6y) mailto:sage [2023/11/22(水) 20:02:38.72 ID:MOEEqQ2B0.net]: [RPA]PC自動化技術総合スレ[効率化] Part.10
https://mevius.5ch.net/test/read.cgi/tech/1614946651/
982 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 92bd-hO6y) mailto:sage [2023/11/22(水) 21:22:28.41 ID:5G0HUAYG0.net]: VBAは属人化しやすいのがネックだね
Excel使えるけどVBA使えない人9割とか言われてるし
983 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a1b0-f5/H) mailto:sage [2023/11/22(水) 21:46:54.92 ID:KWP7ULRA0.net]: >>973　ありがとう　見てきた　ほんの2日前に初めて意識したRPAだが(w　ずっとシステムとかに
携わってきた人間なら辛うじて付いて行けるだろうけど、一般の事務職や、まして中小零細の経営陣が
これに付いて来れるとは到底思えんな　上場の大企業サマ達がすったもんだし続けていて欲しい
そこで熟されたのが末端に徐々に浸透してくならまだしも　という感想
末端の実務でも「おおおっ！！」と感嘆符付けるような具体例があるなら加速するのか

PowerAutomate なんてのもそんなに普及してるとは知りもしなかったし、ために成るスレだ
（導入するかどうかは別として
984 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6101-lMS9) mailto:sage [2023/11/22(水) 21:50:13.81 ID:x/9NhZOn0.net]: >>975
個人でも使ってますよ
（対象になるようなことしてない人はもちろん不要）
985 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM66-lHey) mailto:sage [2023/11/23(木) 03:38:46.12 ID:c3aOXXtmM.net]: Office ( Excel / Word / PowerPoint )
PowerPlatform ( PowerAutomate / PowerApps / PowerBI )
https://i.imgur.com/WGgOkUt.png
986 名前：デフォルトの名無しさん mailto:sage [2023/11/23(木) 22:07:03.90 ID:ldI0j2iM0.net]: >>974
逆に一割もVBA使えるってこと？
987 名前：デフォルトの名無しさん mailto:sage [2023/11/23(木) 22:53:02.20 ID:1paod0yW0.net]: >>978
会社でVBAを使える人はその能力を隠す傾向にある。
VBAの使い手だといろんな仕事を押し付けられる可能性がある。
そしてそれは大概人事の評価にはならない。
会社もそういう人をIT担当にするわけでもなく、
大概IT担当は使えないやつがあてがわれる。
988 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd22-tA1D) mailto:sage [2023/11/23(木) 23:21:45.29 ID:qtZOSX2td.net]: >>979
イイ話やぬ
989 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a17b-f5/H) mailto:sage [2023/11/24(金) 12:13:32.01 ID:D9lOfF1S0.net]: 素性を隠してるのに統計に計上できるって、どんな徳川の隠密が暗躍してンだよ
990 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 82c8-4t+R) mailto:sage [2023/11/24(金) 20:02:24.73 ID:pSI9BelU0.net]: そも得られた調査が正確だとゆー保証わ　ドコにもネエからぬ
991 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 82c8-4t+R) mailto:sage [2023/11/24(金) 20:15:41.76 ID:pSI9BelU0.net]: 誰か次スレヨロだぬ
992 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd22-oKFl) mailto:sage [2023/11/24(金) 20:42:43.52 ID:hbrpz6MLd.net]: Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1700826110/
993 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd22-4t+R) mailto:sage [2023/11/24(金) 20:51:57.44 ID:NqCrzuxcd.net]: >>984
ありがとぬ
994 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a17b-f5/H) mailto:sage [2023/11/24(金) 21:08:49.46 ID:D9lOfF1S0.net]: じゃあ、九割だなんてでたらめな数字持ち出して悦に入ってる奴が唐変木ってぇことか
数字を扱う業務に携わって居ながら不埒千万だな
995 名前：デフォルトの名無しさん mailto:sage [2023/11/24(金) 21:37:35.25 ID:NqCrzuxcd.net]: そも統計データの擬装わ　ジャップの十八番やからぬ
996 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-temB) mailto:sage [2023/11/25(土) 13:57:58.26 ID:vXTDCkck0.net]: AI機能「Copilot」を組み込んだデスクトップ版「Power Automate」の2023年11月更新
https://forest.watch.impress.co.jp/docs/news/1549608.html
997 名前：デフォルトの名無しさん mailto:sage [2023/11/26(日) 17:22:27.82 ID:y37wT4Od0.net]: マクロ組めるのに、そのスキルをアピールしない。能ある鷹は爪を隠すだね
998 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 11:04:12.33 ID:CI3qhd280.net]: まるで、ペーパードライバー　能力を持っていながら才能を発揮して無きゃ
いざ！の時に錆び付いてて使い物に成らない　過去の遺物を触れるってだけ
そんなのを能ある鷹とは呼べず、No！だけのタコと呼んでもいい
999 名前：デフォルトの名無しさん [2023/11/27(月) 12:15:29.53 ID:JK0eRP930.net]: タコに脳は9つあるよ
1000 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 12:36:04.31 ID:4J6Hopki0.net]: そのうち8個はたった1ミリしかないけどな
1001 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 13:47:40.34 ID:CI3qhd280.net]: えー、鷹に対応する何か他のもの探したけど出て来なかったからタコにしただけなのにー
1002 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 13:54:20.52 ID:yjJan1RNd.net]: 鳶とかすぐ出てこないか？
1003 名前：デフォルトの名無しさん [2023/11/27(月) 16:43:18.10 ID:YdGgb4vX0.net]: ゆとり教育で漢字書くのはそれほど重視されなくなった
オレはとっくに重視してなくて、書けない漢字山ほどあるわw
1004 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 18:17:40.90 ID:r8TeIdPlD.net]: >>990
チンコみたいだね
1005 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 19:28:46.59 ID:qhnBXcl0d.net]: >>995
漢字の話ですらないことも読み取れない脳足りんのお前
それが何を重視するとかすこぶるどうでもよい
1006 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 20:32:41.92 ID:CI3qhd280.net]: 能ある鷹　vs　No! だけの鳶　　ソッチのが変だろ　そんな説明しなきゃいけない時代か　やれやれ
1007 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 20:50:08.95 ID:qaoAg4Y0d.net]: >>998
タコは変じゃないのか？
1008 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 21:11:46.40 ID:4J6Hopki0.net]: これは「たか」と「たこ」の高度なダジャレなんですよ
1009 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 21:29:40.40 ID:CI3qhd280.net]: ダジャレかな　ダジャレじゃ無いよラップだよ
のーあるたか！のーだけのたこ！　のーあるたか！のーだけのたこ！　のーあるたか！のーだけのたこ！
三回唱えりゃよっくわっかる　頭韻踏んでるラップだよ！　　なんつて　　どーもすみませんでした
1010 名前：デフォルトの名無しさん mailto:sage [2023/11/27(月) 22:03:47.07 ID:4J6Hopki0.net]: ラップってつまるところおやじギャグの繰り返しじゃん
1011 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 303日 9時間 51分 35秒
1012 名前：過去ログ ★ [[過去ログ]]: ■ このスレッドは過去ログ倉庫に格納されています

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef