Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

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の方が良い

155:デフォルトの名無しさん
19/05/03 20:52:09.59 o4X+Dt2l0.net
神様ありがとう！！
やっぱりここのおじさんたち凄い
 >>152
それはあきらめてるw

156:デフォルトの名無しさん
19/05/04 06:46:34.61 TSubnBAw0.net
おばさんもいるよ！

157:デフォルトの名無しさん
19/05/04 10:24:42.71 4Z9Ig80ax.net
すげー加齢臭するなこのスレ

158:デフォルトの名無しさん
19/05/04 10:33:10.59 qNitGapX0.net
平均30-40ぐらいじゃないか。余裕で50代もいると思う

159:デフォルトの名無しさん
19/05/04 13:15:20.53 mcZWq4mnM.net
5chとしては普通でしょ

160:デフォルトの名無しさん
19/05/04 14:27:39.19 eVIwB2YR0.net
むしろ50代とかの方が多いんじゃね？

161:デフォルトの名無しさん
19/05/05 01:42:39.48 PgstIp0W0.net
windows3.1時代には既に有ったからね
dos版にもvbaって有ったの?
流石にそこまでは知らないんだけど

162:デフォルトの名無しさん
19/05/05 07:29:37.96 25zG6vKA0.net
>>161
> dos版にもvbaって有ったの?
ないでしょ
VBAはExcel 5.0からでそのバージョンにDOSはなかったはず

163:デフォルトの名無しさん
19/05/05 20:27:43.58 BF8MV8/50.net
指定する番号の行に
行を新規に追加するには
どう記載すれば、良いですか？

164:デフォルトの名無しさん
19/05/05 20:41:12.12 XON7SXZQr.net
row(n).insert
nは数値

165:デフォルトの名無しさん
19/05/05 20:42:27.10 AcwGW1cm0.net
>>163
Rows(123).Insert

166:デフォルトの名無しさん
19/05/05 20:45:05.57 XON7SXZQr.net
sが抜けてましたね
すまんかった

167:デフォルトの名無しさん
19/05/05 20:45:39.14 IK0uVtFC0.net
Dim i As Integer
i = InputBox("数字を入力してください")
Rows(i).Insert Shift:=xlDown

168:デフォルトの名無しさん
19/05/05 21:40:51.68 BF8MV8/50.net
皆さん、ありがとう
試して報告させていただきます。

169:デフォルトの名無しさん
19/05/05 21:45:41.48 BF8MV8/50.net
>>164
nをfor next
で指定しても、動きますか？
エラーとなり、理由がわからず２日ここで止まってます。

170:デフォルトの名無しさん
19/05/05 22:22:12.93 jSkSyCW+d.net
コードも無いしエラーメッセ－ジも無いからエラーはよく分からんが、気になる点を1つ。
n行目に挿入されると、その行は何行目になるのかな?

171:デフォルトの名無しさん
19/05/05 22:29:34.83 pOOjaEue0.net
>>169
具体的に何行目に追加したいか書いたほうが良いと思う
一行だけじゃないのか

172:デフォルトの名無しさん
19/05/05 22:52:12.35 AcwGW1cm0.net
>>169
たぶん For に Step - が必要な案件と見た

173:デフォルトの名無しさん
19/05/05 22:56:04.02 AcwGW1cm0.net
>>169
いっぺんに何行も挿入したいときは
Rows("6:15").Insert
この例では5行と6行の間に10行いっぺんに入れて、元の6行が16行に移動してる

174:デフォルトの名無しさん
19/05/05 22:59:30.01 oCrXkNbC0.net
>>172
初めて挿入やった時に上から順に挿入してってぐっちゃぐちゃになったわｗ

175:デフォルトの名無しさん
19/05/05 23:12:10.31 BF8MV8/50.net
ありがとう、皆さん。お言葉に甘えて
Sub 行の挿入()
dim k As Integer
dim i As Integer
dim j As Integer
dim h As Integer
Set obj基本データ = Thisworkbook.Worksheets("基本データ")
h = 7
Do while obj基本データ.Cells(4,h).Value〈〉""
For i = 1 To obj基本データ.Cells(5,
h).End(xlDown).Row
k = obj基本データ.Cells(4,h).Value
j = obj基本データ.Cells(i+4,h).Value
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
next i
h = h + 1
Loop
End Sub
回すと、
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
のところで、実行時エラー'1004'
となります。

176:デフォルトの名無しさん
19/05/05 23:52:28.10 pOOjaEue0.net
>>175
構文はあってるけど、存在しないセルを参照している
多分jに0か、kに-2が入ってるとかそんな感じ

177:デフォルトの名無しさん
19/05/05 23:53:17.22 pOOjaEue0.net
変数の中身を確認して
確認方法はウォッチ式、イミディエイトウィンドウなどいろいろあるけど
msgbox j
msgbox k
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
でも良い

178:デフォルトの名無しさん
19/05/06 00:20:05.87 50ISOOVP0.net
>>176
遅くにありがとうございました。
ご指摘のとおり、iに0が入るため、エラーになっていることがわかりました。
後は、空白セルを0と読み取らせない方法を調べてみます。
丸二日、エラーの理由がわからずに悩んでいました。
見ず知らずの方に助けてもらえて感謝です。ありがとうございました。

179:デフォルトの名無しさん
19/05/06 00:33:06.01 50ISOOVP0.net
>>178
j
でした。訂正します。

180:デフォルトの名無しさん
19/05/06 00:51:29.40 50ISOOVP0.net
>>176
IF j=0 then GoTo L1
を追加して、
エラーになるところを飛ばして解決しました。
ありがとうございました。

181:デフォルトの名無しさん
19/05/06 10:29:14.43 ZwYgATzZd.net
>>178
初心者は、問題がどこにあるのかに勘所が無いからこういう悩んで時間を使う経験をたくさんすると良い。
慣れれば5秒で気付く。
あと、Do～Loopはいらない気がする。
hの代わりにiを使ってどうにかできると思うね。

182:デフォルトの名無しさん
19/05/06 10:30:20.40 ZwYgATzZd.net
>>178
間違えた。
hは列方向か。

183:デフォルトの名無しさん
19/05/10 16:54:45.46 SsAAf7AE0.net
VBA勉強中の者です。
Setステートメントを勉強しているのですが、オブジェクト型についてお聞きしたいです。RangeオブジェクトとかWorksheetオブジェクトなど、いろんなサイトなど見ても使いどころがよくつかめてないです。
どんなときに使うのか、教えてもらえるとありがたいです。

184:デフォルトの名無しさん
19/05/10 16:57:57.46 /nmPTcfU0.net
>>183
数値と文字列以外は全部オブジェクト

185:デフォルトの名無しさん
19/05/10 17:04:22.66 /nmPTcfU0.net
どんなときに使うのか、は一言で言うのは難しいが、基本的には保守のため
・何の変数か分からない時に名前をつける
range("a1:b2")だと何の範囲かはワークシート見ないと分からない
set 転記元 = range("a1:b2")
とすることで、そのrangeが何か一発で分かるようになる
ちなみに「何をするか」ではなく「何が入ってるか」を基準に命名すると後で分かりやすい
「何をするか」はfunctionの名前がそうなっているはずだ
・ある変数が2回以上登場する場合、最初に変数に入れておけばそのコードを変更する時に一回で済む
まぁこれは説明せんでもええわな
・保守しないならめんどくさいだけじゃん
そう、合っている
ちゃんと保守できるように書いて置いた方が、長い目で見ると楽なんだ。プラマイプラス

186:デフォルトの名無しさん
19/05/10 19:25:57.30 ZL9lN1sfd.net
>>184、185
レスありがとうございます。
185さん
感覚ですが、すごく単純な感じがします。そんな認識でよいです？
ただ184さんのいう
数値と文字列以外は全部オブジェクト
これがひっかかるんです。
range("a1:b2")がオブジェクトという認識でよい？
そのなかに文字があった場合は？
文字列じゃない？と思ってしまうが、それは違うんですよね。
仮に
range("b2").valueだった場合は値で、range("a1:b2")はオブジェクトという事？
はなしがまとまってなくて、すみません。

次ページ