19/04/25 23:47:29.76 TOmG9Zzp0.net
>>998
>おっさん、それじゃ値が二つできてしまう
出来て良いんだよ。
どうせ2つあっても上の値しか拾わないし。
3:デフォルトの名無しさん
19/04/26 00:13:53.35 bx/nrM53a.net
まだやってるのか
4:デフォルトの名無しさん
19/04/26 00:22:08.10 KXEc/Aen0.net
番兵の方を拾った場合は？
5:デフォルトの名無しさん
19/04/26 10:15:59.90 P7S61/Hq0.net
usedrange.columns.count は多用しますが
これを列番号ではなく
アルファベットで(AX列、というように)
取得することはできますか？
6:デフォルトの名無しさん
19/04/26 10:30:14.79 P7S61/Hq0.net
>>5
あ、addressメソッドがありました。
自己解決しました。
7:デフォルトの名無しさん
19/04/26 18:56:37.31 udZssoTkd.net
よっぽど自己矛盾について触れて欲しく無かったようだな。
>>973で>>857はその後だと言ってるのに。
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の方が良い
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")はオブジェクトという事？
はなしがまとまってなくて、すみません。
187:デフォルトの名無しさん
19/05/10 19:27:02.31 ZL9lN1sfd.net
↑183が書き込みしました。
188:デフォルトの名無しさん
19/05/10 19:40:34.80 tGc5sWC60.net
Ｅｘｃｅｌのシート内部の表位置とかカラム位置とかデータ末尾とか特定するベストプラクティスってどんなんですか！
何十年前からある言語でこんだけ普及してるのにいまだに決まった答えがないとか
189:デフォルトの名無しさん
19/05/10 19:44:21.41 tfYAY6pzM.net
>>188
あのね、A1から使うのがExcelの正しい使い方なの
枠やらタイトルやら付けるのはバカジャップの間違った使い方なの
190:デフォルトの名無しさん
19/05/10 19:52:43.30 tGc5sWC60.net
一瞬で理解した
191:デフォルトの名無しさん
19/05/10 20:14:31.04 /nmPTcfU0.net
>>186
range("a1:b2")はオブジェクト。この中にプロパティとしてvalueやwidth、heightなどがある
もちろんrange("a1:b2").valueは文字列。
range("a1")に1が入っていて
range("a1")+2が3になるのは、range("a1:b2").valueが自動的に呼び出されて
range("a1").value+2になっているため
MSDNじっくり読んだほうがいいかもな
URLﾘﾝｸ(docs.microsoft.com)(object)
192:デフォルトの名無しさん
19/05/10 20:16:01.36 /nmPTcfU0.net
>>188
最強はこのページの
<S6> 書式付きセルを除外する （UsedRange）
URLﾘﾝｸ(www.niji.or.jp)
ケツから検索して見つかった奴が最後
193:デフォルトの名無しさん
19/05/10 21:34:51.98 ZL9lN1sfd.net
>>191
レスありがとうございます
誘導もありがとう！
じっくり読んでみます。
わからない所があったらまた聞くかもです。
中途半端な理解は嫌だし。さっかりと理解したいし。
194:デフォルトの名無しさん
19/05/10 22:33:38.03 Mw5h8bh90.net
プログラミングを理解するには、読むだけでなくとにかく実際に動かしてみることが大事
195:デフォルトの名無しさん
19/05/11 03:15:11.68 04x+b6lna.net
さっかりなw
196:デフォルトの名無しさん
19/05/11 08:20:45.16 0TYDlcnk0.net
>>194
そうですよね
やらないとわからないがほとんどです(T-T)
>>195
脳内変換ヨロシクです
197:デフォルトの名無しさん
19/05/11 19:56:32.57 C94O1bx/0.net
ADO使うと突然落ちるようになった。
何が原因J?
198:デフォルトの名無しさん
19/05/11 20:45:20.04 Y1ZlGg0p0.net
>>197
プロバイダはなに？
199:デフォルトの名無しさん
19/05/11 21:32:42.45 C94O1bx/0.net
>>198
Microsoft.ACE.OLEDB.12.0
PCによっては普通に実行できるので、原因がわからん。
200:デフォルトの名無しさん
19/05/11 21:36:03.53 pbKNvvnGa.net
質問です。
NumberFormatLocal = “yyyy””年””m””月””d””日””(aaa)”で書式の定義を変更しています。
NumberFormatLocal = ●“yyyy””年””m””月””d””日””(aaa)”
●の箇所に文字列を入れたいのですが”●”を入れるとエラーになります。解決方法はありますでしょうか？
201:デフォルトの名無しさん
19/05/11 21:40:16.93 C94O1bx/0.net
>>200
わからんけど、自動記録でやったものをコピペするとか。
202:デフォルトの名無しさん
19/05/11 21:46:39.70 VQwnSTgG0.net
マクロの記録取ってみたわ
ダブルコーテーションで括った中で、更にダブルコーテーションがいるっぽい
具体てt機にはこう
Selection.NumberFormatLocal = """あ""yyyy""年""m""月"""
203:デフォルトの名無しさん
19/05/11 21:46:58.83 pbKNvvnGa.net
>>201
解決しました。ありがとうございました。
204:デフォルトの名無しさん
19/05/12 02:13:17.21 anQ1bE+S0.net
もしかして、Access2016が入ってると、
Excel2013ではADO接続使えない?
Excel2013からAccess2016の参照で落ちるケースはググって見つけたけど、
ウチのはExcel2013からExcel2013で落ちる。
205:デフォルトの名無しさん
19/05/12 02:35:46.96 0u/cIV/f0.net
>>190
データとしてExcelを使う場合と、ドキュメントとしてExcelを使う場合とで、考え方がかわる。
206:デフォルトの名無しさん
19/05/12 08:45:07.80 OK9Y1i2P0.net
>>204
win下をdll検索して、複数見つかったらそれぞれ直接参照設定してみるとか
（単体で動いてるわけじゃない気もするから、期待薄かもしれんけど）
207:デフォルトの名無しさん
19/05/12 12:05:15.73 anQ1bE+S0.net
>>206
それもダメだったから、諦めてExcel2019買ったわ。
それだと普通に動いたから、
やっぱりExcel2013とAccess2016の組み合わせがダメだったみたい。
ありがとう。
208:デフォルトの名無しさん
19/05/12 16:17:36.32 UM6bazI+0.net
32ビット版だったとか？
209:デフォルトの名無しさん
19/05/12 17:19:48.24 anQ1bE+S0.net
>>208
Excel2013 ・・・ ADO接続OK
↓
Excel2013 + Access2016 ・・・ ここで突然落ちるようになる
↓
Excel2019 + Access2016 ・・・ 直った!
全部32bit。
本当は64bitにしたかったけど、ListViewとか、
一部使えなくなる機能があるので諦めた。
210:デフォルトの名無しさん
19/05/12 17:21:42.38 anQ1bE+S0.net
あ、Excel2013 + Access2016って、インストールの組み合わせ。
別に、Excel2013からAccess2016に接続しに行ったわけじゃない。
落ちたのは、Excel2013からExcel2013へのADO接続。
211:デフォルトの名無しさん
19/05/12 17:23:44.21 0u/cIV/f0.net
なんの話をしているのか他人にはさっぱりわからないw
212:デフォルトの名無しさん
19/05/12 18:10:56.69 w16fcO4J0.net
時刻がマイナスの場合
とは、if文でどうやってつくりますか？
213:デフォルトの名無しさん
19/05/12 18:20:18.19 O1RPDIWFM.net
>>212
マイナスの時刻など存在しない
If 1 = 2
214:デフォルトの名無しさん
19/05/12 18:23:52.94 w16fcO4J0.net
A－B＝C
時刻の差のCがマイナス表示されるセルを
if文で
00:00:00
に直したいです
215:デフォルトの名無しさん
19/05/12 18:30:53.16 O1RPDIWFM.net
>>214
=TEXT(MAX(0, C), "hh:mm:ss")
VBAは要らん
216:デフォルトの名無しさん
19/05/12 18:33:52.80 w16fcO4J0.net
セルの設定ですね。
ありがとうございます。
217:デフォルトの名無しさん
19/05/12 20:06:16.73 0u/cIV/f0.net
プログラミングの初歩は大事なんだと思ったよ。
ある値のときは00時00分00秒にするという分岐を思いつかないんだから。
218:デフォルトの名無しさん
19/05/12 20:51:34.11 JDMVXB4ua.net
まあMIN/MAXを使って値をキャップするのは正統なプログラミングでは非常によく使われる方法だけど、
事務屋さんには意外と思いつかないかもね
219:デフォルトの名無しさん
19/05/12 21:54:23.80 UM6bazI+0.net
普通に時刻どうしで比較できるから、3分前とかそういうことかと思ってた
220:デフォルトの名無しさん
19/05/12 22:49:25.28 0u/cIV/f0.net
>>210
Office製品は基本的にバージョン違いを混在させられるようにはできていない。
221:デフォルトの名無しさん
19/05/13 07:47:02.77 J0xiSM4lM.net
>>220
そんなことはなくて条件満たせば使えるよ
URLﾘﾝｸ(www.microsoft.com)
222:デフォルトの名無しさん
19/05/13 09:04:58.38 bJahx30bM.net
>>219
時間と時刻
223:デフォルトの名無しさん
19/05/13 09:19:29.85 OGTR1ISy0.net
その前にいきなり時刻とか言い出した辺りでダメダメ。
人間が時刻と思ってるだけの可能性がある。
セルの書式や変数の型を元に説明しないのは、人間の目線で時刻と言ってる証拠。
224:デフォルトの名無しさん
19/05/13 13:56:52.37 p6Zrf1zY0.net
シャープで囲んでる人はちょっと
225:デフォルトの名無しさん
19/05/13 14:34:08.69 /2MppI/1M.net
VBAでは時刻と時間を Timeでずっとやり繰りしてたのに、c#で TimeSpan発見したときは叫んだわ
226:デフォルトの名無しさん
19/05/13 16:36:40.35 N0Eopnbu0.net
え？エクセルをADOでデータベースみたいに扱うこともできるの?
227:デフォルトの名無しさん
19/05/13 17:03:08.67 P7TvqqIDM.net
>>226
ちゃんと形式を整えておけば単純なSELECTなら使える
WHEREが機能するだけでOKってことならまあまあかな
JOINとかは当てにならないような気がする
DELETE, INSERT, UPDATE はもっと当てにならない
228:デフォルトの名無しさん
19/05/13 19:21:33.24 t89inGVt0.net
あてにならないってなんやねん
229:デフォルトの名無しさん
19/05/13 20:44:43.21 /95lNMvTM.net
>>228
他人だけど、ExcelのSQL操作はおまけ機能だから、標準SQLに対応してないから、やってみないとわからない。
230:デフォルトの名無しさん
19/05/13 21:00:39.75 N0Eopnbu0.net
まぁできちゃったらアクセスの立場ないわな
231:デフォルトの名無しさん
19/05/13 21:02:14.05 icbU5YOt0.net
SQL自体もう色々派閥が分かれすぎて
232:デフォルトの名無しさん
19/05/13 21:06:25.95 adbFFiEz0.net
>>229
馬鹿は死ねや
Accessのエンジンと同じだろ
233:デフォルトの名無しさん
19/05/13 21:10:27.82 /95lNMvTM.net
>>232
バージョンを気にしてくださいw
234:デフォルトの名無しさん
19/05/13 22:16:41.75 ErXZ/V3c0.net
>>226
出来るよ。
普通はやらないだろうけど、会社のPCにAccessが入ってないとか、
Accessは入ってるけど、事務のおばちゃんがExcelにしがみついて、
意地でも離さないとか、そういう状況で使える。
>>227
JOINは普通に使える。
235:デフォルトの名無しさん
19/05/13 22:42:40.28 ATfYCMP60.net
>>234
そうか、JOINも普通にできるのか...
「Excelもデータベースとして有効に使えるよね」なんて方向に行って欲しくない、という願望が
俺の心の中にバイアスを生んだようだ
236:デフォルトの名無しさん
19/05/13 23:05:59.93 RqskJpspx.net
というかPowerQueryやDAXでデータベース的な使い方が出来てしまうからな今のExcelは
237:デフォルトの名無しさん
19/05/13 23:39:26.70 N0Eopnbu0.net
エクセルでできるってすごい！
そこで疑問に思ったんですが以下のVBA書いてみましたが
Dim adoCn As Object
Dim adoRs As Object
Dim strSQL As String
Dim DBpath As String
DBpath = ThisWorkbook.Path
Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DBpath & "\SampleData.xlsx;"←①
strSQL = "select A,B,C from シート名 order by A desc" ←②
adoRs.Open strSQL, adoCn
＊何か処理
adoRs.Close
adoCn.Close 'コネクションのクローズ
Set adoRs = Nothing 'オブジェクトの破棄
Set adoCn = Nothing
①について
プロバイダーとファイル指定の記述の仕方はあってますか？
②について
列の指定とfromの方法は？
教えてください<(_ _)>
238:デフォルトの名無しさん
19/05/13 23:43:46.08 4/CDP/BQ0.net
秀和システムでいいから、古本を買って読めよw
ちゃんとサンプルが書いてある。アマゾンの古本は激安だぞ。
239:デフォルトの名無しさん
19/05/13 23:45:48.17 N0Eopnbu0.net
エクセルをデータベースとして使う記述があるのがどの本なのかさっぱり・・・
できれば本教えてもらえませんか?
240:デフォルトの名無しさん
19/05/13 23:47:08.95 adbFFiEz0.net
>>233
馬鹿は死ね
241:デフォルトの名無しさん
19/05/13 23:49:20.76 4/CDP/BQ0.net
>>239
Google検索でもサンプルは山のようにあるぞ。
242:デフォルトの名無しさん
19/05/14 00:09:21.56 XEzOoRRL0.net
ちょっとググって見ます
243:デフォルトの名無しさん
19/05/14 00:15:14.20 a29jNOd40.net
>>237
何通りかあったと思うけど、
その書き方だと[Sheet1$]かな。
プロバイダーも、adoCn.Providerにも、adoCn.Openにも書ける。
ブック名をFromの後に書く方法もある。
組み合わせは忘れたけど、どこかで指定していれば、
別の部分では省略できる感じ。
244:デフォルトの名無しさん
19/05/14 05:07:41.34 XEzOoRRL0.net
>>243
なるほど、勉強になります
245:デフォルトの名無しさん
19/05/14 19:07:26.92 wEGsmpoqp.net
URLﾘﾝｸ(dotup.org)
東京・大阪・北海道の各出発時間・到着時間を黄色い部分に「sendkeysで」、「それぞれ東京・大阪・北海道の順序を守って」入力したいです
実際にsendkeysでキーを送るのはブラウザ上のフォームであり、東京の時刻入力→tabとenterをsendkeyしつつ次のページに移動→大阪を入力、という風に処理するため、順序等が変更できません
また入力するのが東京・大阪・北海道だけでないかもしれないので、記載がある行すべてというイメージでお願いします
excelスレでも質問してみてますが、vba専門スレがあることに気付かされたのでこちらでお世話になります
246:デフォルトの名無しさん
19/05/14 20:14:46.00 Bsz/IupB0.net
だから、Sendkeysはやめろって。
これはお手軽にその場だけデータを取りたい時なんかに使うけど、制御出来ないから普通は使うべきじゃない。
247:デフォルトの名無しさん
19/05/14 20:18:43.38 wEGsmpoqp.net
もちろんそうなんですが自分には IE操作は敷居が高くて、愚直も愚直にsendkeysしか手段が思いつかないもので・・何か代替案ございますか？
248:デフォルトの名無しさん
19/05/14 20:22:02.95 9TMbmfYm0.net
どう考えてもIE操作の方が敷居が低いんだが
249:デフォルトの名無しさん
19/05/14 20:23:00.65 9TMbmfYm0.net
inputに文字列入れるだけだろ？
ソース見てidだかclassだか取得してポイって入れるだけじゃん
250:デフォルトの名無しさん
19/05/14 20:25:50.88 wEGsmpoqp.net
それがよーわからんのです・・
とりあえずググってすぐ見つかるサイトで特に初心者にわかりやすい解説してるサイトでも教えていただけませんか？
251:デフォルトの名無しさん
19/05/14 21:33:16.75 wEGsmpoqp.net
IE操作で頑張ってみてるんですが、リンクオープンして開いた別窓を操作するにはまたhtmldocにobjIE.documentを代入して・・ってしないといけないんですか？
252:デフォルトの名無しさん
19/05/14 21:59:36.21 IyB4HHSk0.net
>>251
別窓にしちゃう（なっちゃう）とそのウィンドウを探して、html取ってくることが必要になるので、できるなら避ける。
IE VBA
でググれば、参考サイト出てくる。あとは応用しだい
IEでは F12で開くやつも有用
がんばれ
253:デフォルトの名無しさん
19/05/14 22:06:13.16 wEGsmpoqp.net
>>252
社内システムなので必ず別窓になっちゃう仕様です
htmlの取り方教えてもらえませんか？
254:デフォルトの名無しさん
19/05/14 22:31:09.98 a29jNOd40.net
>社内システムなので
多分、このスレ見てる全員ズコーだわ、そのオチ。
システム部門の人に聞いちゃダメなんかい。
255:デフォルトの名無しさん
19/05/14 22:36:33.89 s0Vi/y5R0.net
CreateObject("Shell.Application").Windows() から探す
256:デフォルトの名無しさん
19/05/16 11:39:56.68 a1IyAHl+r.net
excelマクロでのバージョン管理てどうすればいいん
言われるがままに集計マクロ作ったら担当者毎に持ってるマクロのバージョン違ってあの機能が無いとか特殊な状況でエラー出る→それ先月直しましたよ
が頻発してる
257:デフォルトの名無しさん
19/05/16 12:20:32.52 5BGNguvP0.net
>>256
サーバー上にマクロ専用のエクセルファイルを置いて、
個々に配っているファイルからはそのマクロを参照させる
258:デフォルトの名無しさん
19/05/16 12:51:40.47 YRbGgWK/M.net
>>257
基本それだが、ずっと掴んでるやつがいるとバグ修正や機能追加のときに困る
259:デフォルトの名無しさん
19/05/16 14:16:39.46 5BGNguvP0.net
>>258
読み取り専用にしてもダメか？
260:デフォルトの名無しさん
19/05/16 14:16:55.41 5BGNguvP0.net
もちろん自分が編集する時は読み取り専用解除ね
261:デフォルトの名無しさん
19/05/16 14:43:29.72 wWtnEH3A0.net
コード書く画面を
背景は黒に、文字は白に、する方法を教えれ
262:デフォルトの名無しさん
19/05/16 15:42:20.38 Z2BhGmok0.net
ツール -> オプション -> エディターの設定
263:デフォルトの名無しさん
19/05/16 16:12:18.52 BYfNVo3YM.net
>>256
OS起動したら、サーバからコピーしてくるバッチ等を走らせる
小さいならいちいちバージョン確認しなくてもよい
264:デフォルトの名無しさん
19/05/16 18:04:23.53 rNkkKl6PM.net
みんな一々シャットダウンするのか？
スケジュールでコピーだろ
265:デフォルトの名無しさん
19/05/16 18:58:39.63 5BGNguvP0.net
>>>261
これ
URLﾘﾝｸ(tonari-it.com)
ちなみに書くとこはVBEって言うから覚えておくと検索できて便利
266:デフォルトの名無しさん
19/05/16 19:18:23.52 UtWIeHx/p.net
マクロ終了時にマクロ開始から終了までにかかった時間が秒までメッセージボックスに表示するってできる？
267:デフォルトの名無しさん
19/05/16 19:18:36.52 rD+4K505M.net
>>264
個々人のローカルフォルダにxlam があってそれが定期的に書き換えられるって事？
他のブックがxlamを掴んでる最中でもできる？
268:デフォルトの名無しさん
19/05/16 19:23:31.84 UPwRXvuL0.net
>>266
できる
269:デフォルトの名無しさん
19/05/16 19:26:21.47 5BGNguvP0.net
>>266
楽勝
Sub foo()
開始 = Now
'処理
終了 = Now
MsgBox Format(終了 - 開始, "hh:mm:ss")
End Sub
270:デフォルトの名無しさん
19/05/16 19:26:44.10 5BGNguvP0.net
>>268
URL春だけでもいいから教えてあげたらｗ
271:デフォルトの名無しさん
19/05/16 19:31:25.53 UtWIeHx/p.net
>>268はなんとかookスレで最近流行りの流れだよw
>>269ありがとう！
272:デフォルトの名無しさん
19/05/16 20:10:17.30 rNkkKl6PM.net
>>267
掴んでたらスルー
273:デフォルトの名無しさん
19/05/16 22:17:19.76 aE3zz80C0.net
>>256
起動時に何らかのファイルを参照するようにしておいて、
参照出来たらそのままOK。
出来なかったら、新たにファイルをDLする仕組みにする。
で、更新させたい時は、わざと参照用ファイルを消しておく。
274:デフォルトの名無しさん
19/05/16 22:24:00.58 yzKWQsxd0.net
>>273
xlamを共有するならそこのWorkbook_Open にそういう処理を入れておけばいいでしょうね
275:デフォルトの名無しさん
19/05/16 23:04:51.54 kfbhC4dW0.net
>>256
最新バージョン書いたテキストかなんかを共有に置いといて、起動時に見に行ってそれより古かったら更新促す警告出すとか
276:デフォルトの名無しさん
19/05/17 02:52:09.97 gYF5enuVM.net
Excelの起動時、マクロを実行させる：Excel（エクセル）マクロ
URLﾘﾝｸ(www.excel.usefulhp.com)
で良いだろ
277:デフォルトの名無しさん
19/05/17 09:22:35.60 YDbG3YPmr.net
共有パス見て実行とか大変そう面倒そうて主観があったけども
Application.Run "共有のパス!マクロ名 "
の1行でいけちゃうもんなのか…？
とりあえず試してみる
すでに誰かが開いてる？とか参照できないときの対処も色々試してみるありがとう
278:デフォルトの名無しさん
19/05/17 09:26:03.52 PC2o5teB0.net
>>277
そっちは使わないかな
俺はボタンにマクロの場所を登録する
279:デフォルトの名無しさん
19/05/17 09:26:30.66 PC2o5teB0.net
なんか日本語変だ
まぁいいか
280:デフォルトの名無しさん
19/05/17 12:25:15.46 cM5KCNydp.net
ちょっと筋外れるかもしれないけどvbeに行間なく詰めて書いたコードの選択範囲に1行ずつ改行入れるいい方法ない？
281:デフォルトの名無しさん
19/05/17 12:28:45.29 gxvYGXpT0.net
そんなのできない。サクラエディタで置換して貼り付けろ
282:デフォルトの名無しさん
19/05/17 22:00:27.88 BHkVW2uG0.net
>>280
VBEを操作すればできると思う。面倒だけど
まあ>>281の方法が合理的だろうな
283:デフォルトの名無しさん
19/05/18 00:21:37.50 qrQ2t1Xp0.net
>>280
改行コードを改行コード+改行コードで置換
284:デフォルトの名無しさん
19/05/18 00:55:20.52 pDLl57eM0.net
コードウィンドウ内の改行はCRLFじゃなくてLFだった筈。
そんなに難しくない。
でもこれが動く設定はマクロウィルスも動くから危険だよ。
Sub test()
Dim strCode As String
Dim stRW As Long
Dim stCL As Long
Dim edRW As Long
Dim edCL As Long
With Application.VBE.ActiveCodePane
.GetSelection stRW, stCL, edRW, edCL
strCode = .CodeModule.Lines(stRW, edRW - stRW + 1)
.CodeModule.DeleteLines stRW, edRW - stRW + 1
.CodeModule.InsertLines stRW, Replace(strCode, vbLf, vbLf & vbLf)
End With
End Sub
285:デフォルトの名無しさん
19/05/18 19:27:39.15 4RzeW/b40.net
専用のメソッドがあるのが凄いわ。
何を想定して用意してあるんだろう?
プログラムがプログラムを書き直すAIにでも使うのか?
286:デフォルトの名無しさん
19/05/18 20:16:07.59 8gQadrhx0.net
Application.VBE.ActiveCodePane
こんなの合ったのか
PaneはPanelかと思ったら、ペインの事なのね
287:デフォルトの名無しさん
19/05/18 20:29:02.38 P5JmHxRDM.net
VBEを拡張するためのオブジェクト群が用意されてるんだよね
288:デフォルトの名無しさん
19/05/19 09:22:38.02 MCPGuHEx0.net
Excel4マクロは自己書き換え自由だったから
機能的に負けるわけにはいかなかったんじゃね？
289:デフォルトの名無しさん
19/05/19 11:43:42.11 1xMNIuy/x.net
配布済マクロの修正パッチとかで大量のファイルや行を一括修正したいときは便利
290:デフォルトの名無しさん
19/05/19 12:03:05.34 igxNvdy7a.net
単価の低そうな涙ぐましい仕事だな
291:デフォルトの名無しさん
19/05/19 12:39:30.70 gILK5dpZ0.net
マクロ4はできる人がいない＋やりたくないから単価超高いぞ
で、単価高くしても足が出る・・・
292:デフォルトの名無しさん
19/05/21 19:13:05.44 7gg6L6p3p.net
実行から終了まで数分かかるマクロを途中で止める方法ないですか？f4押したら「処理を止めました」のメッセージボックスとともに停止するとか。
293:デフォルトの名無しさん
19/05/21 19:31:11.94 OX+uPiO40.net
Break
ESC
294:デフォルトの名無しさん
19/05/21 19:37:07.71 K+4dE9j10.net
ループが長いならDoEvent入れておいて
msgbox "終了します"とendだけ書いたのを起動できるボタンどっかに置いとけばいい
295:284
19/05/21 20:04:23.19 MD1oUmkY0.net
ESCやBreakで止まるなら良いけど、それで止まらない処理ならウィンドウESC押しながらタスクバー上でマウスでウィンドウの切り替えをすると止まる。
どっかのブログで見て知ったけど役に立ってる。
296:デフォルトの名無しさん
19/05/21 21:15:28.57 QvaiZxJv0.net
こうする
URLﾘﾝｸ(youtu.be)
297:デフォルトの名無しさん
19/05/21 21:30:20.69 7gg6L6p3p.net
ほー
明日試してみます
298:デフォルトの名無しさん
19/05/21 22:08:13.75 R92gi7e40.net
2009/12/16に公開って何だよ。
20年くらい前に見たぞそれ。
299:デフォルトの名無しさん
19/05/22 06:58:44.20 SD95iW5CM.net
>>298
映像はどうみても２０年以上前だな
的確な対応で現在も使える
300:デフォルトの名無しさん
19/05/22 09:27:28.15 ztZYN21m0.net
セルの値を数式に代入って無理でしょうか？
たとえばA1セルに乱数が入ってた場合に
どっかのセルに =A2-乱数 という数式を代入したい感じです
301:デフォルトの名無しさん
19/05/22 09:41:17.90 5+y7OppMM.net
=A2-A1
302:デフォルトの名無しさん
19/05/22 09:43:43.65 ogyeLG/uM.net
演算あり値コピーの話？
303:デフォルトの名無しさん
19/05/22 09:52:11.18 AHnUJ8Jk0.net
いやセル番地じゃなくて値を数式に代入したい感じです
たとえばA1セルに2,134という数字が入ってた場合に
=A2-2,134 という数式をどっかのセルに代入
A1セルが387だとしたら
=A2-387
説明下手糞で申し訳ないです
304:デフォルトの名無しさん
19/05/22 09:54:20.78 hC9fKDDe0.net
>>300
書いている意味がよくわからんど
セルに式でも値でも代入できる
ただ、乱数は曲者で常に変わるから
もう少しやりたいことを具体的に書き込もう
305:デフォルトの名無しさん
19/05/22 10:00:56.85 hC9fKDDe0.net
>>303
乱数は曲者で
A1セルが387だとしたら
=A2-387
ほかのセルに「=A2-387」を入れた時点でA1セルは変わるから
もう少し何をしたいのか書くように
306:デフォルトの名無しさん
19/05/22 11:59:27.46 zi+TqRd2r.net
そもそも数式はスレ違いだろ
VBA関係ないならどっかエクセルの使い方の板かスレかさがせ
307:デフォルトの名無しさん
19/05/22 13:17:58.06 /GezpU1zp.net
>>305
A1セルの乱数結果が現時点で387だとしたら
変数(仮にrとする)に、387を格納して
ほかのセル(仮にB1とする)に"=A2-r(中身387)"を入力したいって事？
それなら確かに関数じゃできないよね
308:284
19/05/22 13:58:22.19 WDej9GuM0.net
>>303
Range("C3").Value="=A2-" & Range("A1").Value
じゃ駄目?
309:デフォルトの名無しさん
19/05/22 16:05:46.41 hC9fKDDe0.net
>>307
それに意味あると思えない、乱数なんてふつうは仕事に使わない
例えば、学校の先生あたりが、引き算足し算などの問題を自動的に作りたいとか
であれば、A列に乱数１の結果をB列に乱数２の結果を
C列に計算式を、D列に回答をで別シートなどで問題文を作る
このぐらいだな
310:デフォルトの名無しさん
19/05/22 18:12:45.70 j7jZt3jJM.net
説明下手糞ってレベルじゃねぇぞ…
311:デフォルトの名無しさん
19/05/22 18:48:51.39 RRuRLAJCM.net
>>309
ちょっとしたシミュレーションで使うかもしれない。（Excelでやるとは言ってない）
>>302じゃダメなの？
312:デフォルトの名無しさん
19/05/22 19:16:53.47 CZzIGWUTM.net
>>311
ちょっとしたシミュレーション・・無いだろ
この文書力だとセルに入れたい式って
計算式の文字列かもしれん
313:デフォルトの名無しさん
19/05/22 22:59:24.50 bxcYYOqD0.net
もうあれだ。
ここは、何の用途に使うのか当たられたやつが優勝スレにしよう。
314:デフォルトの名無しさん
19/05/22 23:13:17.16 K7mhmRd90.net
完全乱数を使って円周率の計算をする
315:デフォルトの名無しさん
19/05/23 07:43:57.81 mLR+BkfhM.net
別に用途は何でもいいさ
興味ゼロってわけじゃないけど
316:デフォルトの名無しさん
19/05/23 10:22:05.81 WDXUv9KM0.net
こっちで作って欲しいと言われたものをつくってると
そんなもの作られたら困る
楽になって人が減らされると困る、と古参がちくちく
この古参、自分の作業を楽にしたい時には
これがもう偉そうな態度で、「作らせてやる」とでも言わんばかりに頼んでくる
どうしたいんよもう
っていうことないっすか
もう面倒なんで職場で作るのやめようかな
すんません落書きしちゃって
317:デフォルトの名無しさん
19/05/23 10:56:07.55 cSCM+dO10.net
厚労省で配布されている
URLﾘﾝｸ(www.mhlw.go.jp)
にある
URLﾘﾝｸ(www.mhlw.go.jp)
なんだけど、内容は単純で
1件いくらの検査があって、件数を入力すれば請求書が作成されるというもの
1シート＝1自治体なので、複数の自治体へ請求する場合は、ユーザーがシートコピーして作る
VBAで各シートを集計して総括表に転写する
なんだけど、VBAみて
変数が多すぎてコーディング中に間違えても気づかんだろってのと
引っ張ってくるセルをConstで決め打ちしてるけど
これ後のメンテナンスでセル一個挿入することになったら修正大変やん と思いました。
というか、エラーメッセージの所で間違えて
行を表示すべきところを列表示しているけど
これこそ変数多すぎて分かりにくくした事が原因だと思います。
じゃあどうする、と言われたらみなさんならどうしますか？
同じ形の複数の2次元の表を合計するだけなんだから
スタート地点とゴール地点決めてやって
後はずらしていけばいいやんと思うのですが
後、小数とか負の値ぶっこんでも動作するのはモヤモヤするんだけど
まぁこの辺やりだしたらキリがないので使わせる相手によってどうするかは変えますかね
318:デフォルトの名無しさん
19/05/23 11:43:15.47 mLR+BkfhM.net
>>316
義務教育でプログラミングを扱うようになって、自分の仕事くらい自分でプログラミングできないようでは大変な事になるよ、
と教えてやればいい。
もしかしたら「手下にプログラミングさせればいい」と勘違いするかも知れないが、
それでは通用しないよと言ってやろう。
こういう話もあるし
URLﾘﾝｸ(lite.blogos.com)
319:デフォルトの名無しさん
19/05/23 16:11:36.77 hFcQqqxb0.net
>>316
ただ単純に業務全体を見ずに作るから役に立たないんだよ
業務に対して目的と効果を文書ではっきり示せば古参の意見を聞かなくていい
320:デフォルトの名無しさん
19/05/23 16:13:59.49 X/3FpVKz0.net
>>316
その古参の上司に報告しろ
321:デフォルトの名無しさん
19/05/23 16:14:38.98 hFcQqqxb0.net
>>317
すまん、リンク先を読む気もしない