前スレの最後の方で承認欲求モンスター共がAccessの話でマウント合戦初めて、もうみんなこのスレ要らないやって思ってたんだぞ
お願いします。
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列だけ下に行きます
>>9
Cellsで参照してるアクティブシートのB列だけ、最終行であるべき行よりも9行下に余計な値の入ったセルがあるとかじゃない?
変な空白が入ってたり、表の欄外に他人が勝手にコメントつけてたりとかありそう MsgBox Range("B" & n).Value
とか一度やってみて
同じような事が起きたことあるけど
会社のおっさん上司が白色の文字をそのセルに置いてたわ
コンソールの使い方知ってるならDebug.Print n とかDebug.Print Range("B" & n).Value でも良し
>>9
正直、コードが微妙に感じる。
1行で済むだろ。
それと、ブックとかシートは余程のことが無い限り省略しない方が良い。 >>13
そういうコメントするなら一行コードを書いてあげるのが親切じゃね >>15
sht.Cells(sht.Rows.Count,2).End(xlUp).Offset(1,0).FormulaR1C1=Sheet(2).Range("I4").Value
とかかな。
FormulaR1C1とかValueは適宜実際に併せて変えてくれ。
Sheet2のI4に式が入ってるとは思えないから両方Valueで良いような気がする。 別に1行にすべきというわけじゃ無い。
.SelectとActiveCellが良くないということ。
あと、元の情報が無いのとスマホで書いたからブックは省略したけど、自分が組んでたら省略はしない。
入力のあったセルの場所が分かったとしても、また同じ事が起きそう
入力させるセルと出力するセルはハッキリ分けた方がいいと思うよ
確実に全セル入力されてる列があるならそれを基準に使う手もアリ(例えば項番の列とか)
新しくシートを作成するコードで、
シート名をInputboxで入力させるんだけど、
もし名前が被ったときに、エラーを回避して
Subを終わらせることってできる?
シートも結構いっぱいあるから
「名前が一致したとき」にExit Sub
ってのはやりたくないんだけど…
>>22
For Eachで全シートの名前と比較して、同じのがあったら作らない >>23
最後の3行が無ければ俺も同じ事をレスしてた >>22
最初に名前があるかどうかの処理をかませばいいだけ
シート作ってから一緒に何かしようとするとややこしいしミスするからオススメできない
Sub foo()
希望シート名 = InputBox("シート名を入力")
For Each 既存シート In ThisWorkbook.Worksheets
'小文字半角に変換、統一して比較
If StrConv(希望シート名, 6) = StrConv(既存シート.Name, 6) Then
MsgBox ("既にあるシート名でした。終了します")
Exit Sub
End If
Next
Set 新シート = Worksheets.Add
新シート.Name = 希望シート名
'新シートで処理
End Sub できたー!ありがとうございました!
まさにこれっすー!
オレはループ回すの面倒(遅い?)から on errorでやるわ
on errorってエラーの決め打ちじゃなくて「このエラーが出るはず」という使い方だから、他の手段があるならあまり積極的には使わない方がいいと思う
on errorの場合はworksheets.add.nameで作ってエラー時はActiveSheet.Deleteみたいな処理にすんのかな
不測の事態が起きそうで怖いけど
シートに配置したフォームコントロールのボタンのクリックとマクロを関連付けています
この時、ボタンのテキストを取得する方法はありますか?
Application.Caller
だと名前は取得できるのですが
ボタンの名前をテキストと同じものに変更する、でも良いです
>>16
ブック.シートをwithでくくりたい(´・ω・`) >>32
ボタンのテキストはどうやって設定した?captionプロパティじゃないのか? >>35
ボタンに表示している文字の事を言ってるなら、手作業でもなんでもcaptionプロパティに入れてるはずだが リストボックスのリストを更新した時クリックイベントが発生するのは何故?
>>36
そのcaptionプロパティを取る方法が分からないのです
引数としてオブジェクトが渡されるわけでもないし、何か方法はあるのでしょうか いろんなボタンにおんなじハンドラ割り当ててるんでしょ?
>>39
えぇ、それは分かるんですが
>>41
そうです
複数のボタンのclickイベントに同じマクロを登録し、
clickしたボタンのcaptionを取りたい
>>38
OLEオブジェクトのコレクションからnameプロパティの一致する物を探すとか じゃあSheet1.buttons(application.caler).captionは?
少々強引だが、apiのGetCursorPos関数でマウスポインタの場所のコントロールを取得って方法もある
>>43
一見イベントハンドラですが、thisが使えない、オブジェクト渡さないイベントハンドラはハンドラと言えるのでしょうか
個人的には、ハンドラという方が逆に混乱すると思いますのであえて言っていません
>>45
うおおおおおおできましたああああああああすごい!!!!!
>>44>>46
ありがとうございます! あと、>>45さんの
Sheet1
というオブジェクトも気になります
sheet(1)
のエイリアスが自動的に生成されてると思いますが、MSDNでどのように調べると良いでしょうか? ActiveSheet.Buttons(Application.Caller).Characters.Text でいけないかな
試してないから駄目だったらごめん
>>49
画像のボタンがSheet1に貼ってあったからそれに合わせて書いただけ
"Sheet1"っていう名前のシートのオブジェクト名がSheet1になってるっしょ >>51
シートのインデックスは常に左からの連番
シートの追加削除等あればもちろん都度変わる >>54
どこに書いてるかは知らないけど、ボタンもシートもブックもオブジェクトの指定の仕方は同じ
オブジェクト名
オブジェクトのコレクション(インデックス)
オブジェクトのコレクション("名前")
好きなのを使うがよい MS公式でWorksheetオブジェクトに関する説明調べればどっかにあるかもねえ、知らんけど
マクロを10時間ぶっ通しで走らせるのはよくないですか?途中で再起したほうがいいですか?
>>55>>56
ありがとうございました
もう少し調べたかったけど、疲れたので断念します
>>57
とりあえず動かして、エラーが起きなければ何も問題はない
ただ、セルを触る物を10時間も動かすとメモリエラーが起こるかも知れない
>>58
笑った >>59
ありがとうございます。
メモリの心配はありますが、ぶっ通しでやってみます。 だから、どういう状況で10時間ぶっとおしが必要なんだよwwwwww
マジでExcelを何に使ってるのか気になるわ。
結果セットは小さいけど重いDBクエリを繰り返すとかだったらわかる
10時間動かし続けるとなると思いつくのは
出勤時間中にwebサイトやフォルダ監視し続けて何かをキッカケに何かするみたいなのかな
ExcelVBAでパワーポイント動かしたいんですけど、
とか言われても、もう驚かんわ。
馬鹿はそこでマクロと言い出す
更には、「教えて」「助けて」で始まり
「急いでます」「作って」と要求する
なんだお前ら、勿体無いな
10時間動かすなんて奇抜な事をしてくれるんだから、全力で応援するべきだろう
かなり貴重なサンプルが手に入る可能性があるのに、バカだの言って切り捨てるのはあまりに勿体無い
>>70
まともな報告がある可能性は殆どない。
報告が役に立つ可能性はもっとない >>71
この辺は感性の違いかな
面白い物が見れそうな時はどんどん投資してしまう 肛門に穴があいたんですけど、
とか言われても、もう驚かんわ。
>>69
むしろ楽勝の方だろ
ちょっと前にシートの内容をスライドに埋め込むとかはやったことがある
やったのはPowerShellだったけどCOM経由なら似たようなもんだし パワーポイントでVBAって何すんの?
パワーポイントって発表用のアプリだろ。 それでVBAって需要なんてあまりあるとは思えんが
例えば、気象庁のホームページからクエーリーでデータを取得し
パワポにデーター貼り付けながら、加工してそれをアニメーションで
かっこよく表示していくとか、考えれば応用はいくらでもあるだろう
言葉が足りなかった、プレゼン用ではなく、情報表示モニター用にな
いくらでも機能はつけられる
まあパワーポイント自身、個人で使うことなんてないのか
でも企業でも極一部の部署しか使わないものばかりじゃん
パワポVBAで何か作ってみたいという逆需要で、発表後喋ってる間にスターウォーズのエンドロールみたいなのを流すのを昔作ったことあるなw
それ以降、私の開発現場では(個人的にも)パワポVBAは全く需要なし
WordVBAも、補助ツールとして数年に一回作るくらいかな
スライドシェアとか見てもかったるいだけだからな
大昔の改行しまくりのテキストサイト思い出す
なんか、ExcelのVBAでパワポを操作するのと、パワポのVBAを同一で語ってるやついるか?
ちなみにWordのVBAはいくつか作って今も使ってるけど、まあ対比で言えばExcelの
100分の1程度だな
>>84
>スライドシェア
何だよ、かったるいのしか見たことないんだろ
>テキストサイト
何もわからんバカなのね(笑) >>84
まあ、言葉もわからんカスが書き込みするスレだよな >>86
カッコイイパワポを見てみたいんだが、どこかにある?
俺は見たことない >>88
そうか、じゃあそのままでいいよ
検索もできないカスのお前に見せる必要ないからな 自分では何もできないくせに、人の作ったものは全力で否定するカスいるな
生きてる必要あるんか?・・ってかどうなの?(笑)
>>75
そういう問題か?
PowerPointなのにPowerPointVBAを使わずにExcelVBAという所が驚きの対象なんじゃないの? >>67の冗談が起点なのになんで真剣に語っているんだ >>93
Excel VBAで扱うのとPowerPoint VBAで扱うのはたいして変わらんよ
どっちから制御するかだけの問題 他アプリから制御するのはいちいちアプリケーションインスタンスを起動しなきゃならんのが糞面倒
パワポだけで済むならパワポにする
VBAを使ってる人って御老人のイメージだけど合ってる?
>>96
PowerShellなんて言い出す奴だからわからないんだろうな。
大して変わらんのなんて当たり前だろ。
PowerPointVBAからExcel.Application使って、そのExcelオブジェクトからPowerPoint.Application使ってを10回繰り返した所で変わらんけどアホ丸出しなのが分からんのかね。 >>101
で?
例がアホすぎて何を主張したいのかさっぱりわからんw パワーポイントVBAって色々と勝手が違って面倒臭かった記憶があるけどな
そもそもエクセルやワードと違って空のアプリケーションインスタンス作れないんじゃなかったっけか
ファイル実行時に読み取りパスワードを指定するときもファイル名と連結する必要があるし
>>102
バカにはわからない。
というか例がアホ過ぎる所がミソなんだがw
そんなアホなことをするのかというのが驚きの対象であって、大して変わらんかどうかなんて頓珍漢な話はどうでもいい。 いや、当たり前なんてみんな知ってる(>>93を除くw)のに今更何を言いたいんだってこと
バカの上塗り? 結局、ワッチョイ抜きにするから荒れるんだろ
誰がどう主張したいのかわからなくなる
ワッチョイが嫌な奴がこのスレ建てたんだろうな、立て直すか?
で、結局>>101は当たり前の事をほざいてただけ?
やっぱりバカの上塗りじゃねーか w OLEアプリケーション連携の話になると途端に荒れるのやべーな
前も下らんAccessの話でクッソ揉めてたし
他アプリ連携のスキルをプライドの拠り所にしてる人が結構いるのかな
凄いことやってる風に見てもらえるときあるし分からんでもないけどさ
会社でブラウザの検索結果のページで
いっぱいURLのリンク先が表示されるのですが
そのたくさんのURLのそれぞれを開いたページ(毎回違うけど50ページくらいある)のデータを取得するVBAのコードを考えています。
IEの定番のCreateObject("InternetExplorer.Application")とDOMツリーの方法で実現できてはいるのですが
1つ1つページを開いて取得して閉じる、という作業がネットワークの遅さで異常に時間がかかります。
この複数のページを同時で取得する方法ってないでしょうか?よく知らないけどJavaでいうスレッドみたいな?
いまどきマルチポストに眉をしかめるような時代遅れの人間なんていないよ、ね?
>>114
IEオブジェクト作らずに通信すると早くなる気がするけど早くならないかもしれない
試してみて
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "
もう論点無茶苦茶じゃんw lud20201121162856ca
このスレへの固定リンク: http://5chb.net/r/tech/1552736349/ヒント:5chスレのurlに
http://xxxx.5ch
b.net/xxxx のように
bを入れるだけでここでスレ保存、閲覧できます。
TOPへ TOPへ
全掲示板一覧 この掲示板へ 人気スレ |
Youtube 動画
>50
>100
>200
>300
>500
>1000枚
新着画像
↓「Excel VBA 質問スレ Part60 ニコニコ動画>1本 ->画像>12枚 」を見た人も見ています:
・Excel VBA 質問スレ Part61
・Excel VBA 質問スレ Part64
・Excel VBA 質問スレ Part63
・Excel VBA 質問スレ Part62
・Excel VBA 質問スレ Part66
・Excel VBA 質問スレ Part67
・Excel VBA 質問スレ Part68
・Excel VBA 質問スレ Part69
・Excel VBA 質問スレ Part65
・Excel VBA 質問スレ Part56
・Excel VBA 質問スレ Part51
・Excel VBA 質問スレ Part57
・Excel VBA 質問スレ Part54
・Excel VBA 質問スレ Part59
・Excel VBA 質問スレ Part58
・Excel VBA 質問スレ Part70
・Excel VBA 質問スレ Part50
・Excel VBA 質問スレ Part49
・Excel VBA 質問スレ Part73
・Excel VBA 質問スレ Part74
・Excel VBA 質問スレ Part71
・Excel VBA 質問スレ Part47
・Excel VBA 質問スレ Part72
・Excel VBA 質問スレ Part37
・Access VBA 質問スレ Part2
・Excel Python 質問スレ
・Access VBA 質問スレ Part1
・DELL SC4x0 T10x 質問スレ Part1
・【TESO】The Elder Scrolls Online 質問スレ Part40
・Angel Love Online 質問スレ Part27
・Counter-Strike: Global Offensive 質問スレ Part3
・【TESO】The Elder Scrolls Online 質問スレ Part24
・【TESO】The Elder Scrolls Online 質問スレ Part44
・【TESO】The Elder Scrolls Online 質問スレ Part26
・【TESO】The Elder Scrolls Online 質問スレ Part31
・【TESO】The Elder Scrolls Online 質問スレ Part28
・【TESO】The Elder Scrolls Online 質問スレ Part45
・【TESO】The Elder Scrolls Online 質問スレ Part46
・【TESO】The Elder Scrolls Online 質問スレ Part41
・【TESO】The Elder Scrolls Online 質問スレ Part36
・【TESO】The Elder Scrolls Online 質問スレ Part23
・【TESO】The Elder Scrolls Online 質問スレ Part37
・【TESO】The Elder Scrolls Online 質問スレ Part32
・【TESO】The Elder Scrolls Online 質問スレ Part34
・【TESO】The Elder Scrolls Online 質問スレ Part6 [無断転載禁止]
・【PoE】 Path of Exile 質問スレ part23
・【PoE】 Path of Exile 質問スレ part33
・【LoL】League of Legends 質問スレ Part67
・Android 質問スレ Part63 【アプリ質問は他で】
・【アズレン】アズールレーン 質問スレ Part64
・【アズレン】アズールレーン 質問スレ Part67
・Android 質問スレ Part66 【アプリ質問は他で】
・【RIFT】 Rift: Planes of Telara 質問スレ Part5
・【アズレン】アズールレーン 質問スレ Part69
・【アズレン】アズールレーン 質問スレ Part66
・【TESO】The Elder Scrolls Online 質問スレ Part10
・PSVita 質問スレ part5
・PSVita 質問スレ part4
・PSVita 質問スレ part1
・Avisynth 質問スレ Part10
・Windows 10 質問スレッド Part62
・au by KDDI 質問スレ Part.240
・Windows 10 質問スレッド Part60
・幻獣契約クリプトラクト 質問スレ part10
・【アズレン】アズールレーン 質問スレ Part70
・【アズレン】アズールレーン 質問スレ Part10
06:10:05 up 13 days, 16:34, 0 users, load average: 6.61, 6.59, 6.91
in 0.056563138961792 sec
@0.056563138961792@0b7 on 122520
|