[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
JUGEMテーマ:Office VBA Range("g22").Select g = 5 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ Cells(2, "d") And _ Worksheets("moto").Cells(g, "...
ニャン太郎の叫び | 2019.06.15 Sat 15:37
JUGEMテーマ:Office VBA ' 変数の宣言gu:表の初めの行 Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22").Select g = 4 gu = 21 r = 2 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ ...
ニャン太郎の叫び | 2019.06.13 Thu 22:01
JUGEMテーマ:Office VBA Range("B2:C3").Merge Range("A1").Offset(3, 3).Value = "D4 だよ" Cells(g + 2, "p").Value = _ CStr(Cells(g, "f").Value) + "-" + CStr(Cells(g, "g").Value) + _ Cells(g, "r").Value + Cells(g + 2, "p").Value Dim gu As Integer ' 行削除 Range("21:100").Delete Range("c22&...
ニャン太郎の叫び | 2019.06.13 Thu 00:00
JUGEMテーマ:Office VBA 行削除 Range("21:100").Delete ' 表のコピー g = 4 r = 2 Range(Cells(g, r), Cells(g+12, r+8)).Copy Cells(g+17, r).PasteSpecial Application.CutCopyMode = False ' セル選択を戻す Range("d2").Select 1 セル セルの集合体:Range Rangesはない (1)セル指定 セルB列5行の指定→Range("B5") アドレスは文字列で指定 Cells(5,2) は数値で指定 n:変数 Range("...
ニャン太郎の叫び | 2019.06.11 Tue 22:21
JUGEMテーマ:Office VBA 小中学校でプログラム学習が始まるということですが、何をどのように教えるのかとても気になります。ロボットの制御を行うようですが、自分で作成したプログラムをロボットで実行させることは、自分の考えがすぐに判定できることでは興味を持つと思います。しかし、ロボットを自分の理想とするものにするためには、専門家でないとできません。 パソコンやキーボードの操作が多少できた者がプログラムに触れるのに一番良いのがこのExcel VBAだと思っています。自分の生活を小さいことから...
ニャン太郎の叫び | 2019.06.09 Sun 17:51
JUGEMテーマ:Office VBA 名簿から会計のワークシートを作成する。名簿のワークシートに会計のデータを入れておよいが、別にした方がすっきりとすると思われる。
ニャン太郎の叫び | 2019.06.08 Sat 18:55
JUGEMテーマ:Office VBA Range("A4:j100").Value = "" Range("b4").Select g = 4 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ Cells(2, "d") And _ &nb...
ニャン太郎の叫び | 2019.06.07 Fri 22:43
JUGEMテーマ:Office VBA Range("A4:j100").Value = "" Range("b4").Select g = 4 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ Cells(2, "d") And _ &nb...
ニャン太郎の叫び | 2019.06.06 Thu 22:11
JUGEMテーマ:Office VBA 繰り返し同じ作業をする→F4キー =IFERROR(VLOOKUP(A5,moto!$A$4:$X$52,19, false), "")→エラーであれば、空白 エラーでなかったら実行する
ニャン太郎の叫び | 2019.06.05 Wed 17:06
全146件中 21 - 30 件表示 (3/15 ページ)