Excel VBA 質問スレ Part29

1 ：2013/03/31 〜 最終レス ：2013/05/11

ExcelのVBAに関する質問スレです
★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。
★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。
★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。
　VBAとは､『Visual Basic for Applications』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）
前スレ:Excel VBA 質問スレ Part28
http://toro.2ch.net/test/read.cgi/tech/1359607536/
関連スレ：VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

2 ：

01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/
17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/
18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/
19 http://hibari.2ch.net/test/read.cgi/tech/1305754555/
20 http://hibari.2ch.net/test/read.cgi/tech/1312435844/
21 http://hibari.2ch.net/test/read.cgi/tech/1316931607/
22 http://toro.2ch.net/test/read.cgi/tech/1322400978/
23 http://toro.2ch.net/test/read.cgi/tech/1327763113/
24 http://toro.2ch.net/test/read.cgi/tech/1334305148/
25 http://toro.2ch.net/test/read.cgi/tech/1341722983/
26 http://toro.2ch.net/test/read.cgi/tech/1345363310/
27 http://toro.2ch.net/test/read.cgi/tech/1353842387/

3 ：

>>1
Rよアスペ

4 ：

まぁ別に>>1がこの世の何にも優先される絶対的真理って訳でもないし、テンプレ盾に訳分からんこと言ってきたって無視すれば良いだけの話。

5 ：

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

6 ：

>>1乙

7 ：

>>1は前スレで★5を消すか皆で議論している最中に消されるのが嫌で
焦ってこのスレを立てることにより、テンプレを守る必要がない大義名分を与えてしまった。馬鹿な奴だ。

8 ：

どんだけ悔しがってるんだw
とりあえず涙拭けよ

9 ：

あーあ、アスペのせいで
このスレもなんでもありになっちゃったね。

10 ：

これまでも何でもありだったし、これからも何でもありでいいじゃん。

11 ：

じゃそういうことで

12 ：

もう一個のVBAスレとは何だったのか

13 ：

クレクレウェルカム荒らしウェルカム桃白白可愛い

14 ：

話題無いから燃料投下
VBAとVB6のアーキテクチャってどっかで共有されてるの？
言語仕様そっくりだとは思いつつそのへん意識した事無かった

15 ：

これから何かあるたびに
>>1のせいで、とか
あの時のアスペのせいでって
言われるんだろうな。自業自得だけど。

16 ：

>>1叩いてるの一人だけかよ
どんだけw

17 ：

調子にのるな馬鹿

18 ：

余程悔しかったんだろうな
なんとか>>1を悪者にしようと、必死で印象操作してる
露骨&粗忽すぎて、>>1叩いてる奴の方が自分の陰湿さを晒してるだけなのが笑えるがw

19 ：

>>16
R

20 ：

この人、荒して皆に迷惑掛けてるって自覚あるのかな

21 ：

ある列の値の入った最下行を取得するのは、どうするのが一番確実でしょうか？
End(xlUp).Rowだと書式だけ残った使用済みのセルで引っ掛かってしまいます
End(xlUp).Rowから一つずつ上のセルの確認するしかないのでしょうか

22 ：

以上、ここまでテンプレ

23 ：

>>21
この間の人?
End(xlUp)って書式引っかかったっけか。
もう一度引っかかったとこらへんの範囲を選択して
Deleteキーで消してみても駄目?

24 ：

>>22
旬の食材を薄力粉の液体につけて
１８０度くらいに熱したゴマ油にいれて熱を通してから天つゆにつけて食う

25 ：

>>23
この前の人がどなたか存じ上げません、別人です
すみません、書式だけ残った場合では引っ掛かりませんでした
=if(iserror(hogehoge),''',a1)みたいな数式を値で貼付けていた場合に
見た目が空のセルでもEnd(xlUp).Rowで引っ掛かってしまう様です

26 ：

>>978
ああ、ExcelVBAではなくて、AccessVBAか。それならその使い方にむいてるかもね。
Excelから、AccessDBに連携させてんじゃなくて、AccessVBAで単独構築ってことだよね。
>>996
保守が誰もできないVBA資産を残すリスクが高いって話だよ。
金の計算がからむのは、さすがに怖くて残せない。利率がかわっても、修正することすら
気づかず使いつづけそうだし。コードに利率は記載せず、誰にでも修正できるようシートの
利率TBLを参照する形にしたって、気づかない人は気づかない。
後任はまだよくても、後任の後任のPCスキルがどの程度なのか不明なわけだし。
ちなみに今月、自分が、同僚に真顔で聞かれたこと。
「フォルダって、どうやって新しく作るの?」
･･･VBA資産を残すのは、リスキーすぎる職場だろう。

27 ：

>>24
天ぷら

28 ：

>>25
有効な値のあるセルを見つけたいってことかな。
Columns(1).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

29 ：

>>28
Dim targetColumn as Integer
targetColumn = 1
Dim resultRange as Range
set resultRange = Columns(targetColumn).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Dim resultRow as Long
If resultRange Is Nothing Then
resultRow = 1
Else
resultRow = resultRange.Row
End If
出来ました、ありがとうございます
ワイルドカードを逆順で検索、思いつきませんでした

30 ：

>>29
小汚いプログラムだなｗ

31 ：

>>30
小綺麗な見本をいただけますか！

32 ：

>>31
>>1★5

33 ：

>>31
全部大文字で書け！

34 ：

>>32
書きましたのに、小汚いコードを
>>33
どういう事ですか

35 ：

>>34
プログラムが汚いｗ

36 ：

>>35
あ、はい

37 ：

>>36
書き直せｗ

38 ：

>>37
嫌です

39 ：

>>38
as Rangeって何？

40 ：

29に優しくしてやれ。
このスレ、私見だが、女も多い気がするし。29がそうだとはいわないが。
vba = 事務職が主に使う言語 =事務職の大半は女　の構図から連想してみた。

41 ：

カワイイなら俺が全部コード書いてやる

42 ：

濡れた

43 ：

Dimは先頭にまとめるべき論争の再来になるから嫌だ

44 ：

汚いってそういう事なの？

45 ：

結果を変数に入れてるのがなあ
こういうのは関数にするだろ普通は

46 ：

いや、これ自体が関数の中身で、
その変数が最後に戻り値設定されていれば別段問題ない。

47 ：

>>43
そんな論争が以前あったのか

48 ：

変数や定数の値を別のブックから参照する方法がありましたら教えてください。

49 ：

参照設定

50 ：

ものすごく初心者な質問ですみません…
Sheet1にあるマクロ実行ボタンを押して、その結果をSheet2に表示する方法を教えてください。
どうしても、Sheet1結果が出るか、新しいシートに出るかしかできないのです。
よろしくお願いします。

51 ：

Sheet2.Cells(1,1) = "けっか"

52 ：

Sheets("Sheet2").Cells(1,1) = "けっか"

53 ：

>>51-52
できましたー！
このスピードで答えていただき本当に助かりました！
ありがとうございました！

54 ：

このスピードで
ワロタ

55 ：

すみません、自分で考えたのですが解決できずお力を貸して下さい。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D4:D10")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target = "あ"
Case Is = "あ"
Target = "い"
Case Is = "い"
Target = ""
End Select
If Intersect(Target, Range("B4:B10,C4:C10")) Is Nothing Then Exit Sub
frmCal.Show

End Sub
今の状態では、B4:B10,C4:C10のセルを選んでもカレンダーがでません。助けてください orz

56 ：

>>55
「あ」とか「い」が何やってるのかわからないけど、これじゃ駄目なの？
if target.column >= 2 and target.column <= 4 and target.row >= 4 and target.row <= 10 then
　　frmcal.show
end if

57 ：

>>56
解決しました！ネ申

58 ：

>>57
> If Intersect(Target, Range("B4:B10,C4:C10")) Is Nothing Then Exit Sub
> frmCal.Show
>
> End Sub
の何がまずかったのかな？

59 ：

聞いてる本人に聞くなよｗ

60 ：

>>58
「あ」とか「い」の部分がなくても
> If Intersect(Target, Range("D4:D10")) Is Nothing Then Exit Sub
があるから絶対にfrmCal.Showは実行されない。
それがまずい。

61 ：

何がまずくてもいいじゃん
あきらかにまずいだろ
前スレの何が勉強になったの？とか言ってた奴か？

62 ：

未だに悔しがってるとか、どんだけw

63 ：

もういいだろ

64 ：

>>61
俺も解らなかったから聞いただけなんだが。
解決したのならどこがまずかったのか理解できたと思うんだけど。

65 ：

>>64
なあ、それ本当に知りたいことなのか？
何かお前にプラスになるのか？

66 ：

できました！ありがとう。

67 ：

>>60
絶対にfrmCal.Showが実行されないという理由がわかりません。

68 ：

>>67
D列以外をダブルクリックしたら、最初のIfだけで終わっちゃうじゃん

69 ：

ていうか、うちの環境だとちゃんと判定してくれるけど

70 ：

>>68
ということは、>>56のレスをふまえると、最初のIfか最後のIfのRangeプロパティの
範囲のどちらかが間違っていたということですね。
ありがとうございました。

71 ：

マジで言ってんのか？
もうVBA以前の問題だわ。

72 ：

なんで？

73 ：

この中で男以外は帰ってください。
残ったなかで女以外は帰ってください。
誰も残ってないんですなぜだかわかりません。
って言ってるようなもんだぞ。

74 ：

性別があやふやな人もいるじゃないですか

75 ：

このスレで女以外は帰って下さい。
そして可愛い子以外は帰って下さい。

76 ：

おまえって欲望に忠実だな

77 ：

デ・ルモンテの法則

78 ：

VBAで画面キャプチャ後bmpとかpngで保存するとか可能ですか？

79 ：

可能だよ
VB6でのやり方がそのまま使えるのでお好きにどうぞ

80 ：

>>79
返信ありがとうございます。
ちょいとサンプルコード探してみたいと思います。

81 ：

>>79
探したのですがコードが見当たりません。
何かわかりやすいソースコード御持ちじゃないですか？

82 ：

持ってますお

83 ：

>>82
貼り付けお願いできませんか？

84 ：

Option Explicit
'ファイル保存ダイアログ
Private Function GetSaveFileName() As String
Dim sfile As String
sfile = Application.GetSaveAsFilename(fileFilter:="JPGファイル (*.jpg), *.jpg")
If sfile = "False" Then
GetSaveFileName = ""
Else
GetSaveFileName = sfile
End If
End Function
Private Sub CommandButton1_Click()
Dim rg As Range
Dim cht As Chart
Dim fina As String

85 ：

'保存ファイル名を取得
fina = GetSaveFileName

If fina <> "" Then
'選択範囲を取得
Set rg = Selection
'選択した範囲を画像形式でコピー
rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
'画像貼り付け用の埋め込みグラフを作成
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
'埋め込みグラフに貼り付ける
cht.Paste
'JPEG形式で保存
cht.Export Filename:=fina, filtername:="JPG"
'埋め込みグラフを削除
cht.Parent.Delete
End If
End Sub

86 ：

これを保存ダイアログなしで自動でtestで保存。指定したセル範囲をキャプチャに改造して頂けませんか？

87 ：

甘えすぎ

88 ：

>>87
じゃあ範囲は自分で、できたから
保存ダイアログなしで自動でtestで保存。教えてよ

89 ：

http://blog-imgs-46-origin.fc2.com/c/h/a/chaigon/CapWnd.txt
※拡張子が txt となっていますが、実体はZIPファイルです。ダウンロード後、拡張子を zip に書き換えて解凍してください。
※CapWnd.basファイルをVBAProjectから「ファイルをインポート」すればOK！
使用例１ ： 画面全体の画像をファイルに保存する
Public Sub SavePictureOfScreen()
    Dim pic As IPictureDisp
    Set pic = CaptureScreen()
    Call SavePicture(pic, "C:\screen.bmp")
End Sub
使用例２ ： アクティブウィンドウの画像をファイルに保存する
※保存した画像の一部がおかしい不具合あり。原因は調査中。
Public Sub SavePictureOfActiveWindow()
    Dim pic As IPictureDisp
    Set pic = CaptureActiveWindow()
    Call SavePicture(pic, "C:\activewindow.bmp")
End Sub

90 ：

コード作成依頼に対応するなよ。

91 ：

>>83
こういうお願いはこっちにしろ。
VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

92 ：

>>91
誘導ありがと。修正もここでしてもらると思ってたわ。
失礼しました

93 ：

>>92
>>1★5を死ぬまで読んでろ。

94 ：

>>92
男が書くコードは修正しません

95 ：

私オカマなんたけど

96 ：

事務のパソコンが壊れたため１台新しくwin8を買ったため
excelを2003から2010に変えました
それでもう一台別のXPパソコンのほうも2010にしたんだけど
win8の2010でシート上のactivXのテキストボックスを作って保存したものを
XPの2010で開くとなんとテキストボックスのサイズもフォントサイズも一回りでかくなってるという
気持ち悪い現象が起きてます｡
なんかバグっぽいけど治す方法とかありましたら教えてください｡

97 ：

>>96
>>1★5

98 ：

>>97
>>1

99 ：

>>96
星五つだってよ、よかったな！

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

【統計分析】機械学習・データマイニング3 (212)
【最速へ】LowLevelVirtualMachine【LLVM】 (550)
Rubyについて Part48 (658)
【Lisp】プログラミング言語 Clojure #2【JVM】 (792)
C++11/C++1y 18 (338)
GARMIN社のGPSのプログラム (657)
--log9.info------------------
【銭銭銭】松本零士権利関係総合38【惨敗 銭士 悪】 (780)
タイトルがわからないアニメを教えてもらうスレ4 (505)
岡山・香川テレビ広域圏のアニメ事情Part30 (576)
SHAFT/シャフト 64 (297)
【ステマ盛り】SHAFT/シャフト 73【偽蛤と手抜き】 (663)
アニプレックス/ANIPLEX Part5 (745)
アニメ【バンダイビジュアル】ガンダム (492)
【頑張れ】ヤル気出してる漫画家志望者のスレ (871)
●韓国人アニメーターに汚された作品を語るｽﾚ10● (585)
古き良き時代のファンロードを語るスレ (518)
大河内一楼 (217)
アニメーターの労働環境を改善させる為には 其の５ (208)
山梨のアニメ事情十 (574)
A-1 Pictures（エー・ワン・ピクチャーズ）−04− (651)
bones-ボンズ- PART47【絶園】 (703)
宮城のアニメ事情26 (606)
--log55.com------------------
エーデルワイス相模原市在住無職56歳専用スレ
エーデルワイス相模原市在住無職56歳専用スレ
エーデルワイス相模原市在住無職56歳専用スレ
エーデルワイス相模原市在住無職56歳専用スレ
エーデルワイス専用スレ
エーデルワイス専用スレ
エーデルワイス56歳専用スレ
エーデルワイスこと高橋陽介さん無職56歳専用スレ