Excel VBA 質問スレ Part69

1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part68 https://mevius.5ch.net/test/read.cgi/tech/1598756127/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 910 名前：デフォルトの名無しさん mailto:sage [2021/03/10(水) 20:15:11.47 ID:FQxPGFWfa.net] やっぱり>>885の方法はないですかね 諦めてマクロボタンで更新します ありがとうございました 911 名前：デフォルトの名無しさん mailto:sage [2021/03/11(木) 16:08:09.65 ID:2F7MZ2cN0.net] >>907 なるほど、自分のwindowsカレンダーの開始日が月曜になってるからなのか なんで既定値が違うんだろうという疑問は残りつつも納得、ありがとうございました 912 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 14:18:56.93 ID:cUuyzc0G0.net] VBA学ぶのにお勧めの本ありますか？ 913 名前：デフォルトの名無しさん [2021/03/12(金) 14:22:39.95 ID:b9Kr93A50.net] >>910 MOSの本 914 名前：デフォルトの名無しさん [2021/03/12(金) 14:25:27.81 ID:b9Kr93A50.net] 正確にはVBAエキスパートか。 見過されがちだけど、試験対策本は非常によくまとまっている。 915 名前：デフォルトの名無しさん [2021/03/12(金) 17:44:33.68 ID:UcsTGFzQM.net] 買う前に周辺の図書館を回れば、vba本が見つかるかもしれない 916 名前：デフォルトの名無しさん [2021/03/12(金) 19:23:46.81 ID:7Crflr6rM.net] 金額の話なのか？ 917 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 19:31:10.39 ID:f8Q6HjqoM.net] 650頁を超える「Excel VBA逆引き辞典パーフェクト」を最初から通して読む 918 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 23:07:31.55 ID:NBdc6r9a0.net] VBの、何かあの電話帳より分厚いの有るじゃん 叩かれると85ポイントくらいダメージを受けそうな感じのアレ マジレスすると、あれで勉強したわ 919 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 23:38:50.44 ID:sGQx1lBf0.net] >>894 XLookupを使いなさい 920 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 02:37:38.41 ID:5xXr3I9d0.net] まじレスすると他人のおすすめの本は買っただけで満足して読まない可能性が高い 921 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 07:57:23.36 ID:slDJWJ280.net] >>910 出来るだけ薄い奴がいいよ 少なくとも一週間で読み切れそうな奴 細かい部分は結局ググる事になるから手っ取り早く基礎だけ学べるのがいい プログラミングの勉強は書き方を学ぶというより、 「ググる方法、ググって出てきた内容を理解できる最低限の知識」を身に着ける方に重きを置いた方がいい 922 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 08:14:07.47 ID:csBuBYNL0.net] >>910 現在の知識レベルによって薦める本は変わってくるけどなーんも知らないと言うのならVBAの絵本でいいんじゃなかろか >>919の人も言ってるけど基本、ネットで調べることになるんでどちらかというと 自分が知りたいことを調べられる単語をすぐに思い浮かべる力と それを理解する力の方が自分的には重要な気がする 後、理解出来なければ取り敢えず書いてみてこねくり回すことも大事 本当に基本的なことさえ分かっていれば、 その内クラスやAPI、コールバックとかにぶつかることがあってもネットで調べることが出来れば 自分が然るべき理解力をつけた際に理解出来るようになる。 923 名前：デフォルトの名無しさん [2021/03/13(土) 08:17:01.13 ID:tBGlpruK0.net] メルカリなどでたくさん買って、好きなのを使えばいいよ。 924 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 11:51:20.74 ID:9LAtgmD40.net] >>910 VBAの神様 925 名前：デフォルトの名無しさん [2021/03/13(土) 14:55:26.89 ID:4/YYKqK7F.net] Excel VBAは自己流が多いと思うけど、体系的に学習するならマイクロソフトのVBAエキスパート本だろうな。 926 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 21:38:13.19 ID:99ipLDsT0.net] 小手先のテクニックより 複雑怪奇なExcelの挙動の中身がどうなってんのか 詳細に説明してほしいわ 謎挙動がおおすぎる 927 名前：デフォルトの名無しさん mailto:sage [2021/03/13(土) 21:57:08.91 ID:7fDCnZwF0.net] 具体的には？ 928 名前：デフォルトの名無しさん [2021/03/13(土) 22:05:26.89 ID:tBGlpruK0.net] >>924 あまり使われていないVBAの機能を使うとすぐにバグにはまる。 929 名前：デフォルトの名無しさん [2021/03/13(土) 22:07:49.91 ID:tBGlpruK0.net] ActiveXのボタンが消えるバグなどは放置状態 930 名前：デフォルトの名無しさん mailto:sage [2021/03/14(日) 01:08:53.96 ID:EQ7/9AB00.net] vbの構文がダサすぎるのが嫌 綺麗に書いても汚らしく見える Dim asとかキモいんだよ 931 名前：デフォルトの名無しさん mailto:sage [2021/03/14(日) 02:39:44.98 ID:QAEhurjz0.net] VBAのコードのフォントを　HGP行書体 (日本語)　とかにしてみたら？ 932 名前：デフォルトの名無しさん mailto:sage [2021/03/14(日) 03:51:24.74 ID:+mKOZ3nE0.net] ACCESSのレポートではかけたのですが VBAで規定の先よりも細い線を書くことはできませんか？ 933 名前：デフォルトの名無しさん mailto:sage [2021/03/15(月) 06:39:33.91 ID:6QvkQitw0.net] コントロールのボタンが押す度徐々に小さくなったり消えたり動き回ったり 配列返す関数をUboundに渡すとメモリリークしたり、 フォームをモーダル表示中にシートをアクティブにすると何故かシートを操作できたり、 インターフェースを実装するクラス自体をインターフェースに出来てしまう上に、それをするとバグったり、 いくらでも上げられるだろ 特にフィルタ関連は変なのが多い specialcells(xlcelltypevisible)とかcopyメソッドとか 934 名前：デフォルトの名無しさん [2021/03/16(火) 14:07:15.77 ID:yEkj4Jws0.net] 作成依頼なんですがお願いできますでしょうか A列に数字（No.) B列に文字列（名前）の3000行ほどの表があります。 A列の数字は重複している箇所があり、 A列が他の行と重複している場合B列の文字を全て繋げてC列に書き出したいのですが可能でしょうか。 サンプル A列　　B列　C列 11111　A子　A子 11112　B子　B子 11113　C子　C子・D子・E子 11113　D子　C子・D子・E子 11113　E子　C子・D子・E子 11114　F子　F子 11114　F子　F子 11115　E子　E子 ただし、サンプルのように A列が重複してもB列の文字列が同じだった場合は『F子・F子』とならずに『F子』のままで、 重複しないA子、B子もそのままにしたいのです。 Aが列の数字は最大で20ほど重複している場合があります。 ずっと手作業でやってて挫けそうなんでお願いします！！ 935 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 14:24:36.41 ID:gGJzxP62H.net] >>932 Sub Macro1() 　　rr = Cells(Rows.Count, 1).End(xlUp).Row 　　For i = 1 To rr 　　　　n = Cells(i, 1) 936 名前： 　　　　s = Cells(i, 2) 　　　　t = s & "・" 　　　　For j = 1 To i - 1 　　　　　　If Cells(j, 1) = n Then 　　　　　　　　w = Cells(j, 2) 　　　　　　　　If InStr(t, w) = 0 Then 　　　　　　　　　　t = t & w & "・" 　　　　　　　　End If 　　　　　　End If 　　　　Next 　　　　t = t & s & "・" 　　　　For j = i + 1 To rr 　　　　　　If Cells(j, 1) = n Then 　　　　　　　　w = Cells(j, 2) 　　　　　　　　If InStr(t, w) = 0 Then 　　　　　　　　　　t = t & w & "・" 　　　　　　　　End If 　　　　　　End If 　　　　Next 　　　　t = Left(t, Len(t) - 1) 　　　　t = Right(t, Len(t) - 1 - Len(s)) 　　　　Cells(i, 3) = t 　　Next End Sub [] [ここ壊れてます] 937 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 15:29:08.70 ID:yEkj4Jws0.net] >>933 どひゃ〜！！！！ しゅ、しゅごいぃいいい！ ありがとうございます！ありがとうございます！本当にありがとう！ 938 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 15:59:46.67 ID:cZC9o7Y5M.net] それ、例えば百合さんと百合子さんがいた時にバグらない？ こういうのは辞書に登録してitemsプロパティをjoin関数に渡すのが鉄板だと思う 最近ならvba使わずにfilter関数とunique関数でも同じことできるから、もしかしたらこっちの方が楽かも 939 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 15:59:47.11 ID:btbyDUmHr.net] >>933 きったねえソースだなおい 940 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 16:01:05.39 ID:YCs8uHit0.net] お、きれいなソース期待かｗ 941 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 16:15:55.00 ID:gGJzxP62H.net] 百合・百合子バグ修正 Sub Macro1() 　　rr = Cells(Rows.Count, 1).End(xlUp).Row 　　For r = 1 To rr 　　　　n = Cells(r, 1) 　　　　s = Cells(r, 2) 　　　　t = "・" & s & "・" 　　　　For i = 1 To r - 1 　　　　　　If Cells(i, 1) = n Then 　　　　　　　　w = Cells(i, 2) 　　　　　　　　If InStr(t, "・" & w & "・") = 0 Then 　　　　　　　　　　t = t & w & "・" 　　　　　　　　End If 　　　　　　End If 　　　　Next 　　　　t = t & s & "・" 　　　　For i = r + 1 To rr 　　　　　　If Cells(i, 1) = n Then 　　　　　　　　w = Cells(i, 2) 　　　　　　　　If InStr(t, "・" & w & "・") = 0 Then 　　　　　　　　　　t = t & w & "・" 　　　　　　　　End If 　　　　　　End If 　　　　Next 　　　　t = Left(t, Len(t) - 1) 　　　　t = Right(t, Len(t) - Len(s) - 2) 　　　　Cells(r, 3) = t 　　Next End Sub 942 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 16:53:04.48 ID:cZC9o7Y5M.net] 百合さんと百合・D・ルフィさんがいた時にバグる 943 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 17:22:11.94 ID:gGJzxP62H.net] 百合・D・ルフィバグ修正 Sub Macro2() 　　Dim d As Object 　　Set d = CreateObject("Scripting.Dictionary") 　　rr = Cells(Rows.Count, 1).End(xlUp).Row 　　For r = 1 To rr 　　　　For i = 1 To rr 　　　　　　If Cells(i, 1) = Cells(r, 1) Then 　　　　　　　　s = Cells(i, 2) 　　　　　　　　If Not d.exists(s) Then d.Add (s), 0 　　　　　　End If 　　　　Next 　　　　Cells(r, 3) = Join(d.keys, "・") 　　　　d.RemoveAll 　　Next End Sub 944 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 17:31:00.58 ID:tUVUKdZi0.net] >>932 Ruby で、CSV ファイルでやってみた require 'csv' tmp_hash = { } result_ary = CSV.read( "input.csv" ) # 2次元配列 result_ary.each do | row | # 1行ずつ処理する if tmp_hash.has_key? row[ 0 ] # 既に、その数字が存在すれば # 文字列が存在しない時だけ、その文字列を追加する tmp_hash[ row[ 0 ] ][ row[ 1 ] ] = true unless tmp_hash[ row[ 0 ] ].has_key? row[ 1 ] else tmp_hash[ row[ 0 ] ] = { row[ 1 ] => true } end end # p tmp_hash # {"11111"=>{"A子"=>true}, "11112"=>{"B子"=>true}, # "11113"=>{"C子"=>true, "D子"=>true, "E子"=>true}, # "11114"=>{"F子"=>true}, "11115"=>{"E子"=>true}} result_ary.each do | row | # 1行ずつ処理する # その行の3列目に、キーを結合した文字列を追加する row.push tmp_hash[ row[ 0 ] ].keys.join( "・" ) end csv_str = result_ary.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する print csv_str 945 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 17:41:01.13 ID:QPeaG/4LM.net] 何故突然にRuby？ 946 名前：932 mailto:sage [2021/03/16(火) 18:32:29.43 ID:yEkj4Jws0.net] >>940 度々ありがとうございます！ 最初ヤツでも今の所大丈夫そうでしたが、今後はこちらを使わせていただきます！ 他の方もありがとうございます！ 947 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 19:02:04.81 ID:EUyNpk5n0.net] >>942 rubyスレだと相手にもされないからわざわざ違うスレに来てるかわいそうな人だよ 948 名前：デフォルトの名無しさん [2021/03/16(火) 21:06:28.11 ID:8Gn4pDRu0.net] 名前の例が○子とは、そうとうなジイさんだなw 949 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 21:12:32.28 ID:gGJzxP62H.net] >>945 現代だとどう書くの？ ランキングによると結が人気あるらしいから結A、結B、結Cか 950 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 21:15:14.58 ID:lullOsMB0.net] そら「百合（ろーず）」よ 951 名前：デフォルトの名無しさん [2021/03/16(火) 21:28:58.74 ID:8Gn4pDRu0.net] >>946 なんで女なのか？ 952 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 21:42:16.30 ID:gGJzxP62H.net] そんなこと言ったら、なぜ日本人なのか、なぜ人類なのか 953 名前：デフォルトの名無しさん [2021/03/16(火) 21:51:49.14 ID:8Gn4pDRu0.net] 太郎、次郎、三郎、四郎、五郎でいいだろ。 954 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 21:55:45.14 ID:YCs8uHit0.net] なんで男なのか？ 955 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 22:05:23.00 ID:gGJzxP62H.net] 3000行もあるのに、それじゃ考えるのが大変だ 956 名前：デフォルトの名無しさん mailto:sage [2021/03/16(火) 23:39:47.76 ID:FDp5iKWO0.net] 手作業でAからFカップを調べる作業にVBA使うとか お前ら男として終わってるわマジで 957 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 00:14:55.79 ID:8Ujh9QFC0.net] ろーずって薔薇じゃないの？ 958 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 00:20:54.29 ID:lKwA7qQn0.net] そうだよ 959 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 00:54:57.81 ID:KXbC8pO1H.net] わざと間違えるっていう2chから続く伝統芸 https://i.imgur.com/h4Fip2L.jpg 960 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 02:44:52.10 ID:LQZUutD10.net] >>933 いきなりCellsで始まるのはいただけないなw できればブックから始める習慣を付けて欲しい。 961 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 03:45:50.60 ID:KXbC8pO1H.net] >>957 なおした Option Explicit Sub VBA69_932() 　　Dim A_number As Long, B_name As String, C_list As Object 　　Dim last_row As Long, row_loop As Long, search_loop As Long 　　Set C_list = CreateObject("Scripting.Dictionary") 　　With ThisWorkbook.ActiveSheet 　　　　last_row = .Range("A" & Rows.Count).End(xlUp).Row 　　　　For row_loop = 1 To last_row 　　　　　　C_list.RemoveAll 　　　　　　A_number = .Range("A" & row_loop) 　　　　　　For search_loop = 1 To last_row 　　　　　　　　If .Range("A" & search_loop) = A_number Then 　　　　　　　　　　B_name = .Range("B" & search_loop) 　　　　　　　　　　If Not C_list.exists(B_name) Then 　　　　　　　　　　　　C_list.Add (B_name), 0 　　　　　　　　　　End If 　　　　　　　　End If 　　　　　　Next 　　　　　　.Range("C" & row_loop) = Join(C_list.keys, "・") 　　　　Next 　　End With End Sub 962 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:07:11.87 ID:wJCP0FMq0.net] >>933 謎の変数名を多用するのやめてくれ。見る気が一瞬で失せる。 ネスト深くするのも罪悪感感じてくれ 963 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:20:01.36 ID:QeKL1gNm0.net] 配列でやれ 964 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:38:31.95 ID:CnU6DmD/0.net] はい 965 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:48:27.37 ID:AkcuhhXSr.net] れつ 966 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:49:53.05 ID:rwSgtXuJ0.net] ゴー 967 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:52:25.95 ID:KXbC8pO1H.net] >>960 なおした Option Explicit Sub VBA69_932_a() 　　Dim This As Worksheet 　　Dim table() As Variant 　　Dim A_number As Long, B_name As String, C_list As Object 　　Dim last_row As Long, row_loop As Long, search_loop As Long 　　Set C_list = CreateObject("Scripting.Dictionary") 　　Set This = ThisWorkbook.ActiveSheet 　　last_row = This.Range("A" & Rows.Count).End(xlUp).Row 　　ReDim table(last_row - 1, 2) 　　table = This.Range("A1:C" & last_row) 　　For row_loop = 1 To last_row 　　　　A_number = table(row_loop, 1) 　　　　C_list.RemoveAll 　　　　For search_loop = 1 To last_row 　　　　　　If table(search_loop, 1) = A_number Then 　　　　　　　　B_name = table(search_loop, 2) 　　　　　　　　If Not C_list.exists(B_name) Then 　　　　　　　　　　C_list.Add (B_name), 0 　　　　　　　　End If 　　　　　　End If 　　　　Next 　　　　table(row_loop, 3) = Join(C_list.keys, "・") 　　Next 　　This.Range("A1:C" & last_row) = table End Sub 968 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 10:59:16.82 ID:AkcuhhXSr.net] 変数にABCなんてのを使ってる時点でセンスゼロ 後で見て全くわからないバグの温床にしかならない 969 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 11:12:33.58 ID:QeKL1gNm0.net] LBound UBound使えよ 970 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 11:56:37.23 ID:KXbC8pO1H.net] >>965 お手本見せて >>966 データ数は変数に入れたから改めて調べる必要ないという判断 971 名前：デフォルトの名無しさん [2021/03/17(水) 12:13:35.08 ID:YH/YYkmR0.net] クソコード 972 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 12:27:17.82 ID:rAxKrtcHF.net] うんコード 973 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 13:20:25.46 ID:4HdAS7ns0.net] 変数名に対する識者の見解 https://mevius.5ch.net/test/read.cgi/bsoft/1608362765/253n 974 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 14:37:09.94 ID:rwSgtXuJ0.net] 口だけで何もしない(できない)奴はスルーでいいよ 975 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 15:25:09.30 ID:vF0LuwhE0.net] >>964 うーん 頭ごなしに糞というつもりはないけど そうだね、もし改善点を挙げるとすれば・・・ まぁ聞き流して良いけどね。 ・変数名は一貫性を持たせて、一見して何を意味しているのか分かるようにすること。 例えば頭の1文字が大文字だったり小文字しているのをキャメル形式に統一するとか。 ・ActiveSheetは極力使わない。 キチンとした意味を持っているならそれでいいけど、フォームやツールバーから呼ばれることやそのように改修される可能性も考慮してどのシートを使うか明示的に指定する方が良い。 もちろんその際はシート名が変更されてしまうことを考慮して シート名ではなくシートオブジェクト名を使用する。 ・単一責任原則を踏襲する。 一つの関数またはメソッドに、一つの役割のみ持たせて一つの関数またはメソッドが増長になることを防ぐ。 とは言ってもこれは何を一つの役割とするかを決めるセンスが必要で、 これを上手く作れれば「糞」からひとつ脱却出来る。 後は趣味の問題だけど ・Withを使わないことに慣れる。 VBA → VB.Net → C#に移行したとき、Withが無いから慣れておくとちょっと楽。 ・CreateObjectは使い所を考える。 CreateObjectはバージョンを考慮せずに済んだりする反面、 メソッドやプロパティのインテリセンスが効かなくなるため、タイプミスをし易くなるという欠点がある。 参照で繋ぐか、CreateObjectで作成するかは 一考した方が良い。 尚、本来Variant型は何でも入ってしまう危険な型なので 使わない方がいいと言いたいところだけど EXCELのRangeオブジェクトとあまりに相性が良いから使うなとは言えない。 976 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 16:55:51.25 ID:ttYMdvTCd.net] ワロタ 977 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:15:40.71 ID:2RS2aA5zM.net] メガネをクイってしながら凄い早口で言ってそう 978 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:24:46.18 ID:lGPcjQzL0.net] >>967 940が一番何をしてるのか分かりやすい これにシート銘柄をしっかり記述すればよいのでは？ 979 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:25:19.68 ID:lGPcjQzL0.net] 銘柄w シート名ね 980 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:38:30.30 ID:vF0LuwhE0.net] >>964 ついでにもう一つ言っておくと、 ディクショナリやコレクションの要素数は1バイトで扱える数、つまり1から数えて256まで。 着眼点は良かったけど、3000行を考慮すると オーバーフローで落ちる可能性があるよ。 981 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:56:32.92 ID:lKwA7qQn0.net] >>956 ちがう 金星（まぁず）ちゃんというDQNネームがあった 982 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 19:57:39.75 ID:lGPcjQzL0.net] ディクショナリは重複確認用で3000データをまるまる格納する訳じゃないだろ 983 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 20:01:06.73 ID:cHLiD5SO0.net] >>977 ＞ディクショナリやコレクションの要素数は1バイトで扱える数、つまり1から数えて256まで。 初耳 984 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 20:20:25.27 ID:lKwA7qQn0.net] >>977 嘘を言うな 985 名前：デフォルトの名無しさん [2021/03/17(水) 21:15:41.95 ID:X8ZT7dpP0.net] 256ページの辞書なんて存在するの？ 986 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 21:56:14.59 ID:2ghuU9if0.net] ウィンドウ上の制限 987 名前：デフォルトの名無しさん [2021/03/17(水) 23:33:51.91 ID:YH/YYkmR0.net] 経験からくる誤った思い込みだろうね。 1バイト単位の区切りというのは、8ビットパソコン時代からExcelが存在していれば、可能性としてあるが、16ビットパソコンから作っているのに1バイトという制限はありえない。 988 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 23:42:58.65 ID:n+mEYgox0.net] ディクショナリとかコレクションとかが、具体的に何を指してるかにもよるんだが まあ255個とかいう制限のディクショナリやコレクションは思いつかないが EXCELに限れば、上限255とか256とかいう制限のものは今ですらちょこちょこあるんだぜ https://support.microsoft.com/ja-jp/office/excel-%E3%81%AE%E4%BB%95%E6%A7%98%E3%81%A8%E5%88%B6%E9%99%90-1672b34d-7043-467e-8e27-269d656771c3#ID0EBABAAA=%E6%96%B0%E3%81%97%E3%81%84%E3%83%90%E3%83%BC%E3%82%B8%E3%83%A7%E3%83%B3 989 名前：デフォルトの名無しさん [2021/03/18(木) 00:01:49.93 ID:7fQvPjcg0.net] >>985 論点ずらしだな。単純に初期のExcelの時代だとメモリ節約で1バイトにしただけで、足りないと判断されたものは、のちに2バイト、4バイト単位に変更されている。 990 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 00:28:15.06 ID:POZoiR5o0.net] 改善点とか言って挙げてる内容は偏ってて微妙だし知識も無いのに態度だけ上からだし昔の人はすごいなぁ 991 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 02:36:30.62 ID:Z7yNcrmt0.net] >>985 例えば列の幅が255文字なのは別に１バイトで管理してるわけじゃなくて上限を設定してるだけだろ そう言うのはExcelに限った話じゃないよ 992 名前：941 mailto:sage [2021/03/18(木) 13:11:04.06 ID:VjRMlHUp0.net] >>941 11111,A子 11112,B子 Ruby で、こういうCSV ファイルを処理した場合、 辞書は、こうなる。 値のtrue に意味はない {"11111"=>{"A子"=>true}, "11112"=>{"B子"=>true}, "11113"=>{"C子"=>true, "D子"=>true, "E子"=>true}, "11114"=>{"F子"=>true}, "11115"=>{"E子"=>true}} F子は、重複しない 993 名前：941 mailto:sage [2021/03/18(木) 13:17:05.45 ID:VjRMlHUp0.net] ただし、このファイルを、1パスでは処理できない 11113,C子 11113,D子 11113,E子 "11113"=>{"C子"=>true, "D子"=>true, "E子"=>true}, C子 を読み込んだ時点で、その行よりも後ろにある、 D子・E子 の情報を取得できないから だから、>>941 では、データ配列を2回読んでいる 994 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 13:36:31.16 ID:pzBF2kYz0.net] >>964 64bit版の時はlonglongで宣言するようにしないとエラーになる可能性があるよ 995 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 14:11:19.12 ID:Z7yNcrmt0.net] >>991 3,000行ぐらいなのに？ 996 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 14:55:42.20 ID:pzBF2kYz0.net] そんな考えならプログラミングやめたほうが良いんじゃない 997 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 15:38:13.36 ID:Z7yNcrmt0.net] 何でもかんでもLongLong使うのが正解だとでも思ってるの？ 998 名前：デフォルトの名無しさん [2021/03/18(木) 15:58:28.07 ID:7fQvPjcg0.net] >>993 はデタラメを言っているな。妄想なのかな。 999 名前：デフォルトの名無しさん [2021/03/18(木) 16:01:58.30 ID:7fQvPjcg0.net] 他の言語や環境の仕様とごっちゃになってるんだろうな。 Excel VBAで32ビットと64ビットで、よく使われるデータ型に大きい違いがあるなんて聞いたことがない。 1000 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 17:13:11.58 ID:Z7yNcrmt0.net] LongLong は 64bit 環境でないとサポートされないとか LongPtr のビットサイズやバリアント型の文字列の付加サイズが 32bit と 64bit 環境で違うとかはあるけどまあ些細といえば些細な話だわな そもそも現状最大行数が Long 型で扱えるのに >>991 が何を心配してるのか興味ある 1001 名前：デフォルトの名無しさん [2021/03/18(木) 17:39:14.84 ID:7fQvPjcg0.net] 64ビットというのも何の組み合わせを言っているのかもわからない。 それにしてもここはマイクロソフトのサポートの人がいないか？ この中途半端さが日本マイクロソフト風なんだが。 1002 名前：デフォルトの名無しさん [2021/03/18(木) 18:16:57.50 ID:d7pvjDlRM.net] サポートの人が256個なんて言わないだろ 1003 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 19:19:46.38 ID:Z7yNcrmt0.net] 組み合わせ？ 単に64bit Excelかどうかだけじゃね？ 1004 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 95日 18時間 57分 23秒 1005 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

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

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