[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
88: 2015/08/18(火)10:58:33.73 ID:34FW6E1T(1) AAS
>>87
値が空のデータを削除したら？
107(1): 2015/10/12(月)23:35:13.73 ID:oCa7NkmO(1/2) AAS
>>105
もう既に出来ているんじゃないか？
114(1): 2015/10/13(火)18:27:38.73 ID:jBFoqp2r(1) AAS
>>113
Excel グラフ 回転
でググるとやり方でてくるけど、これじゃ駄目？
262: 2017/02/15(水)13:14:12.73 ID:zgJtAmDR(1) AAS
>>256
スマホからだから試してないけどこんな感じかな
Application.Presentations.Open(ひとつ目のファイル)
Application.Presentations.Open(ふたつ目のファイル)
...
Application.Presentations.Open(いつつ目のファイル)
Set P = Application.Presentations.Add
For I = 1 To 50
For J = 1 To 5
Application.Presentations.Item(J).Slides(I).Copy
P.Slides.Paste
Next
Next
P.SaveAs(新規のファイル)
347(1): 2017/09/01(金)23:04:37.73 ID:RmCwgyLh(1) AAS
>>345
(1)
For I1 = 1 to UBound(xxx)
For I2 = 1 to UBound(xxx)
(2)
J=UBound(xxx)
For I1 = 1 to J
For I2 = 1 to J
普通に考えて本のチョット早いと思われますが、記述の労力ほどじゃない。
他の方の書いてますが、今は、処理速度が物凄く早くなっています。
気にしなくていいと思います。
ただし、私はEXCELでVBAを書くのですが、シートのセルに書き出すと物凄く遅くなる。
VBAの配列とかメモリーならばほとんど気にしなくていいです。
ですから、メモリー内で処理して最後の最後にシートに書くようにしてます。
396: 2017/09/24(日)02:12:05.73 ID:3B64fACL(1) AAS
勉強のため何が何でもIfだけで解決しなきゃいけなかったのか、
まだ初心者だからMinという便利な物があることを知らなかったのか
それによって変わってきちゃうからー
400(1): 2017/09/24(日)15:00:43.73 ID:3BjqQEbI(1) AAS
>>398
なんか仕事をしてる体で話してますけど
あなたの想像上の仕事では自分にとって都合の悪い事態は存在しないのですね
さぞかし楽しかろうとは思いますが
あなたは社会に出ないでください
570: 2018/07/06(金)12:23:43.73 ID:uTPDH9XV(1) AAS
5OK
683: 2018/12/27(木)09:20:24.73 ID:lhYnw8ev(2/5) AAS
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 opnSht = 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
712: 2019/01/21(月)08:09:02.73 ID:jhC9vbHJ(1) AAS
declare デクレア(デクレアー)
発音記号を見るとディクレィアーなんだけど、音声ではディよりデに近く聞こえる
外部ﾘﾝｸ:en.hatsuon.info
720: 2019/02/08(金)13:11:59.73 ID:WrxcLohJ(1) AAS
何か斬新な使い方って無い?
ワードでファミコンみたいな。
798(2): 2019/03/27(水)07:39:47.73 ID:qB5RyyD6(1) AAS
では、教えてくれ。
正しい日本語の"正しい"とはなんのことだ。
先に言っておくが、国語辞典や義務教育は関係ないぞ。
818: 2019/03/30(土)09:49:53.73 ID:uS2atdcl(3/3) AAS
シンタックスって言葉自体は構文規則だけど、コンパイルエラーって出るんだね
872: 2019/05/30(木)18:38:59.73 ID:3bWSKYGB(1) AAS
>>870
いろんなソースで、色つけたり太字にしたり、用紙指定や段組みして印刷させる
。
炎上プロジェクトに突撃するのに必須
907(1): 2019/07/25(木)16:22:05.73 ID:eKMV/4VB(1) AAS
ExcelVBAのユーザーフォーム上で、PDFを表示、操作をしたいです。
ですが、ユーザーフォームにコントロールを追加しようとすると、
「要素が見つかりません」とダイアログが表示され出来ません。
どなたか解決策をご存じの方がいましたら、教えていただけますでしょうか。。
Acrobat pro DCはインストールしてあり、ExcelはOffice365を最新の状態で使用してます。
971: 2020/09/10(木)22:45:47.73 ID:Oh+8RCfx(3/3) AAS
>>970
詳しい人にそう言ってもらえるとたすかる
とりあえず素人がやるもんじゃ無いって話は集めたので素直に金だせやって資料作ってるｗ
しかし1千万つめばできちゃうってのもすげーなあ
個人にとっては大金だけど、会社にとっては中堅社員一人分/年くらいの費用だもんな
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.037s