[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
664: デフォルトの名無しさん [sage] 2018/11/16(金) 07:44:30.26 ID:fQoG7lNZ elseやelseifは先行条件でTrueにならない場合にしか実施されない仕組みなことを理解しましょう http://mevius.5ch.net/test/read.cgi/tech/1432173164/664
665: デフォルトの名無しさん [sage] 2018/11/16(金) 08:11:14.61 ID:nU0jfNiC >>661 このレベルを形で覚えようとしている貴方にプログラミングは向いてない http://mevius.5ch.net/test/read.cgi/tech/1432173164/665
666: デフォルトの名無しさん [sage] 2018/11/16(金) 09:26:27.62 ID:RKO+v0zL ID変ったかも知れませんが>>656です 皆さんありがとうございます >>665 手痛いレスですが、出来るところまで頑張ろうと思います。プログラマーではないですが基本は覚えないと連携し辛い位置の役職のため頑張ります。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/666
667: デフォルトの名無しさん [sage] 2018/11/16(金) 09:39:56.01 ID:fQoG7lNZ 本当のプログラミング初学者なら仕方ない。制御構文なんてどの言語も似てるので、1つ覚えれば次は勘が効くようになるよ、長い目でがんばりなされ http://mevius.5ch.net/test/read.cgi/tech/1432173164/667
668: デフォルトの名無しさん [sage] 2018/11/17(土) 01:11:45.44 ID:A0ACnair 最大値を求めたいならWorkSheetFunction.MAX使えば良いんじゃね? http://mevius.5ch.net/test/read.cgi/tech/1432173164/668
669: デフォルトの名無しさん [sage] 2018/11/17(土) 12:08:31.57 ID:vo1go4s2 自民党ですらエクセル操作ミスるくらいだからな http://mevius.5ch.net/test/read.cgi/tech/1432173164/669
670: デフォルトの名無しさん [sage] 2018/11/17(土) 12:09:52.07 ID:vo1go4s2 税金の計算もおかしくね？って思う http://mevius.5ch.net/test/read.cgi/tech/1432173164/670
671: デフォルトの名無しさん [] 2018/12/16(日) 00:58:32.35 ID:SwJ6GlUb >>668 わにわに http://mevius.5ch.net/test/read.cgi/tech/1432173164/671
672: デフォルトの名無しさん [] 2018/12/16(日) 01:01:16.65 ID:SwJ6GlUb パニックを、5人がかりでやれば楽勝だろ、とか言ってるようなもの。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/672
673: デフォルトの名無しさん [sage] 2018/12/17(月) 09:39:23.91 ID:5sE/cfMN エクセルVBAじゃなかったらどうするの http://mevius.5ch.net/test/read.cgi/tech/1432173164/673
674: デフォルトの名無しさん [sage] 2018/12/18(火) 22:55:12.06 ID:A6rQVaax 確かに。 エクセロかも知れないもんな。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/674
675: デフォルトの名無しさん [] 2018/12/26(水) 21:53:30.63 ID:KrpjpPkw VBA初心者です。少し長くなってしまいますが質問です。 ・やりたいこと １：現マクロ有効ブックのsheet1にフォームボタン設置する。 ２：押すとC:\Users\Public\動物まとめ.xlsx をバックグラウンドで開き、その中のシート名"カピバラ情報"の E列4行目から5行目6行目...と、空白が来るまでの情報を取得しする。 ３：現マクロ有効ブックに新しくsheet2を作り、その新シートのA1からA2A3...に取得した情報を書き込む。 現在のマクロは下記ですが上手くいかないです
。 Option Explicit Sub practice() Dim i As Long i = 4 Dim fullPass As String 'セルのB3に C:\Users\Public\動物まとめ.xlsxと記述 fullPass = Range("B3") Dim wb As Workbook Dim Anothersheet As Worksheet Workbooks.Open fullPass Set Anothersheet = wb.Worksheets("カピバラ情報") Sheets.Add After:=ActiveSheet Range("A1").Select Do While Cells(5, i).Value <> "" i = i + 1 Loop Call wb.Close End Sub 上手く情報を取得できないのでアドバイスお願いします。 http://
mevius.5ch.net/test/read.cgi/tech/1432173164/675
676: デフォルトの名無しさん [sage] 2018/12/27(木) 00:53:04.14 ID:coxr7jtk >>675 wbに何も代入されてない。 AnotherSheetへの代入もこけるはず。 AnotherSheetが正しく生成されたとしても、その後使用されていないから何かとってこれるはずがない。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/676
677: デフォルトの名無しさん [sage] 2018/12/27(木) 00:55:19.50 ID:coxr7jtk >>675 fullpass じゃなくて、fullpath ね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/677
678: デフォルトの名無しさん [sage] 2018/12/27(木) 01:02:39.75 ID:coxr7jtk >>675 行列指定が逆？ 5行目を右方向に評価してくような感じになってるけど、新規に作ったシートが対象になってるから、一周もループしてないよね？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/678
679: デフォルトの名無しさん [sage] 2018/12/27(木) 01:09:08.59 ID:coxr7jtk >>675 Cell値を取るときは、デフォルトにまかせずちゃんとプロパティ指定しよう。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/679
680: デフォルトの名無しさん [sage] 2018/12/27(木) 01:16:51.54 ID:coxr7jtk >>675 バックで開いたつもりのブックに新規シート作っちゃってない？ ブックのフォーカスを制御するとか必要かも。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/680
681: デフォルトの名無しさん [sage] 2018/12/27(木) 09:18:35.23 ID:psUgzr4+ ID変わりましたが>>675です。 >>676‐>>680 遅い時間帯でありながら見てくださって ありがとうございます。 色々と不十分だったのですね。 指摘箇所を直したりして また報告しようと思います。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/681
682: デフォルトの名無しさん [sage] 2018/12/27(木) 09:19:34.30 ID:lhYnw8ev >>675 最初に注意すべきなのは、いきなりRangeやCellsは絶対に使うべきじゃないってこと。 ちゃんと省略せずにWorkbookやWorksheetから書くようにする。 しかしそれだとコ―ドが長くなるのでそのために今回のコードのように変数で受けるかWith文を使う。 以下はスマホ上で書いてるんで動くかは不明です。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/682
683: デフォルトの名無しさん [sage] 2018/12/27(木) 09:20:24.73 ID:lhYnw8ev Option Explicit Sub practice() Dim i As Long Dim fullPath As String Dim wb As Workbook 'Anothersheetじゃ分かりにくいんでopnShtに変更。 Dim opnSht As Worksheet '追加シートは変数に受けないの? Dim addSht As Worksheet 'セルのB3てどこ? '多分ボタンのあるシートかなと推測。 fullPass = Thisworkbook.Worksheets("Sheet1").Range("B3").Value 'B3に出鱈目書いて動かしたらどうなるんだろう? Set wb = Workbooks.Open(fullPath) Set op
nSht = wb.Worksheets("カピバラ情報") With Thisworkbook Set addSht = .WorkSheets.Add( After:=.WorkSheets("Sheet1")) End With 'Range("A1").Selectって何の為に有るの? 'iの初期値を一番最初に書いてたけど、初めて見たとき何だか分からんかった。 '使う直前に関連処理と一緒にまとめた方が分かり易いよね。 i=4 Do While opnSht.Cells(5, i).Value <> "" i = i + 1 Loop '元のCall wb.Closeなどという書き方をしたことが無いのでいつもの自分の書き方に変更。 wb.Close False End Sub http
://mevius.5ch.net/test/read.cgi/tech/1432173164/683
684: デフォルトの名無しさん [sage] 2018/12/27(木) 09:22:53.65 ID:lhYnw8ev >>680 フォーカスを制御すべきじゃない。 いきなりRangeやCellsを使うから上手くいかないのであって、きちんとブックやシートから書けばフォーカスを制御しなければならないことは滅多に無い。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/684
685: デフォルトの名無しさん [sage] 2018/12/27(木) 09:26:03.58 ID:lhYnw8ev 早速間違いだ。 fullPassと書いてる所が一ヶ所ある。 fullPathに直しておいてね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/685
686: デフォルトの名無しさん [sage] 2018/12/27(木) 11:21:46.87 ID:coxr7jtk >>684 まぁ、そうかもね。 でも最初はいろいろ試してもいいんじゃない？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/686
687: デフォルトの名無しさん [sage] 2018/12/27(木) 11:57:21.88 ID:psUgzr4+ >>682‐685 ありがとうございます 深夜のご指摘から>>685まで参考にしていて 現在デバッグしてますが、“カピバラ種類”のシートが上手く取得できていないようです。 ちなみに 'セルのB3てどこ? '多分ボタンのあるシートかなと推測。 その通りです、分かりづらくてすいません。 改行制限のためいくつかコメントは掲示板に書き込むとき省いてしまいました。 'Range("A1").Selectって何の為に有るの? ですが 、新シートのA1から書き込む為に書き
ましたが、デフォルトでA1から書き込むみたいですので 無駄なマクロでしたね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/687
688: デフォルトの名無しさん [sage] 2018/12/27(木) 12:23:02.37 ID:psUgzr4+ 少し言葉足らずでした。 iのカウント（空白行までループ）は上手く出来ているので、現マクロ有効ブックの新シートに取得情報を 書き込めていないようです。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/688
689: デフォルトの名無しさん [sage] 2018/12/27(木) 12:57:12.54 ID:lhYnw8ev >>688 うん? Do〜Loopの中はiのカウントアップしてるだけなので、あなたが省略した(と勝手に思ってるんだけど)コードが動いていないということ? 念のためにいうと、元々のコードには情報を取得するコードが全く無いからこのコードだけじゃ取り込めないのは当たり前だよね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/689
690: デフォルトの名無しさん [sage] 2018/12/27(木) 13:47:48.84 ID:psUgzr4+ すいません、 不覚に気づき、 dim j as long j = 1 を追加し、ループを Do While opnSht.Cells(5, i).Value <> "" addSht.cells(j,1) = opnSht.Cells(i, 5) j = i i = i + 1 Loop にして上手くいきました、ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/690
691: デフォルトの名無しさん [sage] 2018/12/27(木) 13:57:20.08 ID:psUgzr4+ 細かい修正として j = i i = i + 1 の部分も i = i + 1 j = i - ○ のようにして、 無駄にできてしまう空白もなくしました。 お付き合いしてくださった方、 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/691
692: デフォルトの名無しさん [sage] 2019/01/03(木) 04:15:42.29 ID:aAVkqECP 質問です ワークシート上にすでに引かれている複雑な枠線をコードとしてどうにか変換というか取得できる方法はないでしょうか… http://mevius.5ch.net/test/read.cgi/tech/1432173164/692
693: デフォルトの名無しさん [sage] 2019/01/03(木) 04:35:53.91 ID:Em9anKIf >>692 描くのの逆をするだけじゃ？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/693
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 309 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.016s