Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:59.29

何で誰も立てないの

**デフォルトの名無しさん** · 2019/03/16(土) 21:14:45.74

>>1乙だけどﾜｯﾁｮｲ抜けてる…

**デフォルトの名無しさん** · 2019/03/16(土) 21:48:42.20

>>2
もう必要ないから

**デフォルトの名無しさん** · 2019/03/16(土) 23:05:16.78

>>2
未回答の質問が特になかったから

**デフォルトの名無しさん** · 2019/03/17(日) 01:48:38.37

前スレの最後の方で承認欲求モンスター共がAccessの話でマウント合戦初めて、もうみんなこのスレ要らないやって思ってたんだぞ

**デフォルトの名無しさん** · 2019/03/17(日) 08:15:42.60

次からAccessスレも含めて↓でいいんじゃないかな
ここ無くなって↓あるの初めて知った
最近outlookVBA使い始めたんだけど、もっと早く使うんだったと後悔

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/17(日) 08:40:24.61

やっと出来たか

前のExcel VBAのスレで、次スレ検索したら、Accessの
https://mevius.5ch.net/test/read.cgi/tech/1544620479/
が出てきたぞ

VBAは全部まとめていいんじゃねえか？

**デフォルトの名無しさん** · 2019/03/17(日) 09:42:14.71

お願いします。

Sub teust()
n = Cells(Rows.Count, "b").End(xlUp).Row + 1
Range("b" & n).Select
ActiveCell.FormulaR1C1 = Sheets(2).Range("i4")

End Sub

a b c b …
ってやってるですがB列だけ9個下に表示されます。

考えられる原因はなんでしょうか(泣)

abcb…はコピペしてるので何故かB列だけ下に行きます

**デフォルトの名無しさん** · 2019/03/17(日) 11:43:51.79

>>9
Cellsで参照してるアクティブシートのB列だけ、最終行であるべき行よりも9行下に余計な値の入ったセルがあるとかじゃない？
変な空白が入ってたり、表の欄外に他人が勝手にコメントつけてたりとかありそう

**デフォルトの名無しさん** · 2019/03/17(日) 12:05:15.62

MsgBox Range("B" & n).Value

とか一度やってみて

同じような事が起きたことあるけど
会社のおっさん上司が白色の文字をそのセルに置いてたわ

**デフォルトの名無しさん** · 2019/03/17(日) 14:35:17.64

コンソールの使い方知ってるならDebug.Print n とかDebug.Print Range("B" & n).Value でも良し

**デフォルトの名無しさん** · 2019/03/17(日) 16:19:59.54

>>9
正直、コードが微妙に感じる。
1行で済むだろ。

それと、ブックとかシートは余程のことが無い限り省略しない方が良い。

**デフォルトの名無しさん** · 2019/03/17(日) 17:40:29.60

>>8
良いと思う

**デフォルトの名無しさん** · 2019/03/17(日) 20:10:18.97

>>13
そういうコメントするなら一行コードを書いてあげるのが親切じゃね

**デフォルトの名無しさん** · 2019/03/17(日) 20:52:23.19

>>15
sht.Cells(sht.Rows.Count,2).End(xlUp).Offset(1,0).FormulaR1C1=Sheet(2).Range("I4").Value
とかかな。
FormulaR1C1とかValueは適宜実際に併せて変えてくれ。
Sheet2のI4に式が入ってるとは思えないから両方Valueで良いような気がする。