13/03/31 09:30:13.76
01 ｽﾚﾘﾝｸ(tech板)
02 ｽﾚﾘﾝｸ(tech板)
03 ｽﾚﾘﾝｸ(tech板)
04 ｽﾚﾘﾝｸ(tech板)
05 ｽﾚﾘﾝｸ(tech板)
06 ｽﾚﾘﾝｸ(tech板)
07 ｽﾚﾘﾝｸ(tech板)
08 ｽﾚﾘﾝｸ(tech板)
09 ｽﾚﾘﾝｸ(tech板)
10 ｽﾚﾘﾝｸ(tech板)
11 ｽﾚﾘﾝｸ(tech板)
12 ｽﾚﾘﾝｸ(tech板)
13 ｽﾚﾘﾝｸ(tech板)
14 ｽﾚﾘﾝｸ(tech板)
15 ｽﾚﾘﾝｸ(tech板)
16 ｽﾚﾘﾝｸ(tech板)
17 ｽﾚﾘﾝｸ(tech板)
18 ｽﾚﾘﾝｸ(tech板)
19 ｽﾚﾘﾝｸ(tech板)
20 ｽﾚﾘﾝｸ(tech板)
21 ｽﾚﾘﾝｸ(tech板)
22 ｽﾚﾘﾝｸ(tech板)
23 ｽﾚﾘﾝｸ(tech板)
24 ｽﾚﾘﾝｸ(tech板)
25 ｽﾚﾘﾝｸ(tech板)
26 ｽﾚﾘﾝｸ(tech板)
27 ｽﾚﾘﾝｸ(tech板)
3:デフォルトの名無しさん
13/03/31 09:40:50.10
>>1
死ねよアスペ
4:デフォルトの名無しさん
13/03/31 11:24:01.80
まぁ別に>>1がこの世の何にも優先される絶対的真理って訳でもないし、テンプレ盾に訳分からんこと言ってきたって無視すれば良いだけの話。
5:デフォルトの名無しさん
13/03/31 12:52:33.92
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
6:デフォルトの名無しさん
13/03/31 13:56:41.55
>>1乙
7:デフォルトの名無しさん
13/03/31 15:13:33.85
>>1は前スレで★5を消すか皆で議論している最中に消されるのが嫌で
焦ってこのスレを立てることにより、テンプレを守る必要がない大義名分を与えてしまった。馬鹿な奴だ。
8:デフォルトの名無しさん
13/03/31 15:19:26.85
どんだけ悔しがってるんだw
とりあえず涙拭けよ
9:デフォルトの名無しさん
13/03/31 15:23:14.34
あーあ、アスペのせいで
このスレもなんでもありになっちゃったね。
10:デフォルトの名無しさん
13/03/31 15:28:17.38
これまでも何でもありだったし、これからも何でもありでいいじゃん。
11:デフォルトの名無しさん
13/03/31 15:48:58.08
じゃそういうことで
12:デフォルトの名無しさん
13/03/31 15:51:05.69
もう一個のVBAスレとは何だったのか
13:デフォルトの名無しさん
13/03/31 15:52:41.61
クレクレウェルカム荒らしウェルカム桃白白可愛い
14:デフォルトの名無しさん
13/03/31 15:59:54.19
話題無いから燃料投下
VBAとVB6のアーキテクチャってどっかで共有されてるの？
言語仕様そっくりだとは思いつつそのへん意識した事無かった
15:デフォルトの名無しさん
13/03/31 16:03:25.11
これから何かあるたびに
>>1のせいで、とか
あの時のアスペのせいでって
言われるんだろうな。自業自得だけど。
16:デフォルトの名無しさん
13/03/31 17:11:34.24
>>1叩いてるの一人だけかよ
どんだけw
17:デフォルトの名無しさん
13/03/31 17:17:13.17
調子にのるな馬鹿
18:デフォルトの名無しさん
13/03/31 17:23:17.12
余程悔しかったんだろうな
なんとか>>1を悪者にしようと、必死で印象操作してる
露骨&粗忽すぎて、>>1叩いてる奴の方が自分の陰湿さを晒してるだけなのが笑えるがw
19:デフォルトの名無しさん
13/03/31 17:23:33.49
>>16
死ね
20:デフォルトの名無しさん
13/03/31 17:25:11.62
この人、荒して皆に迷惑掛けてるって自覚あるのかな
21:デフォルトの名無しさん
13/03/31 20:59:25.01
ある列の値の入った最下行を取得するのは、どうするのが一番確実でしょうか？
End(xlUp).Rowだと書式だけ残った使用済みのセルで引っ掛かってしまいます
End(xlUp).Rowから一つずつ上のセルの確認するしかないのでしょうか
22:デフォルトの名無しさん
13/03/31 21:01:06.76
以上、ここまでテンプレ
23:デフォルトの名無しさん
13/03/31 21:15:29.58
>>21
この間の人?
End(xlUp)って書式引っかかったっけか。
もう一度引っかかったとこらへんの範囲を選択して
Deleteキーで消してみても駄目?
24:デフォルトの名無しさん
13/03/31 21:19:07.30
>>22
旬の食材を薄力粉の液体につけて
１８０度くらいに熱したゴマ油にいれて熱を通してから天つゆにつけて食う
25:デフォルトの名無しさん
13/03/31 21:31:03.85
>>23
この前の人がどなたか存じ上げません、別人です
すみません、書式だけ残った場合では引っ掛かりませんでした
=if(iserror(hogehoge),''',a1)みたいな数式を値で貼付けていた場合に
見た目が空のセルでもEnd(xlUp).Rowで引っ掛かってしまう様です
26:デフォルトの名無しさん
13/03/31 21:41:48.30
>>978
ああ、ExcelVBAではなくて、AccessVBAか。それならその使い方にむいてるかもね。
Excelから、AccessDBに連携させてんじゃなくて、AccessVBAで単独構築ってことだよね。
>>996
保守が誰もできないVBA資産を残すリスクが高いって話だよ。
金の計算がからむのは、さすがに怖くて残せない。利率がかわっても、修正することすら
気づかず使いつづけそうだし。コードに利率は記載せず、誰にでも修正できるようシートの
利率TBLを参照する形にしたって、気づかない人は気づかない。
後任はまだよくても、後任の後任のPCスキルがどの程度なのか不明なわけだし。
ちなみに今月、自分が、同僚に真顔で聞かれたこと。
「フォルダって、どうやって新しく作るの?」
･･･VBA資産を残すのは、リスキーすぎる職場だろう。
27:デフォルトの名無しさん
13/03/31 21:46:53.47
>>24
天ぷら
28:デフォルトの名無しさん
13/03/31 22:45:19.66
>>25
有効な値のあるセルを見つけたいってことかな。
Columns(1).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
29:デフォルトの名無しさん
13/03/31 23:12:56.71
>>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:デフォルトの名無しさん
13/03/31 23:15:04.14
>>29
小汚いプログラムだなｗ
31:デフォルトの名無しさん
13/03/31 23:19:31.12
>>30
小綺麗な見本をいただけますか！
32:デフォルトの名無しさん
13/03/31 23:28:47.45
>>31
>>1★5
33:デフォルトの名無しさん
13/03/31 23:31:21.29
>>31
全部大文字で書け！
34:デフォルトの名無しさん
13/03/31 23:33:11.28
>>32
書きましたのに、小汚いコードを
>>33
どういう事ですか
35:デフォルトの名無しさん
13/03/31 23:33:51.28
>>34
プログラムが汚いｗ
36:デフォルトの名無しさん
13/03/31 23:36:49.54
>>35
あ、はい
37:デフォルトの名無しさん
13/03/31 23:41:30.71
>>36
書き直せｗ
38:デフォルトの名無しさん
13/03/31 23:41:45.78
>>37
嫌です
39:デフォルトの名無しさん
13/03/31 23:46:01.64
>>38
as Rangeって何？
40:デフォルトの名無しさん
13/04/01 00:09:36.90
29に優しくしてやれ。
このスレ、私見だが、女も多い気がするし。29がそうだとはいわないが。
vba = 事務職が主に使う言語 =事務職の大半は女 の構図から連想してみた。
41:デフォルトの名無しさん
13/04/01 00:12:56.00
カワイイなら俺が全部コード書いてやる
42:デフォルトの名無しさん
13/04/01 00:21:31.25
濡れた
43:デフォルトの名無しさん
13/04/01 01:15:11.25
Dimは先頭にまとめるべき論争の再来になるから嫌だ
44:デフォルトの名無しさん
13/04/01 01:23:06.28
汚いってそういう事なの？
45:デフォルトの名無しさん
13/04/01 01:33:18.42
結果を変数に入れてるのがなあ
こういうのは関数にするだろ普通は
46:デフォルトの名無しさん
13/04/01 07:17:44.11
いや、これ自体が関数の中身で、
その変数が最後に戻り値設定されていれば別段問題ない。
47:デフォルトの名無しさん
13/04/01 07:19:54.10
>>43
そんな論争が以前あったのか
48:デフォルトの名無しさん
13/04/01 15:21:01.96
変数や定数の値を別のブックから参照する方法がありましたら教えてください。
49:デフォルトの名無しさん
13/04/01 16:03:13.89
参照設定
50:デフォルトの名無しさん
13/04/01 23:00:36.18
ものすごく初心者な質問ですみません…
Sheet1にあるマクロ実行ボタンを押して、その結果をSheet2に表示する方法を教えてください。
どうしても、Sheet1結果が出るか、新しいシートに出るかしかできないのです。
よろしくお願いします。
51:デフォルトの名無しさん
13/04/01 23:01:47.07
Sheet2.Cells(1,1) = "けっか"
52:デフォルトの名無しさん
13/04/01 23:02:50.90
Sheets("Sheet2").Cells(1,1) = "けっか"
53:デフォルトの名無しさん
13/04/01 23:23:18.46
>>51-52
できましたー！
このスピードで答えていただき本当に助かりました！
ありがとうございました！
54:デフォルトの名無しさん
13/04/02 07:52:45.58
このスピードで
ワロタ
55:デフォルトの名無しさん
13/04/03 13:19:39.78
すみません、自分で考えたのですが解決できずお力を貸して下さい。
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:デフォルトの名無しさん
13/04/03 13:27:05.71
>>55
「あ」とか「い」が何やってるのかわからないけど、これじゃ駄目なの？
if target.column >= 2 and target.column <= 4 and target.row >= 4 and target.row <= 10 then
frmcal.show
end if
57:デフォルトの名無しさん
13/04/03 13:36:22.67
>>56
解決しました！ネ申
58:デフォルトの名無しさん
13/04/03 17:22:06.71
>>57
> If Intersect(Target, Range("B4:B10,C4:C10")) Is Nothing Then Exit Sub
> frmCal.Show
>
> End Sub
の何がまずかったのかな？
59:デフォルトの名無しさん
13/04/03 17:44:45.55
聞いてる本人に聞くなよｗ
60:デフォルトの名無しさん
13/04/03 17:45:59.53
>>58
「あ」とか「い」の部分がなくても
> If Intersect(Target, Range("D4:D10")) Is Nothing Then Exit Sub
があるから絶対にfrmCal.Showは実行されない。
それがまずい。
61:デフォルトの名無しさん
13/04/03 17:47:05.38
何がまずくてもいいじゃん
あきらかにまずいだろ
前スレの何が勉強になったの？とか言ってた奴か？
62:デフォルトの名無しさん
13/04/03 17:55:32.19
未だに悔しがってるとか、どんだけw
63:デフォルトの名無しさん
13/04/03 18:10:43.53
もういいだろ
64:デフォルトの名無しさん
13/04/03 18:19:51.44
>>61
俺も解らなかったから聞いただけなんだが。
解決したのならどこがまずかったのか理解できたと思うんだけど。
65:デフォルトの名無しさん
13/04/03 18:23:28.13
>>64
なあ、それ本当に知りたいことなのか？
何かお前にプラスになるのか？
66:デフォルトの名無しさん
13/04/03 18:38:28.63
できました！ありがとう。
67:58
13/04/03 19:00:44.35
>>60
絶対にfrmCal.Showが実行されないという理由がわかりません。
68:デフォルトの名無しさん
13/04/03 21:46:52.67
>>67
D列以外をダブルクリックしたら、最初のIfだけで終わっちゃうじゃん
69:デフォルトの名無しさん
13/04/03 22:22:57.47
ていうか、うちの環境だとちゃんと判定してくれるけど
70:デフォルトの名無しさん
13/04/03 22:24:35.64
>>68
ということは、>>56のレスをふまえると、最初のIfか最後のIfのRangeプロパティの
範囲のどちらかが間違っていたということですね。
ありがとうございました。
71:デフォルトの名無しさん
13/04/03 23:06:07.09
マジで言ってんのか？
もうVBA以前の問題だわ。
72:デフォルトの名無しさん
13/04/03 23:10:42.52
なんで？
73:デフォルトの名無しさん
13/04/03 23:16:58.74
この中で男以外は帰ってください。
残ったなかで女以外は帰ってください。
誰も残ってないんですなぜだかわかりません。
って言ってるようなもんだぞ。
74:デフォルトの名無しさん
13/04/03 23:29:31.73
性別があやふやな人もいるじゃないですか
75:デフォルトの名無しさん
13/04/04 01:52:44.23
このスレで女以外は帰って下さい。
そして可愛い子以外は帰って下さい。
76:デフォルトの名無しさん
13/04/04 02:02:32.49
おまえって欲望に忠実だな
77:デフォルトの名無しさん
13/04/04 06:54:09.66
デ・ルモンテの法則
78:デフォルトの名無しさん
13/04/04 13:44:42.40
VBAで画面キャプチャ後bmpとかpngで保存するとか可能ですか？
79:デフォルトの名無しさん
13/04/04 13:54:02.16
可能だよ
VB6でのやり方がそのまま使えるのでお好きにどうぞ
80:デフォルトの名無しさん
13/04/04 14:04:49.81
>>79
返信ありがとうございます。
ちょいとサンプルコード探してみたいと思います。
81:デフォルトの名無しさん
13/04/04 15:05:45.29
>>79
探したのですがコードが見当たりません。
何かわかりやすいソースコード御持ちじゃないですか？
82:デフォルトの名無しさん
13/04/04 15:19:09.45
持ってますお
83:デフォルトの名無しさん
13/04/04 15:30:25.65
>>82
貼り付けお願いできませんか？
84:83
13/04/04 15:50:07.05
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:83
13/04/04 15:50:37.62
'保存ファイル名を取得
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:83
13/04/04 15:51:34.76
これを保存ダイアログなしで自動でtestで保存。指定したセル範囲をキャプチャに改造して頂けませんか？
87:デフォルトの名無しさん
13/04/04 16:09:36.80
甘えすぎ
88:83
13/04/04 16:19:20.62
>>87
じゃあ範囲は自分で、できたから
保存ダイアログなしで自動でtestで保存。教えてよ
89:デフォルトの名無しさん
13/04/04 16:38:58.05
URLﾘﾝｸ(blog-imgs-46-origin.fc2.com)
※拡張子が 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:デフォルトの名無しさん
13/04/04 17:42:44.07
コード作成依頼に対応するなよ。
91:デフォルトの名無しさん
13/04/04 17:45:56.00
>>83
こういうお願いはこっちにしろ。
VBAなんでも質問スレ
ｽﾚﾘﾝｸ(tech板)
92:デフォルトの名無しさん
13/04/04 17:53:44.09
>>91
誘導ありがと。修正もここでしてもらると思ってたわ。
失礼しました
93:デフォルトの名無しさん
13/04/04 18:05:07.89
>>92
>>1★5を死ぬまで読んでろ。
94:デフォルトの名無しさん
13/04/04 18:22:45.23
>>92
男が書くコードは修正しません
95:デフォルトの名無しさん
13/04/04 18:45:13.45
私オカマなんたけど
96:デフォルトの名無しさん
13/04/04 18:51:04.19
事務のパソコンが壊れたため１台新しくwin8を買ったため
excelを2003から2010に変えました
それでもう一台別のXPパソコンのほうも2010にしたんだけど
win8の2010でシート上のactivXのテキストボックスを作って保存したものを
XPの2010で開くとなんとテキストボックスのサイズもフォントサイズも一回りでかくなってるという
気持ち悪い現象が起きてます｡
なんかバグっぽいけど治す方法とかありましたら教えてください｡
97:デフォルトの名無しさん
13/04/04 20:48:20.40
>>96
>>1★5
98:デフォルトの名無しさん
13/04/04 21:09:42.76
>>97
>>1
99:デフォルトの名無しさん
13/04/04 21:52:30.50
>>96
星五つだってよ、よかったな！
100:デフォルトの名無しさん
13/04/04 23:45:58.20
>>1★5に反発してた子が、>>1★5を推す奴はキチガイという印象操作のために
>>1★5に該当しない案件にまで>>1★5を指摘ししてネガキャンしてるのか
そこまで見えてくると、逆に>>1★5に反発してる子の方が
どんだけキチガイで姑息で陰湿で浅学浅慮なのか、ありありと解ってしまうな
101:デフォルトの名無しさん
13/04/04 23:59:23.84
必死すぎ
102:デフォルトの名無しさん
13/04/05 00:17:41.10
だよな
なんでそこまで必死にネガキャンしてまで>>1★5を叩こうとするんだろう？
103:デフォルトの名無しさん
13/04/05 00:18:59.16
白ももが必要以上に手厚いのがウザいんじゃね
104:デフォルトの名無しさん
13/04/05 00:39:34.51
つーか丸投げグレグレしたい奴が、ここを自分に都合の良い場に
改変したくて騒いでるだけだろ
105:デフォルトの名無しさん
13/04/05 00:41:40.83
★5そのものじゃなく、高圧的な態度
106:デフォルトの名無しさん
13/04/05 00:49:12.48
態度って、誰の？
107:デフォルトの名無しさん
13/04/05 01:22:39.49
どっちでもいいよ
むしろ7追加してこんなことで荒す奴は
来んなってしといた方がいい
108:デフォルトの名無しさん
13/04/05 03:10:01.82
最初どう言う事か分からなかったけど>>97はあの基地外が書き込んだものではないと言う事なのか？
だから>>100以降あの基地外らしき人物の自演レスが暫く続いているのか。
どっちも迷惑だから早く氏んでね。
109:デフォルトの名無しさん
13/04/05 06:35:27.10
はいはい、印象操作乙
でも他人に自演のレッテル貼る前に
自分の自演がバレないようにもう少し演技したら(￣ー￣)ﾆﾔﾘｯ
110:デフォルトの名無しさん
13/04/05 06:56:46.25
結局>>1のせいでまた荒れるのか
111:デフォルトの名無しさん
13/04/05 07:21:36.55
失礼、間違えました
×結局>>1のせいでまた荒れるのか
○結局>>1に粘着する奴のせいでまた荒れるのか
112:デフォルトの名無しさん
13/04/05 09:45:01.35
印象操作wwww
113:デフォルトの名無しさん
13/04/05 10:30:59.20
ActiveSheet.Range("A1:A2").Value
これでエラーになるの何でですかね
114:デフォルトの名無しさん
13/04/05 10:31:43.52
>>110の印象操作に、当てつけのように印象操作返しか
やるなw
115:デフォルトの名無しさん
13/04/05 10:42:06.65
>>113
それ自体はエラーにならないはずだが
返る値が配列なので、代入先が配列変数じゃないと型不一致でエラーになる
116:デフォルトの名無しさん
13/04/05 10:47:37.63
>>115
ヒント㌧。もう一度コード見直す。
117:デフォルトの名無しさん
13/04/05 12:22:11.49
印象操作返しｗｗｗｗｗｗｗ
118:デフォルトの名無しさん
13/04/05 15:32:53.88
>>116
それはヒントじゃなくて答えだろ
119:デフォルトの名無しさん
13/04/05 17:30:28.53
はやく春休み終わらないかなぁ