Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

8:デフォルトの名無しさん
19/04/26 19:59:27.77 HeuAVqYr0.net
ネットワーク上のMDBファイルにADOで接続して取ってきたデータを帳票に表示→印刷というマクロを作りました
しかし1件なら問題ないものの、ループ実行すると正常終了で終わるのですが
実際に印刷すると2件目以降のデータが反映されず、全て1件目のデータが印字されます
どうもMDBから取ってくる部分のタイミングの問題に見える（その部分に差し掛かると画面が固まる。DoEventsを入れずに重い処理をさせたときの感じ）のですが、SleepやDoEventsを適宜挟んだり、印刷ではなく別ブックやpdfに書き出しなどに変更しても効果が見えません
この現象の解消方法をご存知の方いませんか？

9:デフォルトの名無しさん
19/04/26 20:55:16.93 /RLYU0hs0.net
>>7
まだやってるのかよ
悔しがりすぎww

10:デフォルトの名無しさん
19/04/26 22:32:55.22 dk67nCTl0.net
>>8
言ってることがよくわからんけど、adoで直結してデータとってきてるなら、doevents挟んでも意味ない
なので、そもそもバグってると思われる。
doeveが効果あるのは、間接的に（と言って伝わるかわからんけど）何か処理するとか表示を反映させるとかの場合

11:デフォルトの名無しさん
19/04/27 00:36:16.19 Oy0GcGsSM.net
>>8
俺も単なるプログラムミスだと思う
謎々シテナイデソース貼れよ

12:デフォルトの名無しさん
19/04/27 07:20:56.42 0MG9/7scr.net
movenextが無いとかループカウンタが加算されていないとか

13:デフォルトの名無しさん
19/04/27 09:50:04.14 xkuV+iFS0.net
ブレイクポイント置いたり、debug.print挟んだりするのは、
基本のキ

14:デフォルトの名無しさん
19/04/27 12:20:27.60 S53FxUuZ0.net
Sheet1, Sheet2, Sheet3 がある状態で
A1 =fnEnumSheetName() と入力すると
A1 シート名一覧
A2 Sheet1
A3 Sheet2
A4 Sheet3
と表示されるようにしたいのですが
A1に#VALUE!と表示されDebug.PrintがSheet1しか表示しません
期待通りにするにはどう修正すればいいですか？
For文3行目のコメントアウトを外すとDebug.PrintとA1の表示は期待通りです
'シート名列挙
Public Function fnEnumSheetName() As String
Dim iIndex As Integer
For iIndex = 1 To Worksheets.Count
Debug.Print Worksheets(iIndex).Name
' ActiveCell.Offset(iIndex, 0).Value = Worksheets(iIndex).Name
Next iIndex
fnEnumSheetName = "シート名一覧"
End Function

15:デフォルトの名無しさん
19/04/27 12:25:43.11 S53FxUuZ0.net
訂正です
×　For文3行目のコメントアウトを外すとDebug.PrintとA1の表示は期待通りです
○　For文3行目をコメントアウトするとDebug.PrintとA1の表示は期待通りです

16:デフォルトの名無しさん
19/04/27 12:34:38.52 0MG9/7scr.net
ブック名を入れてみたら

17:デフォルトの名無しさん
19/04/27 12:41:15.22 0MG9/7scr.net
for iIndex=1 to workbooks("xxx.xls").sheets.count
workbooks("xxx.xls").sheets(iIndex).name

18:デフォルトの名無しさん
19/04/27 12:54:30.18 Nwb++xAe0.net
>>9
悔しいから反応してるんだろww

19:デフォルトの名無しさん
19/04/27 13:03:37.89 Nwb++xAe0.net
>>14
それ、前スレで言われてた副作用のある操作は難しいってのに該当する。
セルに入力中はVBAの実行が普通は出来ないから。

20:デフォルトの名無しさん
19/04/27 13:09:43.12 V/rwcmys0.net
ActiveSheet.Cells(1, 1) = "シート名一覧"
Dim iIndex As Integer
For iIndex = 1 To Worksheets.Count
ActiveSheet.Cells(iIndex + 1, 1) = Worksheets(iIndex).Name
Next iIndex
全く何がしたいのかわからない

21:デフォルトの名無しさん
19/04/27 13:11:56.45 Nwb++xAe0.net
>>20
それをfunctionにしてセルの中からよび出そうとしてる。
それでは動かない筈。

22:デフォルトの名無しさん
19/04/27 13:15:34.87 aEScOWQbx.net
>>14
ActiveCellが悪さしてそう
シート名を二次元配列に格納してセルにペーストした方が速いだろう

23:デフォルトの名無しさん
19/04/27 13:19:58.15 0MG9/7scr.net
sheet1と表示されるなら、sheet2がないためエラーが発生してるんじゃない
関数は個人用マクロブックとかに書いてあるとか

24:デフォルトの名無しさん
19/04/27 13:20:05.54 V/rwcmys0.net
>>21
そんなの単純に
A1 =fnEnumSheetName() と入力すると
このファンクション内で最初に書き換えるから？最初でなくても矛盾が生じる
から、動かなくても問題ない、そこに居れた式を書き換えたらなりたたない
当然だろ、何か考える必要あるのか？

25:デフォルトの名無しさん
19/04/27 13:25:15.46 Nwb++xAe0.net
>>24
いや、だから元々の質問は成り立たせたいわけだろ。

26:デフォルトの名無しさん
19/04/27 13:28:49.05 Nwb++xAe0.net
あと、シート自体にロックが掛かってるから入力中は動かないよ。

27:デフォルトの名無しさん
19/04/27 13:36:42.57 V/rwcmys0.net
>>25
単純に考えても成り立たないだろ、ってかセキュリティもあったもんじゃなくなる
式を「A1」に入れて「A1」を書き換えたら

28:デフォルトの名無しさん
19/04/27 13:38:26.20 S53FxUuZ0.net
ありがとうございます
ブック名を指定しても
A1にシート名一覧を表示しないようにしても
同じ結果でした

29:デフォルトの名無しさん
19/04/27 13:42:36.94 V/rwcmys0.net
>>28
すまないけど、人に分かるように書き込みできんのかな？

30:デフォルトの名無しさん
19/04/27 13:42:59.47 S53FxUuZ0.net
混乱してるみたいなのでまとめます
 >>14の状態(コメントアウト有り)では
A1のシート名一覧は表示され
Debug.PrintもSheet1～Sheet3まで表示されます
コメントアウトしている部分で書き換えているのはA2～A4です

31:デフォルトの名無しさん
19/04/27 13:44:30.42 rUmkpmPg0.net
>>18
>>18ww

32:デフォルトの名無しさん
19/04/27 13:47:01.70 S53FxUuZ0.net
>>29
fnEnumSheetName = "シート名一覧" 'ここはコメントアウトしなくても問題無い
という事です

33:デフォルトの名無しさん
19/04/27 13:47:02.53 0MG9/7scr.net
すまんかった
>19が正解っぽい
sheet1だけなら
fn～=application.thiscell.parent.nameで拾える
A1を書き換えようとすると2016では循環参照の警告がでる

34:デフォルトの名無しさん
19/04/27 13:52:49.27 S53FxUuZ0.net
>>33
そうなんですね
ではA1には式を入力するだけという事にしておいてください
ですがそれでも解決はしません
ActiveCellの部分を他の方法でやってみます

35:デフォルトの名無しさん
19/04/27 14:02:54.56 V/rwcmys0.net
>>34
独自関数は、自分のセルを計算するだけにしておけよ
それ以外を許すと全く分からなくなる
その程度のことも判断しないとな

36:デフォルトの名無しさん
19/04/27 14:16:52.17 S53FxUuZ0.net
>>35
失礼ですがあなたの指摘(A1が云々)は本題とは関係無いんです
コメントアウトしても同じ結果だったので

37:デフォルトの名無しさん
19/04/27 14:42:51.99 Nwb++xAe0.net
>>31
その反応が面白いwww

38:デフォルトの名無しさん
19/04/27 14:50:38.26 Nwb++xAe0.net
>>30
だから、コメントアウトしたのは入力したシート内のセルに入力するコードだろ。
そういうのは普通は動かないんだ。
動かすことは出来るけど難しい。
例えばA1に途中迄入力してセル内カーソルがある状態でVBAを動かそうとしても動かない。
じゃあ、どうやってやるかと言えばSetTimerを使えば出来る。
ただし、使いなれた人じゃないと大変危険だ。

39:デフォルトの名無しさん
19/04/27 14:51:15.82 rUmkpmPg0.net
>>37
>>18w

40:デフォルトの名無しさん
19/04/27 14:52:49.56 Nwb++xAe0.net
まあ、実際の所、>>35に賛成だね。
こういう処理はセルへの入力をトリガーにすべきじゃないな。

41:デフォルトの名無しさん
19/04/27 14:53:11.87 Nwb++xAe0.net
>>39
悔しいから反応するわけだw

42:デフォルトの名無しさん
19/04/27 14:55:56.58 b8TiPyfa0.net
>>36
関数内で配列を作って返し、複数セルにわたって配列数式での入力（ctrl + shift + Enter）にすればできる

43:デフォルトの名無しさん
19/04/27 15:16:12.29 rUmkpmPg0.net
>>41
>>18
痴呆は同じ事を何度も繰返す
まあその程度の知恵しかないからしょうがないんだろうけどw

44:デフォルトの名無しさん
19/04/27 15:17:32.57 S53FxUuZ0.net
配列にしたらできました
ですがシート数が固定ではなくセル選択範囲がネックになるので
ボタンをトリガーにして当初のコードを利用する事にします
ありがとうございました

45:デフォルトの名無しさん
19/04/27 15:26:37.85 b8TiPyfa0.net
>>44
配列の長さを越える範囲を選択しても下の方が#NAになるだけで上側は有効だけど、
確かに見苦しいからそのやり方の方がいいだろうね

46:デフォルトの名無しさん
19/04/27 15:43:11.43 t5jYwzHf0.net
>>14
Excelの決まりとしてセルに入れた数式の結果はあくまでそのセルだけのもの
他のセルを弄るというのはセル数式の領域外
だからActiveCell.Offset～があるとエラーになる
こういう場合はコマンドボタンとか付けてそれ押したら指定先のセルに表示するとかする

47:デフォルトの名無しさん
19/04/27 17:29:07.12 S53FxUuZ0.net
ありがとうございます

48:デフォルトの名無しさん
19/04/27 19:02:45.87 oGcERCTJM.net
シートの上限を制限できるなら
Public Function fnEnumSheetName(Index As Integer) As String
If 1 <= Index And Index <= ActiveWorkbook.Worksheets.Count Then
fnEnumSheetName = ActiveWorkbook.Worksheets(Index).Name
Else
fnEnumSheetName = ""
End If
End Function
を定義して
A1に =fnEnumSheetName(Row()) を入力
あとは必要分を A2 から下に関数コピーすればいい

49:デフォルトの名無しさん
19/04/27 19:51:55.22 Nwb++xAe0.net
>>43
プッw
自己矛盾は認めるのかw

50:デフォルトの名無しさん
19/04/27 19:56:38.58 vRc/Njpl0.net
色々なシートを触る時、.activateは入れますか？
set sheets("sheet1") = foo
set sheets("sheet2") = bar
foo.activate
foo.cells(1,1)="str"
bar.activate
bar.cells(1,1)="str"
要は
cells(1,1)="str"
とシート名を抜かしてしまった時の保険なんですが、止めたほうが良いでしょうか？
また、シート名を忘れた時にエラーが出る等、わかるようにする方法ってありますか？

51:デフォルトの名無しさん
19/04/27 20:12:40.86 Nwb++xAe0.net
Activateなんて殆ど使うことは無い。
と言うより、シート名を抜かすことなんて有り得ないというくらい無い。
寧ろブックも省略しない。
だからWithかSet sht=Workbooks("hoge.xlsx").Worksheets("fuga")
をたいてい使う。

52:デフォルトの名無しさん
19/04/27 20:13:58.60 Nwb++xAe0.net
ああ、よく見てなかった。
Set使ってるじゃん。
それなのに抜かすことが有るの?

53:デフォルトの名無しさん
19/04/27 20:15:01.27 Nwb++xAe0.net
よく見たら間違ってた。

54:デフォルトの名無しさん
19/04/27 20:39:24.98 vRc/Njpl0.net
>>52
はい
もちろん最初からこの形なら良いのですが、
1シートしか使わないマクロでシート名を抜いて記述
その後、2シート以上に増えた時、改修する時に抜ける事があるのです
1シートだけでもシート記述した方が良いんでしょうかねぇ

55:デフォルトの名無しさん
19/04/27 20:53:55.77 Nwb++xAe0.net
>>54
関係ない。
というか染み付いた方が良いと思うよ。
シート数がどうとか考えることもなく自分は省略しない。
それにブックを複数開くことって無いの?

56:デフォルトの名無しさん
19/04/27 21:40:11.04 t5jYwzHf0.net
>>50
原因がわからないエラーじゃないんだから保険ではなくきちんと明示するようにしよう
書き忘れてエラーが出たらそれをちゃんと直すようにしよう
中途半端な保険なんて入れておくとますます不備に気付けない
自分の簡単なチェック方法は前にドットがついてないrangeとcellsを全部検索するようにしてる

57:デフォルトの名無しさん
19/04/27 21:53:22.78 rUmkpmPg0.net
>>49
まだ言ってるのかw
それを自己矛盾と言張るならお前も根拠出せって話な

58:デフォルトの名無しさん
19/04/27 21:56:32.16 JuyaDe8h0.net
>>55
ありがとうございます
癖にしていきます
ブックを複数開く事は滅多に無いです
基本的にそのブックにマクロをもたせるようにしています

59:デフォルトの名無しさん
19/04/27 21:58:54.29 rUmkpmPg0.net
>>50
シート名忘れるような奴はそのうちActivate指定も忘れたり間違えたりすると思うぞ
そもそもそんな保険を掛ける前に
> set sheets("sheet1") = foo
とか書いて疑問に思わない自分の頭を心配した方がいい

60:デフォルトの名無しさん
19/04/27 22:03:53.98 Nwb++xAe0.net
>>57
www
正式な方法があるか無いか分からないのに「無い」と言い切ったことが根拠だと何度言ったらww

61:デフォルトの名無しさん
19/04/27 22:11:38.42 JuyaDe8h0.net
>>59
それもそうですね
ちゃんと書くようにします
そして酷い間違いすいません

62:デフォルトの名無しさん
19/04/27 22:24:21.55 rUmkpmPg0.net
>>60
それじゃねーよ、バーカ
これの根拠書けって話な
>> 857
On Errorしかないのが正式なら同じだし、
On Error以外に正式なものがあれば問題ないし、

63:デフォルトの名無しさん
19/04/28 03:00:41.86 4bLnIwms0.net
スポーツの試合だとお互いの実力が拮抗していると長くなるよね

64:デフォルトの名無しさん
19/04/28 08:28:37.40 FKjutIP90.net
>>20
> ActiveSheet.Cells(1, 1) = "シート名一覧"
これはセルの値を変更だろ
下のは式としては=Test()で表示としてはSampleになるから別物
混乱させようとした愉快犯か？
Public Function Test() As String
Test = "Sample"
End Function

65:デフォルトの名無しさん
19/04/28 08:33:01.60 sJuQcHaM0.net
SubよりFunctionの方が格好いいような気がして、
意味もなくFunction使っちゃうんですよ。
何でしょうね。

66:デフォルトの名無しさん
19/04/28 09:30:57.39 Cfig35XD0.net
>>64
おっさん、その話もう終わってるぞ

67:デフォルトの名無しさん
19/04/28 12:29:42.70 dIRL+egd0.net
>>65
個人用ならどうでもいいよ
オレが関わる（他人も使う）なら、糞ボケ春日と言わせてもらう

68:デフォルトの名無しさん
19/04/28 13:02:26.00 EgFNocvh0.net
>>62
その根拠www
>>60は根拠そのものなんだがwww
お前は1+1=5だと言っている。
俺はそんなの全く説得力が無いと言っている。
何故なら1+1=5の根拠を全く示していないからだ。
今の状態は1+1=5だとお前が妄想しただけとしか受け取れない状態だ。
妄想でも構わんが何ーつ説明出来ていないんじゃ説得力が全く無いのは自明の理だ。
←これが俺の根拠だ。
それで全て。
バカで理解出来ないようだからもう－度言う。
今言ってるのはお前が自己矛盾してるかどうかだ。
正式な手順があるだろうという俺の主張の話は何ーつしていない。
前にも書いたが一緒にして逃げを打たれても困るんでな。

69:デフォルトの名無しさん
19/04/28 13:18:46.95 2hWtotY90.net
>>65
意味はあるからしっかり使い分けなよ

70:デフォルトの名無しさん
19/04/28 13:37:52.21 Cfig35XD0.net
>>68
だから俺の主張がMSに確認してないから根拠がないと言うならお前も根拠を出せよっていうだけの話
そもそも俺がMSに確認してないという根拠すら出せないだろ？w

71:デフォルトの名無しさん
19/04/28 13:46:53.43 QZJPb34xd.net
>>70
バカ?
1+1=5と言われて信じる奴が何処にいる?
だから根拠を出せと言っている。
根拠を出せなければ信頼に値しない。
俺がお前の根拠を示す必要は全く無い。

72:デフォルトの名無しさん
19/04/28 13:50:31.23 hyHYBmToF.net
>>70
いや、お前が確認してるなら根拠を出せば良い。
出さなければ信頼に値しない。
で、今までお前は根拠を出さなかった。
従ってお前の主張は信頼に値しない。
これが根拠だから俺がMSに何かを確認しても、それは根拠には成らん。

73:デフォルトの名無しさん
19/04/28 13:51:35.95 QZJPb34xd.net
>>70
いや、お前が確認してるなら根拠を出せば良い。
出さなければ信頼に値しない。
それだけのことだから俺にはMSに何かを確認する意味がない。
で、今までお前は根拠を出さなかった。
従ってお前の主張は信頼に値しない。
これが根拠だから俺がMSに何かを確認しても、それは根拠には成らん。

74:デフォルトの名無しさん
19/04/28 14:52:10.80 HssTnoLvr.net
on errorで出来てるし、もしMSにきいたとして
来る回答のパターンは
on error
on error以外
出来ない
くらい？出来ないはないと思うんで、
on errorが正式か、正式が別にあるんじゃないかな

75:デフォルトの名無しさん
19/04/28 15:05:52.13 QZJPb34xd.net
>>74
俺もその主張をしているけど、ここでの問題はその議論とはちがう。
確認もせずに >>70が「言い切った」ことが問題。
>>74の主張の正否とは関係なく「言い切った」ことは間違ってると言っている。

76:デフォルトの名無しさん
19/04/28 17:22:26.95 Cfig35XD0.net
>>75
> 確認もせずに
だから俺が確認して無いって言う根拠を示せよw
当然できるんだよね？

77:デフォルトの名無しさん
19/04/28 17:27:07.37 Cfig35XD0.net
>>74
> くらい？出来ないはないと思うんで、
なぜそう思う？
正式にはそんな機能はありませんとか回答する可能性はかなり高いと思うぞ
そもそもOn Errorの方法自体がかなりトリッキーだし

78:デフォルトの名無しさん
19/04/28 19:36:02.91 eejI4zUeF.net
>>76
www
バーカwww
お前が確認しようがしまいがそれをここで提示出来てないから説得力無いと言っている。
提示出来なければ確認してても何の意味も無い。

79:デフォルトの名無しさん
19/04/28 19:36:28.72 eejI4zUeF.net
>>77
また逃げを打つwww

80:デフォルトの名無しさん
19/04/28 19:38:22.48 eejI4zUeF.net
>>77
トリッキーじゃないのは既に示した。

81:デフォルトの名無しさん
19/04/28 20:00:47.17 Cfig35XD0.net
>>78
説得力の有無なんて関係ないだろ
お前が根拠を示せてないと言う「事実」があるだけ
 >>79-80
で？
その方法はMSから回答もらったのか？w
あと念の為に言っとくけど、普段はこんなアホなことは言わんよ
「MSに確認」を執拗に要求するアホがいるから、人に要求するなら自分も根拠を示せというだけのこと

82:デフォルトの名無しさん
19/04/28 20:26:37.62 gBjA4ugeF.net
>>81
ほら、また自己矛盾だ。
バカだから気付いていないwww

83:デフォルトの名無しさん
19/04/28 20:48:30.04 Eb5haylPx.net
VBAに拘る人種の何たるかが分かるレスバだね
関わらないのが一番

84:デフォルトの名無しさん
19/04/28 20:50:38.73 JRvhyTXgd.net
結局、バカがトリッキーだと思っただけのことをさも確定であるかのように騙ってただけのことだった

85:デフォルトの名無しさん
19/04/28 20:52:28.34 sT0U/wAv0.net
>>77
それがトリッキーなら前スレ848
>例えば昔仕事で扱ったWin32APIのGetPrinterでは取得するPinterInfo2構造体のサイズを0にして渡して敢えて失敗させることによって正しい構造体のサイズを取得するなんてのがある。
もトリッキーでしょ

86:デフォルトの名無しさん
19/04/28 20:53:46.89 JRvhyTXgd.net
>>81は騙り確定だな。

87:デフォルトの名無しさん
19/04/28 21:29:15.72 Cfig35XD0.net
>>82
もうそういう具体性のかけらもないレスしかできないかな？
>>84-86
まともなプログラマーならドキュメントに明記されてることとそうでないことの区別ぐらいは付きそうなもんだけどな
まあ今更引っ込みつかないんだろうなw

88:デフォルトの名無しさん
19/04/28 23:17:35.58 +Ppdot+Mr.net
そうでないからMSに確認しないとわからない
回答がドキュメント代わりになる

89:デフォルトの名無しさん
19/04/29 00:24:17.00 XyJHv5T1d.net
フォームから10個のTextboxに書かれた情報をボタン投下時にTextfileに一列タブ区切りで追記するもの。(空もあり)
それと、そのTextfile読み取って全列一列ずつExcelに転記出来るものを作り、内容を変更したりした後、再びTextfileにoutputするものを作りました。
そのTextfileの中ワードを検索し該当する行をタブ区切りで配列に格納してリストビューに転記するものを作ったんですが、たまに配列数0から7個だったり少なくて転記の際にエラーになるのはなんかありますか？

90:デフォルトの名無しさん
19/04/29 05:45:36.38 lr8PSWgy0.net
>>89
回答じゃないけど、テキストファイルに書くんじゃなくて（隠し）シートに書いてやるのはダメなの？

91:デフォルトの名無しさん
19/04/29 05:52:06.61 atpu4K080.net
>>88
必要なら君がやればいいだけ
そんなこともわからないの？

92:デフォルトの名無しさん
19/04/29 06:00:11.68 atpu4K080.net
>>89
取り敢えずエラーになった時のTextfileは確認したの？

93:デフォルトの名無しさん
19/04/29 08:59:53.28 3KqibFAl0.net
>>87
www
説得力が無くて良いならお前はもう反論出来ないということだよ。
俺の主張に説得力が無くても良いと表明したんだからなw
俺は説得力が無くても良いとは思わないから、お前は騙り確定だw

94:デフォルトの名無しさん
19/04/29 09:02:43.11 3KqibFAl0.net
>>91
だから必要なのは正式ではないと決めつけたお前なんだよwww
バカだなあw

95:デフォルトの名無しさん
19/04/29 10:26:14.89 atpu4K080.net
>>93
説得力が無い？
> 説得力の有無なんて関係ないだろ
> お前が根拠を示せてないと言う「事実」があるだけ
って書いてあるんだが、ひょっとして違いがわかってないのか？w

96:デフォルトの名無しさん
19/04/29 11:05:38.54 3KqibFAl0.net
>>95
バーカwww
根拠は示せてるで確定だwww
お前は「根拠は示せてる」に反論出来ないwww

97:デフォルトの名無しさん
19/04/29 11:07:23.49 3KqibFAl0.net
>>95
お前自ら、反論出来ないと表明しちまったんだよw

98:デフォルトの名無しさん
19/04/29 11:18:46.73 3KqibFAl0.net
>>95
根拠は示したという俺の主張が「事実」であり、それにお前は自ら説得力が無くても良いと言ってしまった。
一方、根拠は示されていないというお前の主張に説得力が無くても良いとは言わない。
従って、お前は反論出来ないが俺はいくらでも反論させて貰うw

99:デフォルトの名無しさん
19/04/29 11:30:15.17 3KqibFAl0.net
そもそも根拠は何の為に必要なのかと言えば、主張に説得力を出すためだ。
相手に求めるのも説得力が無いから説得力を出すために根拠を提示しろということだ。
そんなこともわからないんだから全く意味不明。

100:デフォルトの名無しさん
19/04/29 11:46:18.60 atpu4K080.net
>>96-99
> 根拠は示せてるで確定だwww
ほう、どこで示せてるんだ？
レス番示して引用してみな
まあ、どうせまたごまかすんだろうけどw

101:デフォルトの名無しさん
19/04/29 12:16:53.98 4bYMRVF+0.net
そろそろ、無意味な言い争いやめたら、だんだん何したいかわからん

102:デフォルトの名無しさん
19/04/29 12:55:19.18 3KqibFAl0.net
>>100
お前の理論によればもはや示す必要もないwww
残念でしたwww
説得力無くて良いんだろw

103:デフォルトの名無しさん
19/04/29 12:57:44.87 3KqibFAl0.net
説得力無くても良いと言ったんだから不必要なものを求めるな。
バカがw

104:デフォルトの名無しさん
19/04/29 13:04:31.07 atpu4K080.net
>>102
> お前の理論によればもはや示す必要もないwww
はい、想像通りでしたw
>> まあ、どうせまたごまかすんだろうけどw
> 説得力無くて良いんだろw
そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
常識が通じない相手とはやり取りが困難って言うだけのこと
 >>101
スレ跨いで粘着するような人なので察してやってくださいなw ⇒ >>7
まあ連休で暇だからと言って相手してる俺も悪いんだけどね

105:デフォルトの名無しさん
19/04/29 13:10:55.90 3KqibFAl0.net
>>104
www
バーカwww
本当にバカだな。
説得力が必要なければ、ここは意味が無い。
それどころか全ての議論は意味が無い。
MSに確認は説得力を増すための十分条件だが、必要条件では無いから必ず必要なわけじゃ無い。
しかしお前は何－つ説明をしていない。
その上で説得力を必要無いなどとバカを晒した。
それじゃ議論の意味が無いからお前がここで何かを主張するのも意味が無いと自分で表明したことになる。
本当にバカだ

106:デフォルトの名無しさん
19/04/29 13:45:41.26 5oVU+kiox.net
>>89
テキストボックスが空だったときのテキスト出力に問題がありそう
エラーが出たときのテキストボックスの入力状態を再現できるなら、個々の値の転記処理が終わる箇所にブレークポイントを設定して、テキストファイルの区切り文字の数とかをダンプして確かめるといいよ

107:デフォルトの名無しさん
19/04/29 13:54:02.85 atpu4K080.net
> その上で説得力を必要無いなどとバカを晒した。
まず日本語のてにをはからやり直せよ…
頭に血が上りすぎだろw

108:デフォルトの名無しさん
19/04/29 14:14:07.86 KquSHPZdd.net
>>107
不必要なことをするなw
バカがwww

109:デフォルトの名無しさん
19/04/29 14:33:48.02 ctIEF5n7F.net
だいたい、てにをはを分かって無いのはどっちだよ。

110:デフォルトの名無しさん
19/04/29 14:37:09.09 atpu4K080.net
指摘されてアタフタw

111:デフォルトの名無しさん
19/04/29 14:46:16.98 KquSHPZdd.net
>>110
反論出来なくて悔しいのうw

112:デフォルトの名無しさん
19/04/29 14:55:19.39 atpu4K080.net
>>111
既に結論出してるからね
>> 説得力無くて良いんだろw
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
> 常識が通じない相手とはやり取りが困難って言うだけのこと

113:デフォルトの名無しさん
19/04/29 15:21:29.32 KquSHPZdd.net
お前が自ら反論出来ませんと宣言した結論がなwww

114:デフォルトの名無しさん
19/04/29 15:22:16.26 KquSHPZdd.net
>>112
自分がアホなことを言った責任を取れw

115:デフォルトの名無しさん
19/04/29 15:23:08.17 KquSHPZdd.net
常識が通じないことを言い出したのは自分じゃねーかw

116:デフォルトの名無しさん
19/04/29 16:08:31.29 atpu4K080.net
バカが何か喚いてるなw
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない

117:デフォルトの名無しさん
19/04/29 17:26:09.94 KquSHPZdd.net
>>116
反論出来なくなって議論を放棄したバカはお前だろw

118:デフォルトの名無しさん
19/04/29 17:33:18.07 wwUmbZI/M.net
>>117
バカが何を喚いても
> そう言うこと、匿名掲示板でMSに確認ガーとか言い出したらキリがない
という事実は変わらない

119:デフォルトの名無しさん
19/04/29 17:45:24.31 5oVU+kiox.net
ここの人達を見てるとVBAがなぜオワコンなのか分かるね

120:デフォルトの名無しさん
19/04/29 17:55:06.77 TTZW3SJd0.net
>>119
逆だろ
敷居が低すぎて誰でも使えるから荒れる

121:デフォルトの名無しさん
19/04/29 18:58:21.22 leSwRXLe0.net
何で最新版の2019でも使えるのにオワコンなの?

122:デフォルトの名無しさん
19/04/29 19:23:57.77 tJZYnaZY0.net
当時はすぐにVBA.NETがでると思ったんだけどなぁ

123:デフォルトの名無しさん
19/04/29 19:41:52.72 lSCWRZH10.net
>>89
取り出し方を間違ってるかTextfileの中身が実際に足りてないかのどっちか

124:デフォルトの名無しさん
19/04/29 20:01:58.83 b0/Q+dtd0.net
>>92
エラーになったTextfileは確認しました。
もちろん配列格納時に足りなくまります。
>>106
print #fileNo,txtA.Text ＆vbTab;
print #fileNo,txtB.Text ＆vbTab;
・
・
print #fileNo,txtG.Text;
今コードないからあれですけど、こんな感じだったと思うんですけど何か起きそうですかね？

125:デフォルトの名無しさん
19/04/29 20:17:29.34 atpu4K080.net
>>124
> エラーになったTextfileは確認しました。
> もちろん配列格納時に足りなくまります。
だ・か・ら、Textfileの中身はどうなってるんだよ…

126:デフォルトの名無しさん
19/04/29 20:37:36.75 8I96H2WZF.net
>>118
お前は既に敗北宣言してるんだから今さら何言っても無駄だw
説得力が無くて良いと言うのは敗北宣言に等しい。
俺がお前に対して何も説得力が無くても良いと言ってしまったんだからなw

127:デフォルトの名無しさん
19/04/29 20:53:34.07 atpu4K080.net
また痴呆症の再発かよw
>>95
説得力が無い？
> 説得力の有無なんて関係ないだろ
> お前が根拠を示せてないと言う「事実」があるだけ
って書いてあるんだが、ひょっとして違いがわかってないのか？w

128:デフォルトの名無しさん
19/04/29 21:29:45.18 KquSHPZdd.net
>>127
今さら、ひっくり返そうとしても無駄w
お前の言によれば俺の主張に説得力は必要無いということだからな。
お前は無条件に俺の主張に同意すると言ったに等しいw

129:デフォルトの名無しさん
19/04/29 21:31:38.71 KquSHPZdd.net
>>127
お前の言う「事実」なんて無いのも確定だw
「事実」なんて無いという俺の主張に説得力は必要無いとお前が言ったんだからなw

130:デフォルトの名無しさん
19/04/29 21:34:44.44 5oVU+kiox.net
アスペ vs アスペ
ファイッ！

131:デフォルトの名無しさん
19/04/29 21:43:17.66 mVsN4is2F.net
なぜ、こんなアホなことになったのかは容易に想像できる。
このバカは自分と相手の主張の整合性や論理というものを考えずにその場で反論出来れば良いと不用意な発言をしたんだろう。
全くどうしようもないバカ者だ。
発言を続けていれば論理が無くても勝てると思ってるのだろうw

132:デフォルトの名無しさん
19/04/29 22:03:44.78 atpu4K080.net
痴呆症のうえに妄想まで出てきたか
末期症状だなw
１つだけお前のレスで正しいところがあるよ
> それどころか全ての議論は意味が無い。
「基地外との」って言う言葉を前置すればねw

133:デフォルトの名無しさん
19/04/29 22:35:55.60 KquSHPZdd.net
>>132
勝手に省略するなバカw
説得力が必要ないというならという前提がつくんだよ。
お前の主張によればという前提でも良い。
全ての議論は意味が無いというのはお前の主張が正しければだ。
バカ者がw

134:デフォルトの名無しさん
19/04/29 22:50:43.48 atpu4K080.net
意味のない議論（と本人は思ってる独り言）を延々と続ける痴呆老人w

135:デフォルトの名無しさん
19/04/29 23:07:30.74 KquSHPZdd.net
>>134
本来、何かを主張するということは、自らの説得力を持って相手に納得させる行為なんだよ。
ぐうの音も出ないというのは、相手の説得力に対して抗しきれずに納得させられたという状態だ。
お前は説得力が無くてもかまれないんだから、相手がどんなアホなことを言ってもぐうの音も出ないと表明してしまったわけだw

136:デフォルトの名無しさん
19/04/29 23:17:56.44 atpu4K080.net
あと念の為に言っとくけど、普段はこんなアホなことは言わんよ
「MSに確認」を執拗に要求するアホがいるから、人に要求するなら自分も根拠を示せというだけのこと
できない時点で単なるつぶやきでしかない

137:デフォルトの名無しさん
19/04/30 10:29:21.50 B8o2e8qC0.net
あると断定するよりないと断定するのは難しいよね
単に自分が見つけられなかっただけでは断言なんてできないし
 >>136
確認しなくても、ない根拠を示せば相手も黙るのでは

138:デフォルトの名無しさん
19/04/30 11:58:35.51 Cm5pFeJF0.net
まだやるの？
それとも別人？

139:デフォルトの名無しさん
19/04/30 15:31:13.13 GJKpnzP30.net
まだやるも何も完全に論理破綻してるけど自ら白旗挙げたことに気付いて無くて悔しいから、最後まで何か言ってれば負けたことにならないと信じてるアホがいるだけ。
MSに確認しなくても説得力ある話をすれば良かったのに、今となってはそれも手遅れ。
説得力が必要無いなんて、じゃお前は何でここに居るんだよwというくらいのアホ。

140:デフォルトの名無しさん
19/04/30 15:32:27.45 GJKpnzP30.net
>>138
前から、怪しい奴が横から沸いてたw
アホらしいから取り合わんけどね。

141:デフォルトの名無しさん
19/04/30 15:34:04.83 Op13jVvhx.net
別スレ立ててやれ

142:デフォルトの名無しさん
19/04/30 15:42:55.36 Cm5pFeJF0.net
>>139-140
>>134
>>141
前スレから粘着するぐらいだからもう無理でしょw

143:デフォルトの名無しさん
19/04/30 15:48:48.77 GJKpnzP30.net
>>142
論理無しでも最後まで口を出せば負けないと思ってるアホw

144:デフォルトの名無しさん
19/04/30 16:55:50.87 eh3I/jd8M.net
言いたいことは >>136に書いてある

145:デフォルトの名無しさん
19/04/30 19:10:51.36 S6hYz9760.net
よし、わかった。
ここをExcel VBAスレにするのは平成までにして、
令和からは、ドキッ!丸ごと水着女だらけの水泳大会スレにすれば、
すべて解決する。

146:デフォルトの名無しさん
19/04/30 19:18:15.59 R0S1ON6+M.net
ネーミングの昭和感

147:デフォルトの名無しさん
19/05/01 01:54:30.18 MPaYicsf0.net
なあもういい加減やめようぜ

148:デフォルトの名無しさん
19/05/01 08:45:56.07 R08QdVRL0.net
止めつつ上げるとかネタやん

149:デフォルトの名無しさん
19/05/01 13:34:20.87 XHmxZYyQ0.net
最初の質問者は問題解決したのかな？

150:デフォルトの名無しさん
19/05/01 19:19:03.05 xlz/SFXed.net
戯れ事を指摘したことの根拠は戯れ事を否定する根拠が無かったことなのにな。
何にも根拠が無かったら発言しなければ良かったのに。

151:デフォルトの名無しさん
19/05/03 19:41:21.80 o4X+Dt2l0.net
1 安倍晋三アベシンゾウ
2 麻生太郎
3 小泉純一郎
4 白石麻衣
・
・
・
全員にフリガナをふりたい
今手動で名前をカット→貼り付けでフリガナをだしてます
それを自動でやる方法
または違うやり方があれば教えてください
ち、ちなみにjkです！

152:デフォルトの名無しさん
19/05/03 19:52:09.99 7e1y8fXo0.net
「あべしんぞう」じゃなくて「あべしんさん」で変換されてたら
ふりがなもそうなるし並べ替えでも読みで並べ替えされるし

153:デフォルトの名無しさん
19/05/03 19:54:51.80 gB5i9xO70.net
>>151
SEXしよう！
・関数
=PHONETIC(A1)
・vba
Sub foo()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2).Value = Application.GetPhonetic(Cells(i, 1))
Next
End Sub
・その他
A1セルにカーソル併せてshit+alt+上でふりがなの設定が出来る

154:デフォルトの名無しさん
19/05/03 19:56:40.51 gB5i9xO70.net
書き忘れた
関数とｖｂａで挙動が変わる
関数は入力した時のふりがなデータを引っ張ってくる。漢字をコピペした場合、ふりがなデータが無い事がある
vbaはIMEのデータを引っ張ってくる。
どちらが良いかは無いが、基本的にはvbaの方が良い

次ページ