- 1 名前：デフォルトの名無しさん mailto:sage [2019/04/25(木) 23:41:03.61 ID:rni/4bMj0.net]
- !extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part60
https://mevius.5ch.net/test/read.cgi/tech/1552736349/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
- 120 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 17:55:06.77 ID:TTZW3SJd0.net]
- >>119
逆だろ
敷居が低すぎて誰でも使えるから荒れる
- 121 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 18:58:21.22 ID:leSwRXLe0.net]
- 何で最新版の2019でも使えるのにオワコンなの?
- 122 名前：デフォルトの名無しさん [2019/04/29(月) 19:23:57.77 ID:tJZYnaZY0.net]
- 当時はすぐにVBA.NETがでると思ったんだけどなぁ
- 123 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 19:41:52.72 ID:lSCWRZH10.net]
- >>89
取り出し方を間違ってるかTextfileの中身が実際に足りてないかのどっちか
- 124 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 20:01:58.83 ID:b0/Q+dtd0.net]
- >>92
エラーになったTextfileは確認しました。
もちろん配列格納時に足りなくまります。
>>106
print #fileNo,txtA.Text ＆vbTab;
print #fileNo,txtB.Text ＆vbTab;
・
・
print #fileNo,txtG.Text;
今コードないからあれですけど、こんな感じだったと思うんですけど何か起きそうですかね？
- 125 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 20:17:29.34 ID:atpu4K080.net]
- >>124
> エラーになったTextfileは確認しました。
> もちろん配列格納時に足りなくまります。
だ・か・ら、Textfileの中身はどうなってるんだよ…
- 126 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 20:37:36.75 ID:8I96H2WZF.net]
- >>118
お前は既に敗北宣言してるんだから今さら何言っても無駄だw
説得力が無くて良いと言うのは敗北宣言に等しい。
俺がお前に対して何も説得力が無くても良いと言ってしまったんだからなw
- 127 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 20:53:34.07 ID:atpu4K080.net]
- また痴呆症の再発かよw
>>95
説得力が無い？
> 説得力の有無なんて関係ないだろ
> お前が根拠を示せてないと言う「事実」があるだけ
って書いてあるんだが、ひょっとして違いがわかってないのか？w
- 128 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 21:29:45.18 ID:KquSHPZdd.net]
- >>127
今さら、ひっくり返そうとしても無駄w
お前の言によれば俺の主張に説得力は必要無いということだからな。
お前は無条件に俺の主張に同意すると言ったに等しいw
- 129 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 21:31:38.71 ID:KquSHPZdd.net]
- >>127
お前の言う「事実」なんて無いのも確定だw
「事実」なんて無いという俺の主張に説得力は必要無いとお前が言ったんだからなw
- 130 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 21:34:44.44 ID:5oVU+kiox.net]
- アスペ vs アスペ
ファイッ！
- 131 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 21:43:17.66 ID:mVsN4is2F.net]
- なぜ、こんなアホなことになったのかは容易に想像できる。
このバカは自分と相手の主張の整合性や論理というものを考えずにその場で反論出来れば良いと不用意な発言をしたんだろう。
全くどうしようもないバカ者だ。
発言を続けていれば論理が無くても勝てると思ってるのだろうw
- 132 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 22:03:44.78 ID:atpu4K080.net]
- 痴呆症のうえに妄想まで出てきたか
末期症状だなw
１つだけお前のレスで正しいところがあるよ
> それどころか全ての議論は意味が無い。
「基地外との」って言う言葉を前置すればねw
- 133 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 22:35:55.60 ID:KquSHPZdd.net]
- >>132
勝手に省略するなバカw
説得力が必要ないというならという前提がつくんだよ。
お前の主張によればという前提でも良い。
全ての議論は意味が無いというのはお前の主張が正しければだ。
バカ者がw
- 134 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 22:50:43.48 ID:atpu4K080.net]
- 意味のない議論（と本人は思ってる独り言）を延々と続ける痴呆老人w
- 135 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 23:07:30.74 ID:KquSHPZdd.net]
- >>134
本来、何かを主張するということは、自らの説得力を持って相手に納得させる行為なんだよ。
ぐうの音も出ないというのは、相手の説得力に対して抗しきれずに納得させられたという状態だ。
お前は説得力が無くてもかまれないんだから、相手がどんなアホなことを言ってもぐうの音も出ないと表明してしまったわけだw
- 136 名前：デフォルトの名無しさん mailto:sage [2019/04/29(月) 23:17:56.44 ID:atpu4K080.net]
- あと念の為に言っとくけど、普段はこんなアホなことは言わんよ
「MSに確認」を執拗に要求するアホがいるから、人に要求するなら自分も根拠を示せというだけのこと
できない時点で単なるつぶやきでしかない
- 137 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 10:29:21.50 ID:B8o2e8qC0.net]
- あると断定するよりないと断定するのは難しいよね
単に自分が見つけられなかっただけでは断言なんてできないし
>>136
確認しなくても、ない根拠を示せば相手も黙るのでは
- 138 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 11:58:35.51 ID:Cm5pFeJF0.net]
- まだやるの？
それとも別人？
- 139 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 15:31:13.13 ID:GJKpnzP30.net]
- まだやるも何も完全に論理破綻してるけど自ら白旗挙げたことに気付いて無くて悔しいから、最後まで何か言ってれば負けたことにならないと信じてるアホがいるだけ。
MSに確認しなくても説得力ある話をすれば良かったのに、今となってはそれも手遅れ。
説得力が必要無いなんて、じゃお前は何でここに居るんだよwというくらいのアホ。
- 140 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 15:32:27.45 ID:GJKpnzP30.net]
- >>138
前から、怪しい奴が横から沸いてたw
アホらしいから取り合わんけどね。
- 141 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 15:34:04.83 ID:Op13jVvhx.net]
- 別スレ立ててやれ
- 142 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 15:42:55.36 ID:Cm5pFeJF0.net]
- >>139-140
>>134
>>141
前スレから粘着するぐらいだからもう無理でしょw
- 143 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 15:48:48.77 ID:GJKpnzP30.net]
- >>142
論理無しでも最後まで口を出せば負けないと思ってるアホw
- 144 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 16:55:50.87 ID:eh3I/jd8M.net]
- 言いたいことは>>136に書いてある
- 145 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 19:10:51.36 ID:S6hYz9760.net]
- よし、わかった。
ここをExcel VBAスレにするのは平成までにして、
令和からは、ドキッ!丸ごと水着女だらけの水泳大会スレにすれば、
すべて解決する。
- 146 名前：デフォルトの名無しさん mailto:sage [2019/04/30(火) 19:18:15.59 ID:R0S1ON6+M.net]
- ネーミングの昭和感
- 147 名前：デフォルトの名無しさん [2019/05/01(水) 01:54:30.18 ID:MPaYicsf0.net]
- なあもういい加減やめようぜ
- 148 名前：デフォルトの名無しさん mailto:sage [2019/05/01(水) 08:45:56.07 ID:R08QdVRL0.net]
- 止めつつ上げるとかネタやん
- 149 名前：デフォルトの名無しさん mailto:sage [2019/05/01(水) 13:34:20.87 ID:XHmxZYyQ0.net]
- 最初の質問者は問題解決したのかな？
- 150 名前：デフォルトの名無しさん mailto:sage [2019/05/01(水) 19:19:03.05 ID:xlz/SFXed.net]
- 戯れ事を指摘したことの根拠は戯れ事を否定する根拠が無かったことなのにな。
何にも根拠が無かったら発言しなければ良かったのに。
- 151 名前：デフォルトの名無しさん mailto:sage [2019/05/03(金) 19:41:21.80 ID:o4X+Dt2l0.net]
- 1 安倍晋三 アベシンゾウ
2 麻生太郎
3 小泉純一郎
4 白石麻衣
・
・
・
全員にフリガナをふりたい
今手動で名前をカット→貼り付けでフリガナをだしてます
それを自動でやる方法
または違うやり方があれば教えてください
ち、ちなみにjkです！
- 152 名前：デフォルトの名無しさん mailto:sage [2019/05/03(金) 19:52:09.99 ID:7e1y8fXo0.net]
- 「あべ しんぞう」じゃなくて「あべ しん さん」で変換されてたら
ふりがなもそうなるし並べ替えでも読みで並べ替えされるし
- 153 名前：デフォルトの名無しさん mailto:sage [2019/05/03(金) 19:54:51.80 ID: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 名前：デフォルトの名無しさん mailto:sage [2019/05/03(金) 19:56:40.51 ID:gB5i9xO70.net]
- 書き忘れた
関数とｖｂａで挙動が変わる
関数は入力した時のふりがなデータを引っ張ってくる。漢字をコピペした場合、ふりがなデータが無い事がある
vbaはIMEのデータを引っ張ってくる。
どちらが良いかは無いが、基本的にはvbaの方が良い
- 155 名前：デフォルトの名無しさん mailto:sage [2019/05/03(金) 20:52:09.59 ID:o4X+Dt2l0.net]
- 神様ありがとう！！
やっぱりここのおじさんたち凄い
>>152
それはあきらめてるw
- 156 名前：デフォルトの名無しさん mailto:sage [2019/05/04(土) 06:46:34.61 ID:TSubnBAw0.net]
- おばさんもいるよ！
- 157 名前：デフォルトの名無しさん mailto:sage [2019/05/04(土) 10:24:42.71 ID:4Z9Ig80ax.net]
- すげー加齢臭するなこのスレ
- 158 名前：デフォルトの名無しさん mailto:sage [2019/05/04(土) 10:33:10.59 ID:qNitGapX0.net]
- 平均30-40ぐらいじゃないか。余裕で50代もいると思う
- 159 名前：デフォルトの名無しさん mailto:sage [2019/05/04(土) 13:15:20.53 ID:mcZWq4mnM.net]
- 5chとしては普通でしょ
- 160 名前：デフォルトの名無しさん mailto:sage [2019/05/04(土) 14:27:39.19 ID:eVIwB2YR0.net]
- むしろ50代とかの方が多いんじゃね？
- 161 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 01:42:39.48 ID:PgstIp0W0.net]
- windows3.1時代には既に有ったからね
dos版にもvbaって有ったの?
流石にそこまでは知らないんだけど
- 162 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 07:29:37.96 ID:25zG6vKA0.net]
- >>161
> dos版にもvbaって有ったの?
ないでしょ
VBAはExcel 5.0からでそのバージョンにDOSはなかったはず
- 163 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 20:27:43.58 ID:BF8MV8/50.net]
- 指定する番号の行に
行を新規に追加するには
どう記載すれば、良いですか？
- 164 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 20:41:12.12 ID:XON7SXZQr.net]
- row(n).insert
nは数値
- 165 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 20:42:27.10 ID:AcwGW1cm0.net]
- >>163
Rows(123).Insert
- 166 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 20:45:05.57 ID:XON7SXZQr.net]
- sが抜けてましたね
すまんかった
- 167 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 20:45:39.14 ID:IK0uVtFC0.net]
- Dim i As Integer
i = InputBox("数字を入力してください")
Rows(i).Insert Shift:=xlDown
- 168 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 21:40:51.68 ID:BF8MV8/50.net]
- 皆さん、ありがとう
試して報告させていただきます。
- 169 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 21:45:41.48 ID:BF8MV8/50.net]
- >>164
nをfor next
で指定しても、動きますか？
エラーとなり、理由がわからず２日ここで止まってます。
- 170 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 22:22:12.93 ID:jSkSyCW+d.net]
- コードも無いしエラーメッセ−ジも無いからエラーはよく分からんが、気になる点を1つ。
n行目に挿入されると、その行は何行目になるのかな?
- 171 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 22:29:34.83 ID:pOOjaEue0.net]
- >>169
具体的に何行目に追加したいか書いたほうが良いと思う
一行だけじゃないのか
- 172 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 22:52:12.35 ID:AcwGW1cm0.net]
- >>169
たぶん For に Step - が必要な案件と見た
- 173 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 22:56:04.02 ID:AcwGW1cm0.net]
- >>169
いっぺんに何行も挿入したいときは
Rows("6:15").Insert
この例では5行と6行の間に10行いっぺんに入れて、元の6行が16行に移動してる
- 174 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 22:59:30.01 ID:oCrXkNbC0.net]
- >>172
初めて挿入やった時に上から順に挿入してってぐっちゃぐちゃになったわｗ
- 175 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 23:12:10.31 ID: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 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 23:52:28.10 ID:pOOjaEue0.net]
- >>175
構文はあってるけど、存在しないセルを参照している
多分jに0か、kに-2が入ってるとかそんな感じ
- 177 名前：デフォルトの名無しさん mailto:sage [2019/05/05(日) 23:53:17.22 ID:pOOjaEue0.net]
- 変数の中身を確認して
確認方法はウォッチ式、イミディエイトウィンドウなどいろいろあるけど
msgbox j
msgbox k
ThisWorkbook.Worksheets(k+2).Rows(j).Insert
でも良い
- 178 名前：デフォルトの名無しさん mailto:sage [2019/05/06(月) 00:20:05.87 ID:50ISOOVP0.net]
- >>176
遅くにありがとうございました。
ご指摘のとおり、iに0が入るため、エラーになっていることがわかりました。
後は、空白セルを0と読み取らせない方法を調べてみます。
丸二日、エラーの理由がわからずに悩んでいました。
見ず知らずの方に助けてもらえて感謝です。ありがとうございました。
- 179 名前：デフォルトの名無しさん mailto:sage [2019/05/06(月) 00:33:06.01 ID:50ISOOVP0.net]
- >>178
j
でした。訂正します。
- 180 名前：デフォルトの名無しさん mailto:sage [2019/05/06(月) 00:51:29.40 ID:50ISOOVP0.net]
- >>176
IF j=0 then GoTo L1
を追加して、
エラーになるところを飛ばして解決しました。
ありがとうございました。
- 181 名前：デフォルトの名無しさん mailto:sage [2019/05/06(月) 10:29:14.43 ID:ZwYgATzZd.net]
- >>178
初心者は、問題がどこにあるのかに勘所が無いからこういう悩んで時間を使う経験をたくさんすると良い。
慣れれば5秒で気付く。
あと、Do〜Loopはいらない気がする。
hの代わりにiを使ってどうにかできると思うね。
- 182 名前：デフォルトの名無しさん mailto:sage [2019/05/06(月) 10:30:20.40 ID:ZwYgATzZd.net]
- >>178
間違えた。
hは列方向か。
- 183 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 16:54:45.46 ID:SsAAf7AE0.net]
- VBA勉強中の者です。
Setステートメントを勉強しているのですが、オブジェクト型についてお聞きしたいです。RangeオブジェクトとかWorksheetオブジェクトなど、いろんなサイトなど見ても使いどころがよくつかめてないです。
どんなときに使うのか、教えてもらえるとありがたいです。
- 184 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 16:57:57.46 ID:/nmPTcfU0.net]
- >>183
数値と文字列以外は全部オブジェクト
- 185 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 17:04:22.66 ID:/nmPTcfU0.net]
- どんなときに使うのか、は一言で言うのは難しいが、基本的には保守のため
・何の変数か分からない時に名前をつける
range("a1:b2")だと何の範囲かはワークシート見ないと分からない
set 転記元 = range("a1:b2")
とすることで、そのrangeが何か一発で分かるようになる
ちなみに「何をするか」ではなく「何が入ってるか」を基準に命名すると後で分かりやすい
「何をするか」はfunctionの名前がそうなっているはずだ
・ある変数が2回以上登場する場合、最初に変数に入れておけばそのコードを変更する時に一回で済む
まぁこれは説明せんでもええわな
・保守しないならめんどくさいだけじゃん
そう、合っている
ちゃんと保守できるように書いて置いた方が、長い目で見ると楽なんだ。プラマイプラス
- 186 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 19:25:57.30 ID:ZL9lN1sfd.net]
- >>184、185
レスありがとうございます。
185さん
感覚ですが、すごく単純な感じがします。そんな認識でよいです？
ただ184さんのいう
数値と文字列以外は全部オブジェクト
これがひっかかるんです。
range("a1:b2")がオブジェクトという認識でよい？
そのなかに文字があった場合は？
文字列じゃない？と思ってしまうが、それは違うんですよね。
仮に
range("b2").valueだった場合は値で、range("a1:b2")はオブジェクトという事？
はなしがまとまってなくて、すみません。
- 187 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 19:27:02.31 ID:ZL9lN1sfd.net]
- ↑183が書き込みしました。
- 188 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 19:40:34.80 ID:tGc5sWC60.net]
- Ｅｘｃｅｌのシート内部の表位置とかカラム位置とかデータ末尾とか特定するベストプラクティスってどんなんですか！
何十年前からある言語でこんだけ普及してるのにいまだに決まった答えがないとか
- 189 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 19:44:21.41 ID:tfYAY6pzM.net]
- >>188
あのね、A1から使うのがExcelの正しい使い方なの
枠やらタイトルやら付けるのはバカジャップの間違った使い方なの
- 190 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 19:52:43.30 ID:tGc5sWC60.net]
- 一瞬で理解した
- 191 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 20:14:31.04 ID:/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じっくり読んだほうがいいかもな
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range(object)
- 192 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 20:16:01.36 ID:/nmPTcfU0.net]
- >>188
最強はこのページの
<S6> 書式付きセルを除外する （UsedRange）
www.niji.or.jp/home/toru/notes/8.html
ケツから検索して見つかった奴が最後
- 193 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 21:34:51.98 ID:ZL9lN1sfd.net]
- >>191
レスありがとうございます
誘導もありがとう！
じっくり読んでみます。
わからない所があったらまた聞くかもです。
中途半端な理解は嫌だし。さっかりと理解したいし。
- 194 名前：デフォルトの名無しさん mailto:sage [2019/05/10(金) 22:33:38.03 ID:Mw5h8bh90.net]
- プログラミングを理解するには、読むだけでなくとにかく実際に動かしてみることが大事
- 195 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 03:15:11.68 ID:04x+b6lna.net]
- さっかりなw
- 196 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 08:20:45.16 ID:0TYDlcnk0.net]
- >>194
そうですよね
やらないとわからないがほとんどです(T-T)
>>195
脳内変換ヨロシクです
- 197 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 19:56:32.57 ID:C94O1bx/0.net]
- ADO使うと突然落ちるようになった。
何が原因J?
- 198 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 20:45:20.04 ID:Y1ZlGg0p0.net]
- >>197
プロバイダはなに？
- 199 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 21:32:42.45 ID:C94O1bx/0.net]
- >>198
Microsoft.ACE.OLEDB.12.0
PCによっては普通に実行できるので、原因がわからん。
- 200 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 21:36:03.53 ID:pbKNvvnGa.net]
- 質問です。
NumberFormatLocal = “yyyy””年””m””月””d””日””(aaa)”で書式の定義を変更しています。
NumberFormatLocal = ●“yyyy””年””m””月””d””日””(aaa)”
●の箇所に文字列を入れたいのですが”●”を入れるとエラーになります。解決方法はありますでしょうか？
- 201 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 21:40:16.93 ID:C94O1bx/0.net]
- >>200
わからんけど、自動記録でやったものをコピペするとか。
- 202 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 21:46:39.70 ID:VQwnSTgG0.net]
- マクロの記録取ってみたわ
ダブルコーテーションで括った中で、更にダブルコーテーションがいるっぽい
具体てt機にはこう
Selection.NumberFormatLocal = """あ""yyyy""年""m""月"""
- 203 名前：デフォルトの名無しさん mailto:sage [2019/05/11(土) 21:46:58.83 ID:pbKNvvnGa.net]
- >>201
解決しました。ありがとうございました。
- 204 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 02:13:17.21 ID:anQ1bE+S0.net]
- もしかして、Access2016が入ってると、
Excel2013ではADO接続使えない?
Excel2013からAccess2016の参照で落ちるケースはググって見つけたけど、
ウチのはExcel2013からExcel2013で落ちる。
- 205 名前：デフォルトの名無しさん [2019/05/12(日) 02:35:46.96 ID:0u/cIV/f0.net]
- >>190
データとしてExcelを使う場合と、ドキュメントとしてExcelを使う場合とで、考え方がかわる。
- 206 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 08:45:07.80 ID:OK9Y1i2P0.net]
- >>204
win下をdll検索して、複数見つかったらそれぞれ直接参照設定してみるとか
（単体で動いてるわけじゃない気もするから、期待薄かもしれんけど）
- 207 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 12:05:15.73 ID:anQ1bE+S0.net]
- >>206
それもダメだったから、諦めてExcel2019買ったわ。
それだと普通に動いたから、
やっぱりExcel2013とAccess2016の組み合わせがダメだったみたい。
ありがとう。
- 208 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 16:17:36.32 ID:UM6bazI+0.net]
- 32ビット版だったとか？
- 209 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 17:19:48.24 ID:anQ1bE+S0.net]
- >>208
Excel2013 ・・・ ADO接続OK
↓
Excel2013 + Access2016 ・・・ ここで突然落ちるようになる
↓
Excel2019 + Access2016 ・・・ 直った!
全部32bit。
本当は64bitにしたかったけど、ListViewとか、
一部使えなくなる機能があるので諦めた。
- 210 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 17:21:42.38 ID:anQ1bE+S0.net]
- あ、Excel2013 + Access2016って、インストールの組み合わせ。
別に、Excel2013からAccess2016に接続しに行ったわけじゃない。
落ちたのは、Excel2013からExcel2013へのADO接続。
- 211 名前：デフォルトの名無しさん [2019/05/12(日) 17:23:44.21 ID:0u/cIV/f0.net]
- なんの話をしているのか他人にはさっぱりわからないw
- 212 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 18:10:56.69 ID:w16fcO4J0.net]
- 時刻がマイナスの場合
とは、if文でどうやってつくりますか？
- 213 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 18:20:18.19 ID:O1RPDIWFM.net]
- >>212
マイナスの時刻など存在しない
If 1 = 2
- 214 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 18:23:52.94 ID:w16fcO4J0.net]
- A−B＝C
時刻の差のCがマイナス表示されるセルを
if文で
00:00:00
に直したいです
- 215 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 18:30:53.16 ID:O1RPDIWFM.net]
- >>214
=TEXT(MAX(0, C), "hh:mm:ss")
VBAは要らん
- 216 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 18:33:52.80 ID:w16fcO4J0.net]
- セルの設定ですね。
ありがとうございます。
- 217 名前：デフォルトの名無しさん [2019/05/12(日) 20:06:16.73 ID:0u/cIV/f0.net]
- プログラミングの初歩は大事なんだと思ったよ。
ある値のときは00時00分00秒にするという分岐を思いつかないんだから。
- 218 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 20:51:34.11 ID:JDMVXB4ua.net]
- まあMIN/MAXを使って値をキャップするのは正統なプログラミングでは非常によく使われる方法だけど、
事務屋さんには意外と思いつかないかもね
- 219 名前：デフォルトの名無しさん mailto:sage [2019/05/12(日) 21:54:23.80 ID:UM6bazI+0.net]
- 普通に時刻どうしで比較できるから、3分前とかそういうことかと思ってた
- 220 名前：デフォルトの名無しさん [2019/05/12(日) 22:49:25.28 ID:0u/cIV/f0.net]
- >>210
Office製品は基本的にバージョン違いを混在させられるようにはできていない。
|
 |
