Excel VBA質問スレ Part7

すまんが2の人テンプレやって

ExcelのVBAに関する質問スレです

質問前に　【 >>2-3 】　あたりを良く読むこと

前スレ http://pc11.2ch.net/test/read.cgi/tech/1205231499/l50


★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。

★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。
　　　
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

過去スレ
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/

早速ですが
エクセルでＶＢＡの
プログラムで001.csv-999.csvまでのＣＳＶファイルを順に読んでアクセスＤＢに
入れたいのだが
まず変数　csvnameでＣＳＶファイルを読み込むにはどうすればいいのですか？

Accessでやれ。

はい、次。

どうやったら彼女が出来ますか？

>>5
VBAを習得してからの私はそれはもうモテモテです

>>4
エクセルでのやり方が解らないからって代替を強制すんな無能

>>7
>>4ではないが、この要件にExcelをかます意味ある？
ExcelVBAが得意な人がわざわざExcelVBAでやるならわかるけど、
ExcelVBAが使えないならAccessVBAなりVBなりの質問掲示板で質問するべきでは？

>>8
バカじゃねえのか？
エクセルVBAでって指定してんだから、意味なんかお前が勝手に判断すんなボケ

アクセスって立ち上げるの面倒くさい。

>>8
まぁまぁ、そんなイライラせずに仲良くやろうよ（＾＾
そんで、なんでわざわざExcelVBAを使いたいんだーい？

全スレ>>998

ありがとうございました。 パターン　「.*?」　の正規表現ですっきりできました。

自己解決しました。

チェックボックスをＯＮにしたらＯｆｆｓｅｔ(0,10)に"1"を入れる方法教えて下さい

できたからいいわｗ

ExcelVBAで、ｇ解決しました。

>>11
あるよ。
以上。
はい、次。

教えてください・・
エクセルVBAで質問です

二次元配列で例えば、ab(a､1)=10だとして
変数wk-hensuに、1が入っていたとします

wk-hensuの1を使って二次元配列の10の値を
取得したいのですが、どうすればよろしいですか？

さっぱり意味がわからない

>>18
ab(a､wk-hensu)=10
こうですか!?わかりません!

Dim STMM As Worksheets
Dim STEE As Worksheets

Set STEE = Sheets("平面��" & CStr(a%))
Set STMM = Sheets("データ" & a%)

オブジェクトがはいらん。なんで？
なにがいけないのか？

>>18
>>20
これが正解だと思われ

>>22
それだと取得できないぞ。

>>23
そうだね
ab(a､wk-hensu)=10　じゃなくて
新しい変数=ab(a､wk-hensu)　だね

>>21
>なにがいけないのか？

変数の型

コレクションがよくわからん。
最近、VBも使うようにしてるので、オブジェクトSetも努力しているんだが、

たとえばこの>>21のケースのように、

sheetsを特定して格納したい、workbookを特定して格納したい、
ってときはどんなオブジェクトを宣言すればよろしい？

rangeオブジェクトのときは、cell範囲指定すれば入ることはわかるがどーちがうのかな・・
頼むヒントを

いや、ヘルプ見ろよ

折れにはよくはわからんが、
Dim STMM As Worksheet
Dim STEE As Worksheet
で、だめかな？

worksheetsとsを付けたから跳ねられていると推測しただけ。

>>26
worksheets型はワークシートコレクションオブジェクト
使い方は、
dim ws as worksheets
set ws= thisworkbook.worksheets
ってカンジ
まず、worksheets型変数の使い道はない

worksheet型はワークシートオブジェクト
使い方は、
dim ws as worksheet
set ws = thisworkbook.worksheets("Sheet1")
ってカンジ
普通はこっち

セルのA1からA10と、B1からB10に数値が入っています
これをgolf(9,9)配列に入れたい場合はどうすればいいですか？
初心者なのでよくわかりません。お願いします

>>31
>golf(9,9)

10×10=100要素あるけど、どこに入れたいの？

dim golf() as variant
golf()=range("A1","B10").value
って方法もあるよ

>>32
ありがとうございます！
できました

もうひとついいですか？
先ほどの続きで

エクセルをイメージしています
　　A　B　C
1　0　0　10
2　0　1　11
3　0　2　12
4　0　3　13
5　0　4　14
6　0　5　15
7　0　6　16
8　0　7　17
9　0　8　18

golf(0,0)=10
golf(0,1)=11
　　・
　　・　
とプログラムで打つのが面倒なので、簡単に配列にセル値（ここでいうC列）を
代入できることは可能ですか？

>>33
dim i as long

for i=0 to 9
　　golf(0,i)=cells(i+1,"C").value
next i

>>34
インデックスが有効範囲にありませんとでますが
どうしたらいいでしょうか？

golf(0,i)=cells(i+1,3).value　かな

>>35
golfを適切に宣言してますか？

>>36
？？

"C"でも行けるよ
golfをちゃんとdimしてないんだろ

おっとすまんかぶった

golfはdim golf() as variantと宣言しています・・・

うん、それじゃダメだね

>>40
この場合は dim golf(9,9) で宣言する

できました！！ありがとうございます！

おお、ありがとう。
なるほどWorksheetで宣言するのか。入った入った。これでキレイなコーディングに一歩近づいた。

さっき超アツイ事をしった。

Inputbox関数
Application.Inputboxメソッド

後者のメソッドはTypeが指定できるぜ！

ブックＡとブックＢが開かれているときに、
ブックＡからブックＢのmacro1()を実行したい場合

call ブックＡ.xls!macro1
でいいのでしょうか。

やってみれば済む話だろう

それが、最近も出来ていたと思うんですが、今回、コンパイルエラーで跳ねられた。
！の所をさして、修正候補　又は（　　という具合で。
どうも、文法的に勘違いをしていたようなので、訊いてみました。
現実には、.runで解決済みですが。

ならば>>45の回答は「だめ」

超くだらねーことかもしれんが、適当な変数宣言の一般的な名称ってどんなもんがあるかね？

�@たとえば、インテジャーなら？
�Aロングなら何使う？
�Bレンジなら？
�Cワークシートなら？
�Dブーリアンなら？


俺は考えるのが面倒だからすぐバカみたいな変数宣言するので
とても人に見せれん。

TAROU
UNKO
MANKO
DEVILMAN
RAOU
KENSIROU
とかよ。

数年たっても自分のクセなんで、クチャクチャな宣言でも自分はわかるんだよね、これが。

>>49
型はさておき、その変数が指すものを表現する名前がいいんじゃないか。
太郎くんのことを表現したいのならTAROUでも差し支えないと思う。

個人オンリーのものなら好き勝手に
会社とかで、んな変数名にしていやがったら、張り倒すけどな。

一般的な変数名なんてループに使うi、j、kくらいだべ

TZEF2101
CMED9301

>>51
当然会社のやつ。俺以外はVBAの変数を理解しているやつがいないからやっちまった。

>>52
ループでそれらの変数は使うのかな？
俺の場合、ループの時はインテジャなら大体a%,b%とかで適当に回す。
なんかだれがみてもわかるような変数や構文のコツがあるかな。

たとえばプライベートサブやらを　Callするときは必ず全角文字を使うとか、コメントをつけまくるってクセは付けてる。

ループは俺もi、j、k、l、Index、この辺だな
てか会社でそんなあほなことは絶対にやめておけ
どんな業種か知らんがたいてい知らん振りしてるだけでけっこう知ってる人はいるもんだ

VBAをかなり理解してるやつ（ステートメント、条件式、階層の完全理解くらい）とか身近な人間でいる？
会社とか大きな組織とか行くと多少のVBAプログラムされているものは見るが、
バグの固まりみたいなもので、共有して使っているのが不思議なものしかみたことない。
手順書すらなくて、非常に困る。

俺的にはこんなものはプログラムではない、と思うんだが、そんなこと偉そうに言える立場ではないので
我慢してヒマを見てはコードを改造しているが、似たような境遇の人はいないかい？

>>55
以後気をつけます。　しっかし、変数名考えるのめんどくせぇーなー。
ところで、自分はあんまりやったことないんだが、↓

dim I(100) as Long

↑これってインデックス付きの変数Iを100個宣言してるんだよね？

で、代入するときは
I(1)=1
I(2)=5 とかで。

この番号ふった大量の変数Iを活用するには当然ループさせるときに効果を発揮すると思うんだが、
俺を相手してくれる暇人が居るならば、具体的になんか適当なコードを書いてみせてくれんかな？

Dim i(1 to 10) As Integer　とか俺はけっこう使うぞ

配列を効率的に使いこなせるようになったら脱VBA初心者

と、個人的に思ってる
やっとこのレベルあたりで独力で多少役に立つモノ作れるようになるんじゃない？

マスタのシートの表で0という値が入力された場合に
特定のシートを非表示にさせるには
どのようにすればよろしいのでしょうか？

>>60
Private Sub Worksheet_Change(ByVal Target As Range)

　　If Target.Address(False, False) = "A1" Then
　　　　Select Case Target.Value
　　　　　　Case 0
　　　　　　　　Sheet2.Visible = xlSheetHidden
　　　　　　Case 1
　　　　　　　　Sheet2.Visible = xlSheetVisible
　　　　End Select
　　End If

End Sub

創価ktkr

>>49はスゲーと思う。
俺なんて適当でも、ハンガリアン表記？ってやつの呪縛から逃れられない。
かといって、確実に誰でもわかるかっていったらどうなのか微妙な中途半端さ
何にもないところからデビルマンとかケンシロウが出てくるお前ってスゲーな。

RPGのキャラの名前はデフォのままってタイプだな>>64は

変数名とか普通にi、j、k…で十分じゃね？

regexpについて質問させてください。
動作的な問題では無く、何とか動かしてはいるのですが、気になることがあります。

executeメソッドは、マッチしたものを”コレクション”に格納して行くと説明文にあります。

通常のコレクションの場合、デフォルトだと MyCollection(1) から格納されて行くと記憶しておりますが、
regexpのexecuteで格納されて行くコレクションには、MyMatch(0) から格納されております。

漠然と、配列は (0) から、コレクションは (1) から、と覚えていたのですが、
regexpの”コレクション”は、VBAで定義する通常のコレクションとは異なる物なのでしょうか。

また、(0)から格納されているので、実は配列なのかと思い、joinを試したのですがダメでした。
そこで for でまわして、 MyArray(i) = MyMatch(i) と、一度配列に再格納してからjoinを行っております。
この方法について、何か最適化の手立てはありますでしょうか。

なにとぞご教授をよろしくお願いします。

>>67
CollectionとＭａｔｃｈＣｏｌｌｅｃｔｉｏｎは別物
名前が似てるからって勝手に同一視してはいけない

ていうか、ＤｉｃｔｉｏｎａｒｙオブジェクトみたいにＫｅｙｓとかＩｔｅｍｓとかって
プロパティがあればＪｏｉｎも可能だけど、ＭａｔｃｈＣｏｌｌｅｃｔｉｏｎには
ＩｔｅｍとＣｏｕｎｔしかプロパティが無いんだからどう考えても無理

>MyArray(i) = MyMatch(i) と、一度配列に再格納してからjoin

どうせループするんだから配列に格納してからＪｏｉｎなんてせず、
ループしながら連結すればいい

Dateadd使っての日付計算で困っています
シート：
A列には”注射”という文字を入れるようにします。
B列には1月1日から12月31日まで入っています。
C列はB列の90日後を入れるようにします。
D列はC列の3日前を入れます。・・・としたいのですがその3日の間A列に”注射”が入っていたらその日を入れずに3日前にしたいのです。 稼働日みたいな感じでしょうか・・・・どうしたらよいでしょうか？お願いします。
例としてB列の「1月1日」の90日後はC列「3月31日」でD列は通常「3月28日」が入っていますがB列「3月30日」の左のA列に”注射”があったらそこを無視して「3月27日」と入れたいのです。
DateaddじゃなくてDo
While〜でC列の日付より3日前にした方がいいのでしょうか…そしてA列に注射の文字列がない場合？すみません…どうしていいのかちんぷんかんぷんです…Sub count()
Dim i As Long
Dim lastrow As Long
lastrow = Range("B1").End(xlDown).Row
For i = 1 To lastrow
Cells(i, 3).Value = DateAdd("d", 90, Cells(i, 2).Value)
Next
For i = 1 To lastrow
Cells(i, 4).Value = DateAdd("d", -3, Cells(i, 3).Value)
Next
End Sub

説明が下手なのでもしよかったら実際作ったものを見ていただいた方が分かるかもしれません。

http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcf8oGbB4FXgt88k&.dir=/&.dnm=1count.xls&.src=bc

>69 こういうことですか？
　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ
−−−−−−−−−−−−−−−−−−−−−−−−−
1　空白　2008/1/1 =B1+90 =IF(A91="注射",C1-4,C1-3)
−−−−−−−−−−−−−−−−−−−−−−−−−
2　空白　=B1+1　　 =B1+90 =IF(A92="注射",C2-4,C2-3)
−−−−−−−−−−−−−−−−−−−−−−−−−
3　空白　=B2+1　　 =B1+90 =IF(A93="注射",C3-4,C3-3)
−−−−−−−−−−−−−−−−−−−−−−−−−

−−−−−−−−−−−−−−−−−−−−−−−−−
90　空白　=B89+1　　=B90+90　=IF(A180="注射",C90-4,C90-3)
−−−−−−−−−−−−−−−−−−−−−−−−−
91　注射　=B90+1　　=B91+90　=IF(A181="注射",C91-4,C90-3)
−−−−−−−−−−−−−−−−−−−−−−−−−
単に９０日後の行のＡ列の値で判断できるのであれば、ＩＦ関数でいいけど、
「その３日の間A列に”注射”が入っていたらその日を入れずに」ということ
であれば、８８日後の行、８９日後の行もＡ列に"注射"があるかどうかを
調べる必要がありますね。作業列を使えばいいようです。　　次？に続きます。

８８〜９０日後の３日間の「注射」の有無をみるのであれば作業用の３列を組み合わせる方法がいいかと思います。

　　　Ａ　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　　　　　Ｅ　　　　　　　　　　Ｆ　　　　　　　　　Ｇ　　　　　　　
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
1　空白　2008/1/1　　=B1+90　 =C1-SUM(3,E1:G1)　=IF(A89="注射",1,0)　=IF(A90="注射",1,0)　=IF(A91="注射",1,0)
−−−−−−−−−−−−−−−−−−−−−−−−−

−−−−−−−−−−−−−−−−−−−−−−−−−
89　注射　=B88+1　　=B89+90
−−−−−−−−−−−−−−−−−−−−−−−−−
90　空白　=B89+1　　=B90+90
−−−−−−−−−−−−−−−−−−−−−−−−−
91　注射　=B90+1　　=B91+90
−−−−−−−−−−−−−−−−−−−−−−−−−
上記の例では、Ａ８９とＡ９１が「注射」なので、Ｅ１とＧ１が１、Ｆ１は０なので、Ｄ１の値は３月２６日に
なります。

>>70
VBA質問スレですが…

>72
そうでしたね。しかも71まで書いちゃって。おはずかしい。
ではＶＢＡで
Ｄ列の値を設定する部分をこうしたらどうでしょう。
ループ用変数 j as long を追加したうえで、69のソースの下から４行目から３行分を
　　For i = 1 To lastrow
　　　　Cells(i, 4).Value = DateAdd("d", -3, Cells(i, 3).Value)
追加　　For j = 88 to 90
追加　　　　if Cells(i + j, 1).value = "注射" Then
追加　　　　　　Cells(i, 4).Value = Cells(i, 4).Value - 1
追加　　　　end If
追加　　Next j
　　Next
調査範囲の３日間について、注射という文字があれば各１日ずつ前の日付になります。

>>68
レスありがとうございました。
お教えの通り、

cells(i,2).value = cells(i,2).value & vblf & myMatch(j)

のような形で連結させる事ができました。
本当にありがとうございます。

>>68
まさかループしながら&演算子で連結しろって言ってないよな？

>>75
勿論そのつもり
何でまさかなのかわからん

OSはXPでエクセル２００３です。
二つの正の整数の公約数を全て求め、
セルに一つずつ表示させるようなプログラムをVBAで作りたいのですが、

a = InputBox("正の整数を入力してください。")
If a < 0 Then
MsgBox ("正の整数を入力してください。")
End If
Cells(1, 1).Value = a
b = InputBox("正の整数を入力してください。")
If b < 0 Then
MsgBox ("正の整数を入力してください。")
End If
Cells(2, 1).Value = b

If a < b Then
a = c
Else
b = c
End If

For e = 2 To c Step 1

f = a Mod e
Cells(5, c).Value = f
g = b Mod e
Cells(6, c).Value = g

Next
End Sub
ここまで書いて挫折しそうです。どなたかアドバイスをいただけませんか？

>>77
間違ってたらすまん

Dim a As Long, b As Long, c As Long, e As Long, f As Long
On Error Resume Next
Do
　　a = Application.InputBox("正の整数を入力してください。", , , , , , 1)
　　If a = -1 Then Exit Sub 'ループ脱出用 -1を入力したら終了
Loop Until a > 0
Do
　　b = Application.InputBox("正の整数を入力してください。", , , , , , 1)
　　If b = -1 Then Exit Sub
Loop Until b > 0
On Error GoTo 0
If a < b Then
　　c = a
Else
　　c = b
End If
Range("A1").Value = a
Range("A2").Value = b
f = 1
For e = 2 To c
　　If a Mod e = 0 Then
　　　　If b Mod e = 0 Then
　　　　　　Cells(f, "B").Value = e
　　　　　　f = f + 1
　　　　End If
　　End If
Next

ユーザフォームを表示したいので、以下のようにやったのですが、エラーになります。
Private Sub XXX()
　　Dim DlgInst As UserForm1

　　'インスタンス作成
　　Set DlgInst = UserForm1

　　'表示する。
　　DlgInst.Show

　　Unload DlgInst
End Sub

実行時エラー'424'
オブジェクトが必要です。


自分の理解では
CUserForm1 * pDlg;
pDlg = new CUserForm1;
pDlg->Show();
pDlg->SendMessage(WM_CLOSE);

というつもりで書いたのですが。。
VBAの場合、どうやってユーザフォームを表示するのが正しいのですか？？

>>78さんありがとうございます。
参考にさせていただきます。

>>79
VBAではダイレクトに UserForm1.Show
Unload は UserForm1 のコマンドボタンのクリックイベントなどに書く
その場合は一般的に、 Unload UserForm1 では無く、 Unload Me と書く

>>69です
どうも要件が私自身混乱してしまって・・・C列に入る日付とかは度外視してください。
とにかく入っている日付を3日前倒します。
条件はA列を参照しもし文字が入っていなければ稼働日とみなす　文字があればそういった日を抜かし
3日前倒す　としたいんですがうまくいきません　別サンプル作ってみたけど・・・ダメでした

Sub count()
Dim i As Long
Dim j As Long
Dim lastrow As Long
Dim ctr As Long
lastrow = Range("D12").End(xlDown).Row
For i = 12 To lastrow
Cells(i, .Value = DateAdd("d", 30, Cells(i, 4).Value)
Next
For i = 12 To lastrow
j = lastrow
Do While Cells(i, .Value <> Cells(j, 4).Value
j = j - 1
If j = 0 Then Exit Sub
Loop
Do While ctr < 4
If InStr(1, Cells(j - 1, 7).Value, "病院", 1) = 0 Then
ctr = ctr + 1
End If
j = j - 1
Loop
Cells(i, 11).Value = Sheets("Sheet1").Cells(j, 4).Value
ctr = 0
Next
End Sub

>>82
>Cells(i, .Value
コレは何を意味してんの？

>>81
ありがとうございます。

UserForm1は型であるという私の考え方が間違っていて、
UserForm1は型であり、オブジェクトのインスタンスであると考えるのがVBAなのでしょうか？
（どうせシングルスレッドだし、複数のインスタンスは作れないから？）

うーーーーん
VBAムズカシイ

とおもったけどやっぱり同じエラーが。

よく見たらUserForm1.Initializeで変な記述してたのが原因でした。

>>84
いや、VBAのUserFormは特別扱いだと思う
難しく考えると腹立つと思うよ
インスタンスという考え自体を意識しないでいいように設計されているんだと思う
VBA使いの98%（単なるオレの偏見）はインスタンスが何かも理解してない上に
インスタンスという言葉さえ知らないと思う
New すれば複数のインスタンスも作れるんじゃないかな？（未確認）

あくまでも、個人的な見解です

>>85
VBEの ツール - オプション - 全般 - エラートラップ を クラスモジュールで中断
にチェックすると幸せになれるよ

>>86
なるほど。わかりました！深く考えないことにします

>>87
早速やってみます。ありがとうございました

>>82です
なんかコピペしたら消えてました・・・
>Cells(i, 8).Value です

要件をはっきりさせましょう。
Ａ列：通常は空白であるが、「注射」などの文字(数字も？)が入ることがある
　　　→何かはいっていた場合に「別の行の」Ｄ列に影響する
Ｂ列：連続した日付が入る（仮定として、Ｂ２セルに2008/1/1から３６６日分入っているものとする。）
Ｃ列：Ｂ列の９０日後の日付が入る、ということでしたが、
　　　「Ｃ列の日付は度外視してください」とは、ここはＤ列の日付設定に関係しないということですか？
Ｄ列：通常ならばＢ列の８７日後の日付が入るけど、

　　　Ｂ列の９０行下方のＡ列が空白でないとき
条件　Ｂ列の８８〜９０行下の３行のＡ列のうちひとつでも空白でないとき
　　　Ｂ列の８８〜９０行下の３行のＡ列のうち空白でないセルの数だけ

処理　通常のＤ列の日付を前倒しする。

条件は３通りのうちどれですか？　上の要件になにか誤りがありますか？

要件がかなり自分でもわからなくなってしまったのでもっと単純にしてみました。文章下手ですみませんが分かりやすくなりましたでしょうか？
VBAで＊稼働日後の日付を出すとする。

A列には日付2008/1/1〜2009/3/31まで入っています。
B列には『休』とお休みに該当した日をいれます。(土日とは限らない)
例として1月1日(A1セル)が休みとしたらB1セルに『休』と入れお休み表にします。
C列には適当な日を手入力します。(規則性は全く無し)
D列はC列の3稼働日後を入れたいです。
AやB列からどうスキャンし3稼働日後を出したらよいのか…ちなみにアドイン関数は無いので使えません…よろしくお願いいたします。

稼働日に連番を振るのがいちばん簡単だな

回答ありがとうございます。
すみません。連番をふるとはどういうことでしょうか？初心者なので検討がつきません…

つまりだな
日付　休日　連番
4/1　　　　　　1
4/2　　　　　　2
4/3　休
4/4　　　　　　3
4/5　　　　　　4

こんな感じ。4/1の３稼働日後は1+3=4だから連番が4の4/5になる

印刷しようとする時にそのシートに"菓子"という言葉が無かったら印刷せず、
msgboxにて"菓子がありません"と表示するにはどうすれば良いんだよ、おしえろマクロヲタども

>91
70,71,73,90です。最初（69番の書き込み）から９０日後云々が消えちゃいましたが・・・
それから３営業日「前」の日付を求めたい、とあったのが今度は３営業日「後」の日付を
求めるんですか？
では、Ａ列にカレンダー（１月１日〜１２月３１日）、Ｂ列に何かデータがあれば休みという前提で、
Ｃ１セルに日付を入力したら３営業日｢後｣の日付を求めるということで考えてみます。
Ｃ１セルの日付がカレンダーの何行目になるのかは、
Cells("C1").Value - Cells("A1").Value + 1　で求められます。Ａ１セルを1/1としてます。
単純に３日後であれば３行下のＡ列の値でいいんですが、Ｂ列に何かあったらさらに１行下となるので、
ループを利用します。
Dim Tate As Long, i As Long
Sub D_day()
　　Tate = DateDiff("d", Cells(1, 1).Value, Cells(1, 3).Value) + 1
　　i = 0
　　Do
　　　　Tate = Tate + 1
　　　　If Cells(Tate, 2).Value = "" Then　営業日だけ
　　　　　　i = i + 1　　　　　　　　　　　カウントアップ
　　　　End If
　　Loop Until (i > 2)　　　　　　　　　　　３営業日になったらループ脱出
　　Cells(1, 4).Value = Cells(Tate, 1).Value　
End Sub
これでどうでしょうか？

９６の続き
求める日付はＤ１セルに出力するようにしてますが、６９の書き込みからいくと
基準日はＣ１のような固定ではないのかな？
何をしたいのかがイマイチよくわからない。

なんつーか・・・


いい加減にしろ

すいません95ですがホント教えてくれ

>>99
　　　　　　　　　　　　　 　　|￣｀`''- ､
　　　　　　　　　　　　　 　　|　　　　　 ｀ﾞ''ｰ- ､　　＿＿＿＿＿＿__
　　　　　　　　　　　　　 　　|　　　 ,. -‐ ''´￣￣｀ヽ､＿　　　　　 　 /
　　　　　　　　　　　　　　　 |, - '´￣　 　 　 　 　 　 　 ｀ヽ、 　 　 /
　　　　　　　　　　　　　　／　　　　　　　　　　　　　　　｀ヽ､ヽ 　 /
　　　　　　　　　　　　 _/　　　　　　　　　　　　　　　　　　　 ヽヽ/
　　　　　　　　　　 ／ / / 　 /　　/　 /　　　　　　　　　　　　ヽﾊ
　　　　　　　　　 く　 / /! 　 | 　 〃 _/__　l|　　 | | 　 |　　|　 | | ||ヽ
　　　　　　　　　　 ＼l//　/ |　 /|'´ ∧　 ||　　 | |ｰ､||　　|　 | l　| ヽ
　　　　　　　　　　　　/ハ/　|　 | ヽ/　ヽ | ヽ　 | ||　/|ヽ/!　 |/　|　ヽ
　　　　　　　　　　　 /　|　　||ヽ { ,r===､　　 ＼| _!V　|//　//　 .! 　 |
　　　　　　　　　　　 |　|| 　 |l　|ヽ!'´￣｀ﾞ 　 ,　　==ミ､ /イ川　　|─┘
　　　　　　　　　　　 | ﾊ||　 ||　|　"""　┌---┐　　｀　 /　//　 |
　　　　　　　　　　　 V　!ヽ ト! ヽ､　　　 | 　 　 !　　　　/　//|　/
　　　　　　　　　　　　　　 ヽ! ＼ハ`　､ ヽ､__ノ　 　 ,.イ/ // | /
　 　 ┌/）/）/）/）/）/）/）/）/）/）lｰ/　` ー‐┬ '´ レ//l/　|/
　　　 |（/（/（/（/（/（/（/（/（/（/│||　　　 　 |＼　 〃
　　r'´￣ヽ.　　　　　 　 　 　 　 | | ト　　　 /　 　 ＼
　 /　￣｀ｱ　　　　　　　　 　 　 | | |　　⌒/　　　　 入
　 〉　￣二)　知ってるが　　　 | | |　　／　　 　 ／/ ヽ
　〈! 　 ,. -'　 　 　 　 　 　 　 　 | | ヽ∠-----',　'´　 　 ',
　 | ＼| | 　 .お前の態度が 　 | |<二Z二￣　 ／　　 　 ',
　 | 　 | |　　 　 　 　　 　　　　 _r'---|　　[ ｀`ヽ､　　　　　 ',
　 | 　 | |　　　気に入らない　>-､__　　　 [　　　 ヽ　　 　 　!
　　＼.| l.　　　　　　　　　 　 　 ヽ､　 　 　 [　　　　 ヽ　　　　|
　　　 ヽ|　　　　　　　　　　　　　　＼　 　 r'　　　　　ヽ､　 　 |

VBA最近勉強し始めたものです。ネットで入門とかいろいろあさったですがよくわかりませんでした(汗)

質問1.マクロに登録したショートカットやVBAのプログラムって、指定ファイルの指定シートだけで有効にするにはどうすればよいのでしょうか？
VBAの画面で、左に出ているオブジェクトのＳheet1とかに目的のプログラム書いただけでは駄目なのでしょうか？
例えば、「セルA1の内容を消去」をCtrl+zに登録したとき、同時に他のエクセルファイルやシートを選択時、Ctrl+zでも
「セルA1の内容を消去」が実行されないようにしたいです。

質問2.同じセルで入出力兼用にするにはどうすればいいですか？後、入出力で同じセルのフォントを変えることできますか？
例えば、B1=A1+5は必ず成り立つとして、先にA1に10を黒字で入力したらB1に15という数字が赤字で表示され、また先にB1に
7を黒字で入力したらA1に赤字で2よ表示されるみたいなのがやりたいです。

恐らく、すごく初歩の質問だと思いますが、誘導でも構いませんので何かご教授いただければありがたいです。
よろしくお願いします。

VBAでプログラムに興味もったがExcelVBAでなんでもできすぎて他のに興味がいかない。

>101
マクロのはじめの方にカレントブック、カレントシートを取得する部分を書いて、
処理を許可する対象のブック、シートと同じなら処理を続ける、異なるなら
マクロを終了するという分岐を入れたら？
ブック名とシート名の取得は↓を参考にしてください。
Sub test_sub()
　　MsgBox ("処理対象のブック名は : " & ActiveWorkbook.Name)
　　MsgBox ("処理対象のシート名は : " & ActiveSheet.Name)
End Sub

>101
質問２の方
以前のスレのＦＡＱを参考にしてみました。
シートに以下のマクロを書いて、適当なセルに数字かなにか入れてみてください。
セル位置と入力した内容をメッセージボックスに表示する処理です。
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim adr As Variant, naiyo As Variant
　Application.EnableEvents = False
　adr = Target.Address
　naiyo = Target.Value
　Application.EnableEvents = True
　MsgBox ("セル位置：" & adr)
　MsgBox ("セル内容：" & naiyo)
End Sub
セル書式の設定はマクロの記録をやってみてね。
以上

>>96さんありがとうございます。
今までの書き込みは全て”リセット”という意味で書きました。
問題を単純化し応用したいためです。なので90日は要件から外しています。
私自身の要件がしっかりしてなくてすみません。
A列：日付2008/1/1〜2009/3/31
B列：休みの印を付ける欄（4月1日が休みだったらその横にあるB列に「休」と入れるだけ
C列：何日後といった規則性は全くありません　”手作業”で適当に日付入れるところです。
D列：C列の３稼働日を出すセルです。
方法がどうしたらよいか想像がつきません。
このような結果が欲しいというのを見てもらった方がいいかもしれません。
http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bclxRHbB_q.izEUN&.dir=/&.dnm=%b2%d4%c6%af%c6%fc.xls&.src=bc

>105
こんなんでどうですか？
ところで、アップされたブックのファイル名はなんだったんですか？文字化けしてたようですが。
Option Explicit
Dim Tate1 As Long, Tate2 As Long, c_shift As Long, i As Integer
Sub sample()
　　c_shift = 2 ' A2からカレンダー始まる
　　Tate1 = 2 ' Ｂ列の開始行位置
　　Do
　　　　If IsDate(Cells(Tate1, 3).Value) Then ' Ｃ列の値が日付かどうか
　　　　　　Call D_day(Tate1)
　　　　　　Tate1 = Tate1 + 1
　　　　Else
　　　　　　Exit Do ' 日付じゃなければ処理を終わる
　　　　End If
　　Loop While (1)
End Sub
Private Sub D_day(w_Tate As Long)
　　Tate2 = DateDiff("d", Range("A2").Value, Cells(w_Tate, 3).Value) + c_shift
　　i = 0
　　Do
　　　　Tate2 = Tate2 + 1
　　　　If Cells(Tate2, 2).Value = "" Then '営業日だけ
　　　　　　i = i + 1 'カウントアップ
　　　　End If
　　Loop Until (i > 2) '３営業日になったらループ脱出
　　Cells(w_Tate, 4).Value = Cells(Tate2, 1).Value ' Ｄ列に出力
End Sub
ところで、実際にアップされたブックで実行してみたら、結果が異なる部分がありました。
Ｃ３セルの２月１０日の３稼働日後は２月１５日ではありませんか？（２月１３，１４日は
「休」ですよ。）他にもいくつも結果が異なっている部分があります。というかほとんど。

>>102
俺もそう。
内側からの操作の方がやりやすいし、外からやりたい時だけ無料のVBで
適当に動かせば問題なし。

強いて言えば、シートをスクロールさせるプログラムを組み込まないと画面が見づらい程度か。

>>105です　ありがとうございます。
なんとか光明が見えてきましたが・・・
If Cells(Tate2, 2).Value = "" Then '営業日だけ
で実行時エラー1004　アプリケーション定義またはオブジェクトのエラーがでました。
当方Excel97を未だに使用なので原因はこれですか？
ファイル名は稼働日.xlsです。根本的に3稼働日の数え方が間違ってました・・・すみません

>107
Excel97は久しく使ってない。　けど変な動きをするのであれば
コメント部分は消してください。'の前の空白も含めて。

間違えた。
>108だった。
もう寝る。

>>76
普通は&演算子で連結しない。
だんだんサイズを大きくしていくのはメモリ確保に時間をとられる。

>>110さんありがとうございます。やっぱりバージョンみたいでした。これを応用して3稼働日前やってみてますがうまくいきませぬ…なんでだ…(;_;)

>112
Excel97でも問題ないです。現に、1997年ものの日立フローラ（Windows95,Excel97）で
試してみましたがエラーにはなりませんでした。ソースに間違いがあるはず。
Option Explicitを先頭に入れてますか？これで変数の間違いはチェックできます。

自分のフローラは液晶一体型デスクトップですが、昔のパソコンは丈夫ですね。
当時実売価格５０万以上もした代物です。Linuxでも入れて見ようかと思ってたとこでした。

>>111
言ってることはわかるが、コードのエレガントさを取るか
０コンマ０何秒を惜しむかの個人の好みの問題かと

> 普通は&演算子で連結しない。

コレは無い。普通にやる

＞コレは無い。普通にやる
ダメだこりゃ。

>>111
なるほど、俺も最初はわからなかったがそういうことか。言語が内部でどう処理するか考えてるつもりだったが…
メモリ確保のことまで考えてなかった、教えてくれてありがとう。ループのときは気をつけよう。
ＶＢＡのスレなのに言語の仕組みとか機械語とか知ってる人がいるとは…
うかつなこと書き込めないな。ちなみに今回この板の初書き込み。

>>115
いや、時間がかかるってのは確かだし認めるよ
しかし、実測してみたが100文字を100回(計1万文字)を1万回試行して差は5秒程度
100文字を100回連結しても差は1万分の5秒(0.5ms)だよ

この為に格納用の配列変数を要素分確保して、Excel2000(Excel2002？)から採用のJoin関数を使うのと、
文字列変数を1つ用意してループで直接連結して最初(又は最後)の余計な連結記号を削除するのは、
どちらが正解って問題なのかな？

Excelのマクロごときでそんな細かい事を気にする奴は神経症

Textボックスにフォーカスがあたったときに、
あるTextボックスの場合は日本語入力をONにして、
別のTextボックスの場合は日本語入力をOFFにしたいのですが、
そういう制御は可能ですか？

自己解決

ttp://www.vba-world.com/ime_ctrl.html
すんまそん
ここで書いてありました

>>120
Excel2000以降ならJoin関数が簡単だし、それより前のバージョンならMidステートメントがデフォ

>>121
Mid関数の方だよね？

VBAで作成したファイルが、エクセル終了しないと開けませんorz
拡張子がtxtだと開けるのですが・・・

>>121は、たとえばA1:A50000に各6文字あるデータを","で連結してみりゃ&演算子がいかに遅いかわかる。
1文字の区切り文字での連結なら>>124が書いてるMidステートメントが最速で、次がString型の一次元配列に格納しなおしてからJoinだ。
Midステートメントが0.15秒、Strng型の一次元配列に格納してからJoinが0.2秒なのに対して&演算子は約:52秒。

>>127
Midステートメントそんなに速い？
どうやったらJoinより速くなるんだろ?
まだまだ俺は修行不足だな。
まぁ俺は手軽なJoinしか使うつもりはないけどな。

>>124
納得しました、ごめんなさい
半年ROMるよ

50000回の結合とかどんな場面だよ

まあぶっちゃけマクロごときで２，３秒遅くなっても問題ない

>>122
Mid関数じゃなくてMidステートメント
ただしVB6まで使える技法で.NETでは速くならない。

>>125
バリバリにチューニング工夫してやっと速くなるが、普通にやるとJoinが速い。
連結はJoinが普通だね。

キモ

向上心のないやつは自分の知らないこと書かれると気分が悪くなるよなｗ

貧民的プログラミングってやつだねえ
がんばれよ

>>130
まさか必要な長さの文字列を最初用意するとき、String$関数使って(6+1)*50000-1個の","を用意するんじゃないよな？
それならMidが速いのは俺でもわかる気がするが。
それとも2回ループ回してもMidが速いの？

MidはさておきJoinは貧民的じゃねーな。
ってか昔はMidは常識だったんだが。

MidとかLeftとかきもいよ。
いーかげんベーシックなんて捨ててほしい

上っ面だけお化粧（？）して実態はただのパクリで出来た言語の呪縛
ﾊﾟくるしか脳のないゲイつ君。
化粧かどうかも怪しい。

既にC言語で解決されてきたポインタやステートメントなどの言語仕様を
なぜ新たに別のキーワードでリプレイスするのか。
その結果、脳内置換しながらプログラムする不便さだけしか感じない。

switch文をselect caseにしたからって何か良いことあるのか考えてほしい
MSはもっと意味のある新しいものを作れよ

>>134
各セルが6文字ときまってりゃそうするが、何文字かわからなくても動くように2回ループ。
Len関数は最初のループで使うだけ。
2回Lenを使ってもたいして時間はかからんが。

>>137
そうなのか。
色々やってみるが、どうも俺の実力じゃJoinより速くならん。
諦めてJoin使うことにする。

>>112です色々ありがとうございます。要件を変えてみて３稼働日前を出したいのですがうまくいきません。
３稼働日前がでるつもりで計算をしているのですが何故か3稼働日以上マイナスしてしまっています。
また閏年の所を空欄にしているのですが空欄にしてしまうためおかしくなってしまいます。
どなたかご教示いただけないでしょうか。（泣）
http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcNR4HbBuvqy__Ra&.dir=/&.dnm=6.14.xls&.src=bc

Dim Count As Integer
Dim k As Long
Dim n As Long
　　　n = 12

　　　　　Do While Cells(n, 7) <> ""
　　　　　　　k = DateDiff("d", Range("D12"), Cells(n, 7)) - 2
　　　　　　　Count = 0
　　　　　Do
　　　　　　　If Cells(k, 6) <> "休" Then
　　　　　　　Count = Count + 1

　　　　　　　If Count = 3 Then
　　　　　　　　　If IsDate(Cells(k, 7)) Then
　　　　　　　　　Cells(n, 8) = Cells(k, 4)
　　　　　　　　　End If
　　　　　　　Exit Do
　　　　　　　End If
　　　　　End If
k = k + 1
Loop
n = n + 1
Loop
End Sub

>139
106のままではだめですか？
カレンダー（連続した日付）は連続してないとだめです。うるう日をあけるとおかしくなります。
１月１日の日付を表す数値(39083)とＧ列に入れた日付を表す数値(G12ならば39112）の差を元に
Ｇ列に入れた日付がＤ列のどこになるのかを計算で求めているからです。カレンダーが連続して
ないのであれば、Ｇ列に入れた日付がＤ列のどこになるのかを求める処理も加えなければなりません。

ソースをみましたが、これで動きますか？
Do While Cells(n, 7) <> ""　は　Do While Cells(n, 7).Value <> ""　でしょう。
他すべて　.Value が抜けてますよ。
「何故ここで止まってしまうか理解できません」は、Cells(21,7).Value が　""で、ループ継続の
条件からはずれるからです。Ｇ列に空欄がありうるのであれば、ループの終了条件を明記したうえで
３日前の日付を求める処理をIf文で実行しないようにすべきです。

もう一度１０５で示されたブックと１０６の内容で試してみてください。エクセル９７で動くことは
私の１９９７年ものＰＣで確認してます。ただし、各ソースの左側の空白は２バイト空白を入れている
のでタブなり半角スペースで置き換えてください。そしてＧ列は空白セルを入れないようにしてください。

よく見たら、また３日「前」になっている。おちょくられているような気がするのでもうやめた。
あとは自分で考えて！

横レスだが、質問回答は誰が誰でかよくわからないwww
おそらく、if文の判別式が正しく動いてないだろうから、自分で調べるのが最善。
定義と判別式がマッチしていないから、要求された動きが出来ていないと読んだよ。

だから稼働日に連番をふればいんだってば

本当にすみません。私自身がグチャグチャで混乱して迷惑をかけてしまって・・・
>>141さん本当に親切に考えていただいて感謝しています。
>>112であるように似たような課題を与えていただいて逆のバージョンの「前」を
応用して作ってみていたわけですがどうもうまくいかず。
出来るだけ自分の物にしようと試みたのですがそれが逆に迷惑をかけてすみません。
本当におちょくってはいないので許してください。


>>143さんありがとうございます。
稼働日に連番をふればいいとのことですが手作業入力した日にたいしてどう稼働日
をふればよいのでしょうか？初心者ですみません・・・

連番をふるのは　手作業入力した日　じゃなくて　１４０で書いてるカレンダー　の方でしょ。
普通のサラリーマンの勤務形態でいえば、1/1〜1/3は年始休暇、1/4(金)が１、1/5,6が土日の休で
1/7(月)がやっと２、という風にカレンダーの隣の列の勤務日に最初に一連番号を入れておく。
先にそういうことをやっておいてから　手作業入力した日　が一連番号のどこに相当するのかを
調べて、３日前だったら−３した一連日に相当する日付が求める答えになる。
ただし、手作業入力した日　が休みの日だった場合は一連日がないので−３しようがない。
先に示された１０６で３日後の処理がちゃんと動くかどうかを先にすべきでは？
これを３日前にするのは一カ所　＋　を　−　に変更するだけなんだけど。

143
横レスやけど連番ふるのは無理やで〜
145も言ってるけど該当した場合の処理が面倒や

日付　休日　連番　手入力した日　　修正した手入力した日　　３稼働日後
4/1　　　　　　1　　　　4/1　　　　　　　4/1　　　　　　　　　　　　　　4/5
4/2　　　　　　2　　　　4/2　　　　　　　4/2　　　　　　　　　　　　　　4/6
4/3　休　　　　　　　　4/3　　　　　　　4/2　　　　　　　　　　　　　　4/6
4/4　　　　　　3　　　　4/4　　　　　　　4/4
4/5　　　　　　4　　　　4/5　　　　　　　4/5
4/6　　　　　　5　　　　4/6　　　　　　　4/6

手入力した日が休日で、連番のない日だった場合は、直前の連番がある日を
修正後の手入力した日とする。３稼働日後は修正後の手入力した日の連番に＋３すればおｋ

それより、休みの日の連番を空欄にするんじゃなく、直前の連番と同じにする方が
簡単かも

>>136
キーワードはともかく、Select Caseはbreakが要らないのが便利だと俺は思っている。

>147
日付を手入力するとき、その日付が休みなのかどうか調べる必要があるので（規則性がないらしく
離れた日付だと表をスクロールさせないとわからない場合もある）入力時の手間がかかります。

>148
連番に重複があったらあったで問題があります。
１４７の表で、３稼働日前　を調べるものとして考えてみます。4/3（休）の連番の列に２を設定
しておくと、仮に手入力した日（修正した手入力した日）が4/6（連番：５）の場合に、
５−３＝２　ということで「下から上に」調べていくと4/3が先に該当してしまうんですね。
「上から下に」調べればいいんでしょうが、たった３日前を調べるのに先頭から順に調べていくのは
なんか無駄なような気がする。ちょっとうえのレスでは演算子の違いによるミリ秒の処理時間の違い
のことで論争になってたし。

全くの初心者の質問ですみません。

Sub syozoku()
Dim busyo As String
Select Case Range("C10").Value
Case "a"
busyo = "総務部"
Case Else
busyo = "正しいコードを入力してください"
End Select
MsgBox busyo
End Sub

これで、C10にaを入力しても、
メッセージボックスに”正しいコードを入力してください”とでます。
Office 2007 professional edition＞Excel 2007、windows XPですが、
新たにDLなどが必要なのでしょうか。

>151
当方WindowsＸＰのExcel2003ですが、ちょっと確認。
セルＣ１０に１バイト文字の a を入れているのか、２バイト文字の ａ を入れているのか、
区別してますか？
ＶＢＡソースにはどちらを指定していますか？
セルＣ１０の隣（Ｄ１０セル）あたりに =code(C10) の計算式を入れてみてください。

1バイトのAでもaでも2バイトのＡでもａでも動くようにStrConvとかLCaseとかいろいろ使えばいいじゃん。

回答有難うございます。
>>152
＞セルＣ１０に１バイト文字の a を入れているのか、２バイト文字の ａ を入れているのか
これは区別しています。

＞ＶＢＡソースにはどちらを指定していますか？
開いているすべてのブックに保存しています。
作業中のブックにするべきなのかも。

セルＣ１０の隣（Ｄ１０セル）あたりに =code(C10) の計算式を入れてみてください。
＞やってみました。C10に100をいれると49が帰ってきました。
これが原因かも。codeについて調べてみます。

>>153
助言ありがとうございます。
調べてみますが、全くの初心者のためなんのことか分かません。
すみません。

>154
Ｃ１０セルに a を入れたらどうなるのかを確かめてほしかったんだけど。
それから
　＞ＶＢＡソースにはどちらを指定していますか？
　開いているすべてのブックに保存しています。
　作業中のブックにするべきなのかも。
の件、誤解してます。ＶＢＡソースには a(１バイト)、ａ(２バイト)のどちらを
指定しているのかを尋ねたのです。ソースを記録している場所のことではありません。

あとは１５３さんが書いているように、大文字・小文字、１バイト・２バイトを
入れてもＯＫなようにするには工夫が要ります。１５３に示された関数(？)をググって
みてください。私もこの板を含むインターネットでずいぶん教えてもらいました。
がんばってください。

> 大文字・小文字、１バイト・２バイト
Option Compare Textを使うと簡単お手軽な気もするが諸刃の剣
モジュール分ければいいだけの話だけど

＞＞155,156
回答有難うございます。がんばってみます。

誤解していた件ですが、どちらも１バイトの文字に間違いありませんでした。
"a"ではなく、case 100 のように、数字で指定しても
case else 扱いになってしまうのです。

>157
うーむ、なんだろ。
考えられる原因としては、Ｃ１０セルに　a_　（_は半角スペースと思ってください）と入力したか、
ＶＢＡソースの方の"a"の　aの前後どちらか（あるいは両方）にスペースが入ってしまったか、
とにかく比較するふたつが一致しないといけない。
Ｃ１０セルの書式をプロポーショナルではない（Ｐのつかない）ＭＳ明朝なりゴシックの大きめの
フォントに設定して、本当に１バイト文字になっているかを確認してみてください。

それから　100　は数字としてなのか　３文字の"100"なのかでも変わってきます。　case 100　と
あるのであればＣ１０セルにも数字の 100 と入力しないといけません。
こちらのExcel2003で１５１のソースを貼り付けてちゃんと　総務部　と表示されたので、ソースの
内容に間違いはないはずです。

＞Select Case Range("C10").Value
＞Case "a"

そのコードはちゃんとコピペでこのスレに張ったか？
この部分にスペルとか何か間違いないか？

出来損ないでスソマソン　どうしてもIF文がうまくいかないでつ・・・

F3の値が6で割り切れないとき30行目を削除して割り切れたときはF4の値が6で
割り切れるかみて割り切れないとき40行目を削除ってこれじゃおかすぃ？？

Sub limit()

If Range("I1").Value = 0 Then
Range("I1").Value = 1

If Range("F3").Value Mod 6 <> 0 Then
Rows("30:30").delete
Range("I1").Value = 1
Else
If Range("F4").Value Mod 6 <> 0 Then
Range("40:40").delete
Range("I1").Value = 1
Else
Rows("40:40").delete
Rows("30:30").delete
End If
End If
End If

End Sub

Sub limit()

If Range("I1").Value = 0 Then

Range("I1").Value = 1

If Range("F3").Value Mod 6 Then
Range("30:30").Delete
ElseIf Range("F4").Value Mod 6 Then
Range("40:40").Delete
Else
Range("40:40").Delete
Range("30:30").Delete
End If

End If

End Sub

>>151
シートの指定がされて無いけど、実行時のアクティブシートが違うとかは無いの？

>160
実行結果はどうだったの？

それから行削除の処理には関係ないけどＩ１セルへの無駄な代入文２カ所あり。

Sheet1の適当なセルにhogehogeと書いて

Sub test()
Dim r
Set r = Sheets("Sheet1").Range("a1:z50").Find(What:="hogehoge", LookAt:=xlWhole, SearchOrder:=xlByRows)
Set r = Sheets("Sheet1").Range("a1:z50").Find(What:="hogehoge", LookIn:=xlValue, LookAt:=xlWhole, SearchOrder:=xlByRows)
End Sub
を実行すると、
WindowsXP SP2, Excell2003 sp3では
１つ目のFindはちゃんと動きますが
２つ目のFindで
　実行時エラー'9' インデックスが有効範囲にありません
と怒られます。LookInを指定すると怒られるようです。

WindowsXP SP3, Excell2000では問題なく意図したとおりに動きます。
Excell2003でもLookIn:=xlValueを指定したいんですが、どうしたらいいですか？

>164
こちら（XP sp2　Excel2003 sp3）でも同様の症状を確認しました。
対策は・・・誰か詳しい人頼みます。

LookIn:=xlValueをLookIn:=xlValuesとしてみなよ。

http://www.nbcom.co.jp/PC-Support/FAQ/xls/tr/xls052004tr002.shtml

Excell2000で動作を確認しました。Excell2003での動作は明日確認します。

>166
ありがとう

バッチリ動きました。
ていうか、LookIn:=xlValueで動くほうがおかしい。
もっと言えば、実行時エラーじゃなくて、コンパイル時エラーが出てもいい。
xlValueってグラフで使うやつらしい

いや、ただの定数だし・・・

>>169
定数を理解してたらこんなこと書かないって

>>168
イミディエイトウィンドウに
?XlValue
って打ち込んでEnterキー押してみ、正体分かるから

>>164
俺はFindメソッドにxlValueを使ってたDQNを知ってる。
グラフが好きだったから使ってたんだろう。
たまたま動作が同じだからって、たとえばSpecialCells(xlCellTypeConstants)の代わりにSpecialCells(xlFilterCopy)なんてやったら
ヴァカって言われるよな。


>>169
彼が言うようにグラフで使うときのために用意された定数なんじゃない？
x;lAxisTypeクラスってそうなのかな？

なんか164もDQNみたいな書き込みになったな。
すまんな

>>171
何のために用意されたにしても、ただの定数。
結局、メソッドの引数が不正だったってだけの話なんだから
コンパイル時エラーじゃなくて実行時エラーなのは当然でしょ、って話。
引数には変数や式も使えるんだし。

最近VBAを触りはじめたのですが、全く分かりません

指定されたファイルがあれば、そのファイルを現フォルダから別のフォルダへ移動させたい。
指定されたファイルが無い場合はマクロを終了。

ファイルを別のフォルダへ移動はできましたが、指定されたファイルを探すのが上手くできません。

別のサイトへ誘導でもかまいませんので、教えて下さい。
よろしくお願いします。

やだ

>>174
Sub test()
If Dir("c:\tmp.txt") <> "" Then
MsgBox "存在します。"
Else
MsgBox "存在しません。"
End If
End Sub

可能でしたらどなたか教えて頂けませんか・・？
Ａエクセル起動時のUserForm1が起動して
他のエクセルに切り替えた時にそのUserForm1はHideします
その後、Ａエクセルに切り替えた時に再びShowするのですが

UserForm1がアクティブになっているためＡエクセルの編集を続行するためには
適当なセルをクリックしないといけません。
試しにShowする時にRange("A1").Select等を試すも結果は同じ

何とか解決する方法はありませんでしょうか？

>177
４行目の

その後、Ａエクセルに切り替えた時に「再びShow」するのですが

この「再びShow」が問題では？　Ａエクセルの編集をするのであれば
「Ｈｉｄｅ」したままにしておけばいいだけでは？

それとも、
他のエクセルに切り替えた時にそのUserForm1はHideします
というのが、単に別アプリ（別のエクセル）が前面に出たから見えなくなっただけ
なのでは？

例えば指定の曜日とかは自動的にフォントを赤にしたりできるけど、
やっぱりマクロでも祝日はムリかな？

>179
曜日は７日周期だから計算で機械的にもとめられますが、
祝日は機械的にさだまっていません。有名なところでは春分の日、秋分の日。
さらに祝日は法律で定まったり日付そのものを変更したり（成人の日、体育の
日、海の日など）とあるので、エクセルなどに実装するのは無理です。
なので、祝日をマクロで実現するには祝日（たぶん振り替え休日も含めてと
思うが）をリストにしておいてマクロで該当する日をチェックして、エクセル表
の該当する日付のセルの塗りつぶしを行うという手順になります。
リストを用意できるか、リストの変更をどう行うかがカギです。

うい

>>179-180
ttp://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#VBA

>>177です
この「再びShow」が問題では？　Ａエクセルの編集をするのであれば
「Ｈｉｄｅ」したままにしておけばいいだけでは？

UserForm1はＡエクセルの作業時に役に立つボタン等を実装しているので
Showしておかないと不便なのです。。。

他のエクセルに切り替えた時にそのUserForm1はHideします
というのが、単に別アプリ（別のエクセル）が前面に出たから見えなくなっただけ
なのでは？

ちょっと当方の書き方が不十分だったのかもしれません
大前提としてＡエクセルで作業中の時はUserFormはいて欲しく
他のエクセルに切り替えた時にはUserFormは不要なので
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
UserForm1.Hide
End Sub
で隠します、そしてＡエクセルに戻した時には
UserFormは必要になるので
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
UserForm1.Show
End Sub
で、再び表示されるのですが、その時フォーカスは
UserForm側にいてセルにいないので
いちいち、セルをクリックしてフォーカスをセル側に切り替える必要がある
これが面倒なので、Ａエクセルに復帰した時に
どうにかならないものか。。。。と思っています。

XP Excel2003での質問なんですが

If x = 1 Then GoTo LB1
ElseIf x = 2 Then GoTo LB2

と記述しているのに
「Elseに対応するifがありません。」と出ます。
間違っているところはどこなんでしょうか？
必要があれば追加文若しくは全文出します。

>>184
Thenの後は改行してみたらどうですか

>>185
おま…MSに消されるぞ

というかGotoなんか使うな

>>185
>>184

>>185
ありがとうございます！
その部分はそれで解決したっぽいです

Sub Copytest()
Sheet2.Visible = xlSheetHidden
Sheet3.Copy after:=Sheet1
Sheet2.Visible = xlSheetVisible
End Sub

こうやるとsheet3(2)がsheet2の後に追加されてしまいます
Sheet1の後（Sheet2の前）にSheet3のコピーしたいのです

要は隠されてるシートの前にシートのコピーを挿入したいんです
今はSheet2のVisibleプロパティを一旦HiddenからVisibleに、
copy処理してから再びHiddenに戻すという方法をとってるんですが
もっとスマートな方法はないものでしょうか？

>>186
俺はバンバン使ってたよ、２０年前に、ポケコンで、懐かしい・・・

excel2007でマクロを今は亡きツールバーに登録するマクロが含まれるアドインを使ったら
消せなくなってしまった。消し方を教えてください。

この方法で追加したのを↓

Dim o_cmdbar As CommandBarControl

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("あ").Delete
Set o_cmdbar = Application.CommandBars("Worksheet Menu Bar").Controls. _
Add(Type:=msoControlPopup)
o_cmdbar.Caption = "い"
With o_cmdbar.Controls.Add(Type:=msoControlButton)
.Caption = "う"
.OnAction = "え"
End With

本来はこれ↓で消すはずだった。
Application.CommandBars("Worksheet Menu Bar").Controls("メニュー").Delete

↑だけど追記で。アドインっていうリボンの中に作られたメニューを消したい。

そりゃツールバーじゃなくてメニューバーだ
そしてそのコードじゃExcelのバージョンがいくつでもマトモに動かんよ

>>189
ただ単純にbefore:=sheet2で解決しない？
ただし、実際に動作確認してないから分からないけど。

>>194
実はそれも同じ結果になってしまいまして
どうしてもHideされたシートは自身の前位置を譲ってくれません
Worksheets.Addで追加する場合は問題ないんですけどね
なんなんだろう？

>>195
じゃあ、コピー処理した後に並べ替え処理したらどうかな？

ありがとう
並べ替えのループ処理に頼らなくても
一旦VisibleとHiddenを切り替えて、その間コピー処理することで一応解決はできてるんですが
なんだか不細工だなあと
仕様ということ納得します

>>197
その気持ちわかる、俺も別の件ですっきりさせようとしたがむりで仕様ということで納得した

VBAでセルの色などを変えようすると”実行時エラー　１００４”と出てしまいます。
シートを保護してますが、そのセルのロックは外してます。

他に何か原因はあるでしょうか？

その部分のソース貼れ

こんなです

Private Sub Worksheet_Change(ByVal target As Range)

'雇用形態のセル
Dim formRange As Range
Set formRange = Range("A1")

'雇用形態のセルを塗りつぶしなしにする
With formRange.Interior
.Color = vbRed
End With

'オブジェクトの解放
Set formRange = Nothing

End Sub

質問です。よろしくお願いいたします。

あるセルに設定されている「入力規則」の値を全て取得することは可能でしょうか。

>>201
シートを保護するときに、"セルの書式設定"のチェックを入れないとダメなんじゃ。

>>203
2003とかならそうだと思う。状況からみて2003あたりを使ってそうだけど。
勘違いでなければ、2000あたりはそのチェック項目が無いような気がしたので、汎用性を持たせるなら一回シートの保護自体を解除して処理した方がいいと思う。
そして、処理終了後に再度、シート保護処理を実行する。

>>201
処理と説明が合ってないよ。
塗りつぶしなしにするって書いてるけど、処理自体は赤くするになってるよ。

>>203
うまくいきました。
ありがとうございます。

>>204
やはり、その方法の方がいいでしょうか。
ありがとうございます。

>>205
すみません。

二つのBookを用意して、呼び出し元から、呼び出し先Bookのシートにある
メソッドを実行したいと思いますが、出来ません。ご教授ください。



呼び出し元Book.xls
　Sheet1

Workbooks.Open Filename:="呼び出し先Book.xls"
Set wk = ActiveWorkbook

Call wk.Sheets(1).DoExecute()　'エラー

呼び出し先Book.xls
　Sheet1

　　Public Sub DoExecute()
Msgbox "Hello"
End Sub



実行時エラー40036：アプリケーションの定義またはオブジェクト定義のエラーです。
と表示されます。

俺の人生はエラーですがどうすれば直りますか

あるPublic関数を、ユーザー定義関数の用法でワークシート上から駆動させたとき、
関数内のWorkbooks.Openメソッドがうまく機能しない、という状況について、
ご意見を伺いに来ました。
ちょっと長文になってしまいましたが、聞いてください。

月ごとの売上データが保存されているExcelブックがあって、
それぞれ次のようなブック名で保存されています。
（ 2007-04.xls, 2007-05.xls, 2007-05.xls … ）
これらのファイル群から、ある特定の月の売上金額を抜き出す
Uriage関数を書いたんです。
たとえば #2007/4/1# を引数で渡すと、07年4月の売上金額が
戻ってくるような関数です。関数の中身はとても単純で、
１）渡された日付をもとにどのブックを開くべきか判断
２）そのブックを開く（Workbooks.Openメソッド）
３）必要な値を読み込む
４）ブックを閉じる
５）値をリターンする
という流れになっています。
この関数、他プロシージャから呼び出して使う分には、
問題なく動作し、なかなか便利です。
そこで、ユーザー定義のワークシート関数として使えるだろうか、
と思い、セルに次のように入力してみました。
=Uriage(2007/4/1)
しかし残念ながら エラー値 が戻ってきました。
処理をトレースしてみたところ、２）のところでブックが開きません。
どうやら、Workbooks.open メソッドは、ワークシート上の関数から
駆動させた場合は機能しないようなのです。
どうして、このような挙動になってしまうのでしょうか。
またこの他に、ワークシート上からではうまく機能しないメソッドを
ご存知の方はいらっしゃいますか。

これかな
http://support.microsoft.com/kb/170787/ja

>>208
一度、小学生にダウングレードして再起動

ﾊｧﾊｧしかけたけど、野郎なのか。だったら市ね

>>210

ありがとうございました。まさにそれです。
そういう仕様になっているということが
たいへん良く分かりました。

ちなみに、色々試してみたら、
テキストファイルのopen、read、closeは
ユーザー定義関数からでも上手くいくようですね。
Excelブックを開くより、読み込みがかなり速いので、
けっこう重宝しそうです。

>>207
Sheetオブジェクトに記述されたプロシージャは、
そのSheetオブジェクト以外の場所からは呼び出せません。

他のブックからも呼び出せるプロシージャを作りたいなら、
まず標準モジュールを追加して、そこにPublic Subプロシージャを
記述します。

作ったプロシージャの呼び出し方については、
"Run"メソッドを検索してみてください。

A1からC1までをセル結合した状態でInputBoxを使用してA1〜A3までを選択した場合に、
A1：C3になるのですが、これをA1:A3と取得する方法はありますか？ご教授ください

優秀な方に伺いたいです！
あるブックのシートにあるデータを計算して、
他のブックのシートにその結果を出力したいのですが・・・

'結果を書き込むブック
Set objWb = Workbooks.Open(strFileName)

このようにオープンすると本当に立ち上がって見た目がよくないです。
裏でオープンして出力できる方法はないでしょうか？

どうぞよろしくお願いします。

>>216
完璧に画面更新が止まってもいいならapplication.screenupdating=Falseを使用すれば開いてるところは見えないはず。

一つ教えていただきたいのですが、
12
24
35
46
2
34

とあった場合で、
最小値をこの中から探し出し、
その最小値の行番号を出す方法、
もしくは、載っている本を教えていただけますか。
お願いします。

Excelが大好きな婦女子です。
もっぱらワークシート関数と記録マクロを駆使して
仕事で個人的に利用するささやかな入力フォームを作って楽しんでいますが、
最近ExcelのVBAとAccessに興味を持ち始めて独学中です。

そこで質問ですが、ExcelとAccessのVBAが使いこなせるようになったら
"プログラマ"として食って行けるでしょうか？
他の言語は全くわかりません。

現在のところ自分としてはOffice使いに毛の生えた程度の"プチグラマ"
だと思っています。

派遣社員でも、正社員でも構わないのですが、諸事情により
残業が月10時間程度しか出来ません。
VBAオンリーのプログラマでデスマ（すなわち残業）を避けて生きていくことは
可能でしょうか？

誰かVBAプログラマの現状を教えてください。

>>217
はい、ありがとうございます！
これを使ってなんとか工夫してみます！

>>218
もっと簡単な方法があるかもしれないけど、俺はプロじゃないからすぐ思いつくのはこの程度かな。
もし良かったらどうぞ。変数も今、適当に付けたから分かりにくいのはごめんね。

Sub 最大表示()
Dim MyRow As Integer
Dim MyRng As Range
Dim Res As Integer
Dim AnsRow As Integer

MyRow = Range("A65536").End(xlUp).Row

Res = 0
For Each MyRng In Range("A1:A" & MyRow)
If Res < MyRng.Value Then
Res = MyRng.Value
AnsRow = MyRng.Row
End If
Next MyRng

MsgBox AnsRow, vbOKOnly + vbInformation, "結果"
End Sub

>>221

素早い回答ありがとうございます。
早速使わせていただきます。

俺が婦女子だったら、ＶＢＡプログラマなんて、この世に生まれて来た
価値が何ら見いだせないような悲しい人生しないで、男に頼んで
バンバン子供産んで婦女子ならではの人生を謳歌するけどな。

>>221

早速参考にして、
作ることができました。
ありがとうございました。

質問があります
ＶＢＡで一週間後の日付を出すやり方がありましたら
教えてださい。お願いします

Sub test()

Range("A1").Formula = "=TODAY()+7"

End Sub

ツールからマクロの記憶を使いグラフを3つ作成して、VBAで設定し表示する事が出来たんですが、全て同じ箇所、重なって表示してしまうんです。
個別に位置を指定して表示する方法ありますか？

セルに設定されている、「入力規則」を取得する方法を知りたし。

>>227


'１つ目のグラフの位置設定（???は位置を示す数値）

ActiveSheet.ChartObjects(1).Top = ???
ActiveSheet.ChartObjects(1).Left = ???

'ChartObjects(2)、ChartObjects(3)に対しても、個別に位置を設定する。　

>>228
vba validation moug で検索

>>219
> "プログラマ"として食って行けるでしょうか？

> VBAオンリーのプログラマでデスマ（すなわち残業）を避けて生きていくことは
> 可能でしょうか？

無理、世の中そんなに甘くない

事務職で"ちょこっと重宝"されるくらいで"優遇"すらされない


VBAは君ごときでも使えることからも解るように、使える奴は婦女子の中にも腐るほど居る
他言語一切ダメで、基礎から学んだわけではなく行き当たりばったりで覚えたような奴なら尚更

まぁ、OfficeはOfficeでもVSTOを完璧に使いこなせたら、それだけで食っていけるけどな
それこそ残業云々どころか出社すらせず在宅労働で食っていける
とはいえ、身に付けるだけで食っていけるような技術は、君ごときが容易に手に出来るものじゃないけどな

>>230
ありがとうございます！

Userformから呼び出したSubプロシージャ内で
処理を終わらせるにはどうしたらいいですか？

今は戻り値で判定するのに
functionで呼び出しています。

イベントプロシージャに戻らない方法を
教えてください。

> 今は戻り値で判定するのに
> functionで呼び出しています。
その方法で良いわけだが

> イベントプロシージャに戻らない方法を
> 教えてください。
無いけど

なんでそんなことをしたがるのかねぇ
初心者の考えることはわからん

Endじゃないの？

233の説明通りならEndは違う

XPとWin2000でexcel2000を利用しています。

ユーザーフォームのcommandbuttonではあまりに味気ないので
マウスクリックやエンターキーの両方でフォーカスを取得して操作できる
画像で出来たボタンを作りたいと考えています
（マウスオーバーで色が変わり、クリック時にボタンを押したような画像に差し換わる）

使えるイベントの都合的にframeに背景画像を指定するなどいろいろ考えたのですが
どうもうまくいきません（画像が切り替わらない・エンターキーを押しても他のコントロールに抜けられない等）
何かよい知恵もしくはもっと適切なコントロールオブジェクトはないでしょうか？

>>224
ならよかったよ。
処理が最大値検索になってるのは意地悪したわけじゃないよ…。
最小値を勘違いして最大値で作っちゃった。ごめん。

>>219
単価が安いのを我慢できるんなら。

>>231のように、必死で新規参入を妨害しないとやっていけないくらい、
誰にでもできるし、実際たいしたことない。

>>234
初心者ですみません。
代替案など教えて頂けないでしょうか？

よろしくお願いします。

H段の階段を「1段」あるいは「1段飛ばし」で上る。上り方は何通りあるか？
これはどのような構文を使ったらいいんでしょう？

VBAはプログラムじゃないだろ

6段の階段なら
１−６段飛ばしの6通りってことか

>>242
うん、VBAはプログラムそのものではなくプログラム"言語"だね
更に言えばプログラム言語の中のマクロ言語に該当するものだな

>>241
一段飛ばしする回数をnとすると
(n+H-n*2)!/(n!*(H-n*2)!)
通りになる
nを０からH\2までループして結果を足す

>>243
ｱﾎｽｗｗｗｗｗｗ

>>233
呼び出された処理の最後で
Application.Quitすればいいと思う。
初心者のうちはけっこうこの命令を
知らないからね。入門書にも出てこないし。

いいわけないだろ
ApplicationをQuitしてどうするよw

>>248
IF文などの中で強制的に処理を打ち切るには
Application.Quitしかないと思う。
ExitSubだと呼び出し元に戻ってしまうからね。

マクロを編集する時に、例えば赤のフォントにしろと言われても色番号が分からないの
ですが、どうしたらいいでしょうか？
どなたか教えてください。

>>250
例えば、A1を赤に塗ってみてイミディエイトウィンドに
?range("A1").interior.color
又は、
?range("A1").interior.colorindex
などと打ち込んでEnterキーを押してみる

誰から赤のフォントにしろって言われるの？

色の設定画面のトコをプリントスクリーン＞ペイントに貼り付けて切り取って拡大してA4に印刷
手持ちの教本にあった番号表を直接マジックで書き込んで目に付くとこに張ってるアナログ最強

以外と見つからないんだよ色番号表。これは下の二段が無い
http://www.geocities.jp/chiquilin_site/data/files/color_number.html

>>250
マクロ記録使って実際にその色でセルに色をつければいいだけ。
そしたら番号なんかすぐに分かる。

>>249
だからってApplicationをQuitしちゃだめだろ
処理を終わらせたいのであってApplicationを終わらせたいわけじゃないんだからw

だからEndでいいんじゃないの？

┐(ﾟ〜ﾟ)┌

だからExit Subの代わりにEndを使えばそこで処理は終わるだろ。
変数は初期化されるがな。

>>258
EndってEnd Subのことでしょ？
それだと処理は終わるけど呼び出し元に制御が戻ってしまう。
>>233は呼び出し元に戻らずに終わりたいって言ってるんだからさ。
そのためにはApplication.Quitしかないって。

>>259
そのEndじゃないよ
でもEndもApplication.QuitもNGだけどな

>>259
違うって。End知らないの？
Exit Subの代わりにEndを書いてみなよ。
そこで処理が終わるから。

ただPublic変数も含めて初期化されるけどね。
セルにでも値を置いておけばいいんじゃないの？

戻ってもいいようなプログラムにすればいいのに

戻った後でfunctionの返す値によってExit Subするのが普通だろうね。
Endとかは他の処理にも影響が出てくるからあまり使うものじゃない。

すみません　リストの入力規則で
リストを指定するのですが、　リストのまん中ぐらいを最初に表示したいので
す　どうすればよいでしょうか。

VBAの課題が全くわからないので教えてください。

はじめて質問させていただきます。

課題１：国語、数学、理科、社会の５０人分の点数が掲載してあります。このデータを用いて次の処理をするプロシージャを完成させなさい。国語、数学、理科、社会の５０人分のデータの平均点、偏差値を画面上に表示する。
課題２：出席番号が変化するデータに対して、国語、数学、理科、社会の平均点、偏差値を画面上に表示する。

ちなみにデータは
b2に出席番号 c2に国語 d2に数学 e2理科 f2社会と入力されてます。
次にb3〜b52にNo.1〜No.50の出席番号 c3〜c52に国語の点数 d3〜d52に数学の点数 e3〜e52に理科の点数 f3
〜f52に社会の点数が入力されています。
点数は問題に関係ないと思うのでここでは書きません。
また、表示にはメッセージボックスを使うようです。

この２つの問題のプロシージャを教えていただきたいです。
どうかよろしくお願いします。
できれば、プロシージャ１行ごとに簡単な解説も付けてもらえたら嬉しいです。

＞また、表示にはメッセージボックスを使うようです。

ゲラゲラ

>>251,>>253
ありがとうございます。

>>252
FOM出版に言われましたＷ

>>266
わからないから笑って誤魔化すんですね(^-^;)
>>265お願いします。

宿題（しゅくだい）は自分（じぶん）でやりましょう。

>>265
>>1★5

実際なんとなくやったのがこれです。
Sub 国語平均()
Dim 平均 As Single
Dim 偏差値 As Single
和 = Application.WorksheetFunction.Sum(Range("c3:c52"))
数量 = "50"
平均 = 和 / 数量
MsgBox 平均
End Sub

偏差値は定義してますが、計算式がわからないので入力していません。
５０人分の偏差値はどうだせばいいのでしょうか？

いろいろ失礼なことを言って申し訳ございませんでした。
明日までの課題ですから焦っていました・・・

>>264
「入力規則のリスト」はドロップダウンリストという分類の物で
ドロップダウンリストには入力規則のリスト、フォームツールのコンボボックス、
オブジェクトのコンボボックスなどいろいろあるが
手軽な代わりにあまり弄れないのが入力規則のリスト、
多少面倒はあるがいろいろ弄れるのがオブジェクトのコンボボックス

入力規則のリストでは君の望むことは基本的に出来ないから
オブジェクトのコンボボックスを使いましょう
DropButtonClick イベントで ListIndex プロパティを (ListCount \ 2) にしてやれば
全項目中の真ん中が、表示されるリストのトップにくるようになる

>>271
> 偏差値は定義してますが、計算式がわからないので入力していません。
> ５０人分の偏差値はどうだせばいいのでしょうか？
「計算式」というのは数学の問題であって、Excelの問題でもVBAの問題でもない
つーか、ワークシート関数として用意されてるわけだが…

それにしても酷いコードだな
最近では小学校でも算数ではなく数学なんだっけ？

>>272
酷いコードですか…ならどういう風なコードにすればいいか教えていただけないでしょうか？
まず自分はコードがわからないんですけどね…

>>271
WorkSheet関数を使うのなら、averageとstdevを使えばOK.

>>273
例えば数量に文字列をセットするなんて、論外だ。

>>274
なるほど。
つまり、出席番号の１〜５０も数式？を使ってやった方がいいんですね。
そのやり方も考えてみます。
関数も今は学校なので家に帰ったら試してみます。

小学校からやり直した方がいいよ

>>250

>>251 >>253 でＯＫだと思いますが、私からも補足。

Range("a1").Font.Color = vbRed

という書き方もできます。
vbRedは、カラー定数（ColorConstants）と呼ばれるもの。
他にvbBlack、vbBlueなど基本的な8色がカラー定数として
定義されているので、赤青黄ぐらいの区別なら、
これを使ってコーディングするのが楽だと思います。

８色の内容については、
VBAEditorから［表示］→［オブジェクトブラウザ］で
オブジェクトブラウザを開き、"ColorConstants"で
検索してみてください。

カラー定数はVBではいいがVBAでは罠がある
人には奨めない方がよろし

>>278
横からすんませんが、「VBAでは罠がある 」というのは何でしょう？

>>237

CommandButtonの背景画像を切り替えてみてはどうでしょうか？

CommandButton1.Picture = LoadPicture("画像ファイルのパス")

で、指定した画像に変わります。
画像を３つ用意して、
（１．通常時　２．マウスオーバー時　３．クリック時）
以下のイベントのタイミングで切り替えます。

初期設定　　　　　　　　　→１
CommandButton1.MouseMove　→２
CommnadButton1.MouseDown　→３
CommandButton1.MouseUp　　→２
UserForm1.MouseMove　　　 →１

>>278
えっ、何ですかそれ！？
私も知りたいので、教えてくれませんか。

バージョンによって定数が示す値が違うとか？

>>280
ありがとうございます
実はCommandButtonコントロールを使う方法は真っ先に思いついたのですが
背景画像を変えても「四角い輪郭」までは消えないせいでどうにも残念な外観になってしまい
意味がありませんでした。

試行錯誤しましたが最終的にlabelコントロールを４つCommandButtonの輪郭の上に貼って
隠すことにしました（環境の違い等でズレたりしないかが一番心配）

>>282
私もPictureコントロールで試してみましたが、
確かにうまくいかないですね。

MouseDownイベントプロシージャ内で、
LoadPictureメソッドが正しく機能しないようですが、
こういう仕様なんでしょうかね。

Labelで輪郭消しとは、すごい力技！

>>281
俺はエクセルＶＢＡを趣味で使ってるだけだから断定できないが
エクセルは２００３まで５６色しか使えなかったからカラー定数使っても
５６色の中の似た色に変換されてしまうからではないかと思う
（カラーパレット変えれば対応できると思うが同時に使えるのは５６色って事かな・・・）

６行目中ほどに配置したコマンドボタンが、左右への列移動に伴って、同様にして左右に移動
＝画面の中ほどにコマンドボタンがいつもあるようにする。
には、どう書いたらいいですか？
今は、検索して探したものを元に、
commandbottun1 bottun=1 bottun=2で移動するだけで画面からすぐ、隠れてしまう状態です。

よろしく、お願いします。

>>285
＞画面の中ほどにコマンドボタンがいつもあるようにする。


コマンドボタンがＤ列にあるとして

range("D6").select
activewindow.freezepanes = true

>>286 レス、サンクス。
ただ、それは、「ウィンドウ枠の固定」のことですよね。
説明が拙かったですが、求めているのは、例えば、アクティブセルが右に５列移動したら、
コマンドボタンも同様に５列移動するという内容のものです。

>>287
SelectionChangeイベントでActiveCellからOffset指定でコマンドボタンの移動位置を決めれば良い

でもツールバーをフロートで使った方がスマートだな

>>287

>>288さんの言うようなやり方もありますが、
CommandButtonを貼り付けたUserFormを表示させておく方法もあります。
（この場合UserFormのShowModalプロパティはfalseにしておくこと）
どちらがいいかは場合によりけりだと思います。

ユーザー定義のツールバーを使うやり方は、Excel自体の環境を
変えてしまうので、他人に配布したりする場合には検討の余地が
あります。でも個人で使う分には、コンパクトだし、
好きな場所にドッキングできるので、とてもスマートです。

2007でツールバーなくなっちゃったしねー

しねとはどういう事だ

>>290
職場の機種更新で、私も2007を使い始めたばかりですが、
ツールバーが使えなくなっちゃったんですか...
日本語の音声読み上げもオミットされたみたいで
ちょっぴり残念。
脱線ごめんね

VBAからCommandBarオブジェクト等は使えるんだけど、
実際に表示されるのはツールバーじゃなくてリボンのアドインタブなんだー
タブを切り替えて使わなきゃいけないから面倒なんだよねー

それを手でクイックアクセスツールバーへ追加ってできなかったっけ？

うん、個人使用でPersonal.xlsbに登録する類のマクロならそれでいいんだけどねー

ＶＢＡの初心者で 困っています。
どなたか教えて頂けるとありがたいのですが

ユーザーインターフェースで
西暦(1900年から2100まで) 月(1から12月) 日(1から31日)
をそれぞれテキストボックスに入力し
ボタンを押したら
曜日を表示させる(テキストボックス?)

というのを作ろうとしているのですが よく分かりません。

具体的には 西暦 月 日 を入力して そこから曜日を割り出す計算式(プログラム)と
うるう年の場合の計算式(プログラム)
が分かりません。

あと 入力するテキストボックスに 規定値いがいの値を入力した場合のエラー表示
もよく分かりません...。

すいません くだらない質問で...m(_ _)m

ただ 本当に困っています。

どなたかアドバイス、参考例など教えて頂けるとありがたいのですが

よろしくお願いしますm(_ _)m

エクセルならWEEKDAY関数で曜日返してくれなかったっけ？？？

曜日によって処理を変えるとかではなく
曜日を表示させるならWeekday関数+WeekdayName関数だな
ついでに年月日を別々のテキストボックスに入力させるならDateSerial関数も必要かな

> あと 入力するテキストボックスに 規定値いがいの値を入力した場合のエラー表示
> もよく分かりません...。
いろんな手法があるので「プログラム 入力制限」とか「VB 入力規制」とかでググろう
アルゴリズムの話なので、VBA以外での話でも応用出来るからね

でも、年、月、日くらいなら、コンボボックスをリスト選択のみの設定で使う方法もある

>>296

年・月・日から、曜日を求める方法はいくつかありますが、
大筋は>>298です。まずは次の関数について調べてみてください。
・DateSerial関数　・Format関数
これらの機能が理解できたら、次のコードが何をしているかわかるはずです。
（うるう年でも問題ありません）

Sub youbi()
Dim year As Integer
Dim month As Integer
Dim day As Integer
Dim theDate As Date
Dim youbi As String
year = 2008
month = 7
day = 1
myDate = DateSerial(year, month, day)
youbi = Format(myDate, "aaa")
MsgBox youbi
End Sub

（続く）

（続き）

UserForm上のTextBoxに入力されるべき値の範囲を制限する方法について
ですが、まずは新しくUserFormを作って、必要なTextBoxやCommandButtonを
配置するところまではできていますか。

TextBoxに値が入力された時点で値をチェックしたいなら
TextBoxコントロールのChangeイベントを、
CommandButtonが押された時点で値をチェックしたいなら
CommandButtonコントロールのClickイベントを調べて、
イベントプロシージャについて理解してください。

あとは、"TextBoxの値が規定範囲内かどうか調べて、範囲外ならエラー
処理をする"コードを、イベントプロシージャ内に記述するだけです。

数値データから多項式係数を割り出すのにLINEST関数を使ってます。
でもExcelの仕様で、16項までしか対応しないみたいですよね。
VBA使えば255項とか分析できるのかな？
ググったけど、そういうニーズは無いみたい…。

そもそも16項もできたっけ? 最近のはできるのかな。
いずれにしても、多項式係数の意味が判っているなら自分で実装できるでしょ。

質問させて下さい。
OS：winXP SP2
EXCEL ver：2003

【質問内容】
数式1〜3からVBAを使用して
ファイル名、シート名、セルをそれぞれ分割し変数に格納したいです。
どんな方法が適切でしょうか？

数式1⇒=[ブック]シート!$A$1
数式2⇒=[ブック]シート!'!$A$1
数式3⇒=[ブック]シート!!!'!$A$1


現在の処理はDoとMidを使用して左３文字目からIfを使って
１文字ずつ文字判断させています。

"]"がでたら３文字目から"]"の手前までブック名称⇒変数Aへ
"!"がでたら"]"の直後から"!"の手前までシート名称⇒変数Bへ
"!"の直後からはセル⇒変数Cへ

数式1では問題ないのですが、数式2、3みたいに
シート名称に"!"が含まれている場合にシート名称が正常に変数Bに格納されません。

Midを使って"'!"の場合にシート名称を読み込んだとしても、
数式2、3はそれで回避出来ても今度は数式1が認識できなくなってしまいます。

他に良い方法があるのかもしれませんが、全く思いつきません。
わかりにくい文章で申し訳ありませんが、
どうか、ご教授の程よろしくお願いします。

こちらのスレにて質問させて下さい。

ログファイルから各種括弧(または類するもの)→　() [] 【】 <> 《》 「」
で囲まれた文字列を取り出したいのですが、どのように処理すれば
よいのでしょうか？ログなので、取り出すのは任意の文字列です。

例：
***(aaa)** → aaa
[warning]*** → warning
月火【水】木金土 → 水

１　FINDで”（”の位置を検索する
２　FINDで”）”の位置を検索する
３　MIDで”（”と”）”の間を抜く
４　かっこの種類だけ繰り返す

>>303

$で判定するとか

>>304
regexp

シート名には「!」だけじゃなくて「$」や「'」、おまけに「[」や「]」も使える。
しかも、それはブック名にも当てはまる。
その辺は考慮しなくていいのかな？

>>306
"$"で判別しても大丈夫だとは思うのですが…
"$"も"!"もシート名称で使えてしまうので、
誰かがそんなシート名称を指定してしまった場合に
対処出来ない様な気がして敬遠してたのですが…


じゃあ…"'!"で存在しない場合に"!$"で判別すれば大丈夫かもですね…

なんだかわかった気がします！
ありがとうございました！

あーでも「[」とか「]」を使ったら参照できないな

> じゃあ…"'!"で存在しない場合に"!$"で判別すれば大丈夫かもですね…
「'!」とか「!$」を含む事もできるけどね・・・

>>308、310
あれ？"'"ってシート名称に使えましたっけ…じゃあ駄目じゃん俺＿|￣|○

ブック名称を格納するときは"!"を見ておらず"]"しか見ていないので
大丈夫かと思ってたんですが…やっぱ駄目ですか？

シート名称は"!"を名称として使用すると"'"が繋ぎ部分に加えられる為、
その辺りで判別しようかなと思ったのですが…どうすればよいのやら…

なにはともあれ、お答え下さってありがとうございました！

>>303

数式１〜３がセル参照として成り立っており、かつ
参照先のブックが開いているという前提なら、
単純な方法があります。

（なお、参照先のブックが閉じられた状態では、>>303の
　数式１〜３のようなセル参照は普通はありえません。
　普通は保存して閉じるだろうし、保存して閉じれば
　数式は絶対パスを含む形に自動的に置き換わるからです。）

■考え方
数式１〜３はいずれもセル参照なので、
参照先のRangeオブジェクトを得ることができます。
そこから、Parentプロパティを使って、
親シートおよび親ブックを割り出します。

■具体例
Book1とBook2が開いていて、
Book1のセルA1に
=[Book2]Sheet1!$A$1
という式が設定されているとします。

Dim rg as Range
Dim adr as String, sh as String, bk as String

Set rg = Range(Thisworkbook.Sheets("Book1").Formula)
adr = rg.Address
sh = rg.Parent.Name
bk = rg.Parent.Parent.Name

Nameと同一かどうかはわからないけどな

>>311
"'"は繋ぎ部分だけじゃなくて先頭にも加えられない？っていうかつまり"'"で囲まれない？

>>312
仰る通り、現在開いているブック対象にしています。
後々、フォームに組み込もうと思ってまして…
アドインにせずに単体ツールとして運用する予定なので、
必要なファイルは予め開いていて貰うつもりで作っています。


教えて頂いたコードですが、何故か上手く動きませんでした…
Formulaの記述でストップしてしまいます…
(当方2003を使用しています。)
Formuraってバージョン依存ありましたっけ…？
もっとよく調べてみます…


>>314
シート名称からの指定ですと、確かに先頭に"'"は付きますが、
ブック名称からの指定や、フルパス指定だと先頭には"'"はつかないようです。

>>312
サンプルが動きました！
一度Variantで取り出してからRange指定しなきゃ駄目だったみたいです。

これがあればいちいち変なループ処理を組み込まずとも、
それぞれの名称を獲得できますね！

いやはや勉強不足でご迷惑をおかけしました…
皆さん、本当にありがとうございました！！

regexp使えば楽だったね。

>>302
>>301です。
VBAでworksheetfunction.linestってのがあった。
これで実装してみたけど、やっぱり16項までが限界だったみたい。
バージョンは2003です。

以上、報告まで

初歩的な質問なのですが、ブックを超えて操作をさせようとするとどうしても上手く動きません。

book2.xlsを開き

book1.xls　の　sheet2 A1 の内容を

book2.xls　の　sheet1 A1 に書き込む

とするにはどう書けば良いのか教えて下さい。

どなたかお願いします。

OS　XP
EXCEL2000

>>303

ごめんね。>>312のコードはだいぶ変でした。
Rangeオブジェクトを取得する行は正しくは

Set rg = Range(ThisWorkbook.Sheets("Sheet1").Range("a1").Formula)

でした。でも、自分なりに解決できたとのこと、何よりです。

emoji1 = InStr(ActiveCell, "か")
emoji = Mid$(ActiveCell, emoji1, 3)
emojip = Worksheets(2).Cells.Find(emoji).Offset(, -1)
ActiveCell.Replace what:=emoji, Replacement:=emojip
このようなマクロで activecell="あかきくお" emoji="かき"だった場合に
置換した後はactivecvell="かきこ"
となってemoji以前がそっくり削られてしまいます
どのように書けばactivecellの中のemojiだけを置換できるのでしょうか?

>>319
ヒント。

Workbooks.Open ("C:\2.xls")
Workbooks("2.xls").Sheets("sheet1").Range("A1").Value = Workbooks("1.xls").Sheets("sheet2").Range("A1").Value

後は自分で考えれ。

>>321
それだけじゃ　emojiip　に何が代入されてるのかも分からないよ。
察するに sheets(2) にデータテーブルを持たせてるのかな。　
"かきこ" も、何故でしょうか。

ちょっと頭がボーっとしてるんで、私が読みきれてないだけだったらごめんね。

それと、位置を代入してる変数に emoji1 だと訳が分からなくなるから気をつけた方がいいかも。

>>323
ありがとうございます、やはりポイントだけ書き込んでも分かりづらいですよね;
そしてすみません、"かきこ"ではなく"かきお"でした；

sheets(2)はおっしゃる通りで絵文字変換表があります。
A列絵文字を入力して B列絵文字に変換しようと考えたコードなのですが
A>Bはうまくいったものの、戻すのも作ろうとコード丸写しから改編しB>Aのものを動作させると
代入したい部分だけでなくセルの前半ごと変換されてしまいました。

自分用の小さなものなので、変数名は手抜きしています；

うーん。先ずはもっと小さく組んで、それが上手く行ったら大きくして行かないとデバッグ出来ないかもなぁ。
具体的に言うと、変数には予め代入してしまう。
ActiveCellじゃなくて、変数で文字列を代入しておくといいね。
あと、findする列が決まってるならば、cellsで全体から検索ではなくて、columnsで指定した方がスマートです。

dim hoge as string
dim emoji as string
dim emojiip
hoge = "あかきくお"
emoji = "かき"
emojiip = sheets("sheet2").columns(2).find(emoji).offset(0,-1)

まず、ステップインでF8を押しつつ1行ずつ実行して行って、emojiipに目的の物が代入されたかをチェック。
その後で、
hoge.replace what:=emoji , replacement:=emojiip

こんな感じで、どこにおかしい部分があるかを少しずつ調べて行くと良いですよ。

>>324 済みませんでした
B>A 変換は置換対象の頭に"*"が含まれていて、ワイルドカード扱いになっていたみたいです。
なので前半がそっくり削れていたんですね；；
こういう場合は*以前を別変数に収めておいて、変換後くっつけると言うようにするしかないのでしょうか?

もう面倒だからRegExpでreplaceしちゃいなYO!!

うそです

>>315
ああ、うん、ブック名込みで囲まれるみたいだからシート名だけ見ると後ろだけだね
まあもうどうでもいいね

inStrとmidで出来るからやってるんだろうけど、
個人的には正規表現使った方がスマートだと思うんですわ。

あまり正規表現が好まれない理由って何なんでしょうか。

つーか、好みどうこう言えるのは、自分で解決できる奴の特権
人に聞くなら実用上不都合が無ければ良しとするべき

303です。
>>320
わざわざ修正後のコードをあげて下さりありがとうございました！
おかげさまでファイル取得が楽になりました。

>>329
すみません…読解力が足りませんでした…
当初の処理だと既に開いているファイル名称を対象に
ブック判断用文字列"]"
⇒"]"が見つかればシート判断用文字列"'"を直後から探す
⇒"'"が見つかれば直後からアドレス
という風に左側から一文字ずつIFを階層にさせていたため、
最初に"'"があったとしても"]"が見つからない限りブック名称とする処理をしてました。
ファイル名で"]"は入力できなかったはずなので
ブック名称は間違えようがないと思って作ってました。

…今考えると凄まじくめんどくさい処理ですね。

そんな感じなので"]"の前にある"'"は処理上認識しないからと頭の中で完結させてました。

ともあれ、アドバイスありがとうございました！
もっと勉強しておきます…

>>330
私の場合ですが、正規表現は何となく苦手なんです。
２〜３回のテストではうまくいくようでも、実際に
いろいろな文字列を処理させてみると、どうやら論理的に
穴があるらしく、意図した結果が得られないことが
よくあります。

表現が回りくどくなっても、文字数や位置をもとに単純な
条件分岐を積み重ねる作りにしておくと、事前チェックや
デバッグの際に、各行をトレースして細かいレベルの動作を
明示的にチェックでき、個人的にはとても安心です。

向き不向きもあるようで、人によっては正規表現でひょひょいと
書いてしまう方もいます。「この式で大丈夫」と確信できるのは、
正規表現の動作を頭の中でシミュレートできるからなのでしょう。
とても羨ましいです。

配列操作の練習を兼ね、CreateObjectで一時的に作成したシートに
コンボボックスのデータを転記し、ソートした後に配列に書き戻す…
といった事を考えたのですが、

Set myWorkbook = CreateObject("Excel.Sheet")

とした途端、元ブックのウィンドウサイズが変わってしまいます。

Application.ScreenUpdating = False　では防げないようなのですが、
どうすれば挙動が見えないようにできるでしょうか？

ボタンを押すと、変数にA3にある変数を1足したいのですが、

Cells(1, 3).Value = "Cells(1, 3).Value" + "1"

とやっても、増えてくれません。
特に変数は使っていませんが、どのようにすれば、変数の値を増やすことができるのでしょうか？

>>335　"　←　を取ってみ

>> 335 A3にある変数て何？
セルA3の値なら　Cells(3,1).Value Cells(1,3).Value だとセルＣ3だぞ

変化がありませんでした、私の条件式に問題があると思います。

Sub 今日の日付()

' A1が今日の日付で無ければ、通し番号を1にして、A1値を今日の日付にする

If "Cells(1, 1).Value" <> Date Then
Cells(1, 3).Value = 1
Cells(1, 1).Value = Date
ActiveSheet.Name = Format(Date, "yyyymmdd")

' 今日の日付であれば通し番号を増やす
Else

Cells(1, 3).Value = Cells(1, 3).Value + 1

End If

End Sub

こんな感じです、ボタンを押したら、今日か過去か日付を判断して、
過去なら(つまりはテンプレシートをコピーした直後）
通し番号を１にして、A1の日付を今日に、

すでに今日作っているなら、
通し番号を2にして、シート名を「20080709-2」と「ハイフンと通し番号」を付け加えたかったのです
（ここはまだまだ難しくて未実装）

ちなみに、最初のｉｆで日付が今日で無いときは処理がうまくいっています。
日付が今日なら、どうやらelse以降が実行されていないようです。

>>337
たしかに変数なんて使っていませんね、すいません。

なぜCells(1, 1).Valueを"で囲む？

>>338
>340の言うとおり。
Ifのすぐ後ろのCellsを""で囲んでいるのをとる。

>>304
Sub test()
Dim hoge, hogematch, piyo, hitpat, moji As String
Set hoge = CreateObject("VBScript.regexp")
moji = "月火【水】木金土"
hitpat = "【.*】"
'hitpat = "\(.*?\)" '最小マッチ、\(でエスケープ
'hitpat = "\[.*\]" 'メタ文字でググるとgood
With hoge
.Pattern = hitpat
.ignorecase = True
.Global = True
End With
Set hogematch = hoge.Execute(moji)
piyo = hogematch(0)
piyo = Replace(piyo, "】", "") '加工例1
piyo = Replace(piyo, "【", "")
'piyo = Mid(piyo, 2, 1) '加工例2
Debug.Print (piyo)
End Sub

コメントは適当に消してね

できました！ありがとうございます！

ぬお。エクセルで正則表現使えたのか！
恥ずかしながら知らなかった・・・。
横からマジ感謝。

>>340
>>341
くはー、できました！
ダブルクォートで囲むと意味が変わるのですね。
連番で上がりました。

あとは、シート名に連番をつけていくのが目標です。
VBA楽しいですね、
手作業で面倒だった、EXCELが自分専用の便利ツールになりますね。

ＥｘｃｅｌがEXILEにみえてきた

しばしディスプレイから目を離し、遠くの緑をみつめよう〜。

Excel2007
WindowsXPsp2

「ズームボタンが押された状態で」印刷プレビューを開くにはどうしたらいいですか？

Excel-VBA は楽しいだろうが、Excelそのものはあんまし
楽しいものじゃないと思う

ワードとかパワポなんて仕事でも使ったことねえ

「Excelで文章書く奴は初心者」



ってのはよく言われる事だが実際には
全然そんなこと無いと思う。
寧ろWordで作る意味が分からない。

winXP。EXCEL2003
並び替えでの質問ですが、
2008年6月30日
2008年6月2日
2008年6月27日
の文字列としてあるデータを並び替えで昇順にしたいんですが
マクロの自動記録時には正確に
2008年6月30日
2008年6月27日
2008年6月2日
となりますがそのマクロを実行すると
2008年6月30日
2008年6月2日
2008年6月27日
となってしまいます。
コードは
Columns("B:H").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
どこをどうやればうまく行くのでしょうか？

age

>>352
だよな
会社で扱うファイルのうちワードなんて1割もない

取り扱い説明みたいなものを書くのにはWordは楽だよ。
これで、アウトラインプロセッサ機能がもう少し使い易ければもっといいのだけれど。
まぁ、原稿用紙が美しいと思う日本人にはExcelで型に填めるのが好きな人が多いのは判らんでもないけど。
数式やコードが入るような文章書くときにも、レイアウトをそれほど意識しないでもいいのは助かるしね。
まぁ、よほどのことがない限りPowerPointは使わないけれど。

>>353
並べ替えを記録する際、きちんと「昇順」を選択していたのなら、
Order1はxlDescendingではなくxlAscendingになっているはずです。

また、自動記録時にその結果になるためには、
「並べ替えの前に」ダイアログボックスで
「数値とテキスト形式の数値を分けて並べ替えを行う」を
選択しているはずです。
その場合、DataOption1はxlSortTextAsNumbersではなく、
xlSortNormalとして記録されるはずです。

以上から、記録したマクロではないマクロを実行している可能性
があります。もし、自動記録を何度か繰り返したのなら、
いくつか似たようなマクロができてしまっていると思いますので、
よく確かめてみてください。

>>352
たぶん、この手の初心者のことを言っているのでは。
ttp://d.hatena.ne.jp/kagamihoge/20060427/1146130613
...誰でも最初は初心者なので仕方ないですが...

Excelは、横幅の描画単位がかなり曖昧です。
セルの書式設定を「折り返して全体を表示する」に
したとき、編集画面ではきちんとセルの中におさまっていても、
プレビューで見るとはみ出て切れてしまったり、
セル幅とグラフオブジェクトの幅が、やはりプレビューで見ると
だいぶ違ったりするのは、やはり文書向きのソフトではないと
感じてしまいます。

でも、Excelも便利だと感じるときもあって、その１つが
行間隔を直感的にリサイズできる点。
Wordにも、行間隔スライダーみたいなツールが実装されたら
すごい便利なのに、といつも思います。

> １つのシートに、縦に表１と表２が並べてあるドキュメントなのですが、
> 表１に列を追加しようとしたところ、当然ながら表２にも列が追加されてしまう

これは当然じゃないだろ…

>>349

私の知る限り、プレビュー画面を拡大するメソッドはVBAには
実装されていません（というより、プレビューが開いている間は
VBAの実行が一時的に停止しています)。

力技ですが、ショートカットコマンドを利用する方法があります。
普段はショートカットコマンドを使っていますか？
例えば、[Alt][W][F]の順でポンポンポンとキー入力すると、
ウィンドウ枠の固定ができる、といったような機能です。

うちのExcelは2003なのですが、[Alt][F][V][Z]でプレビュー画面が
ズームされます。これをVBAでは、

SendKeys "%fvz"

と表現できます。詳しくはSendKeysステートメントを調べてみてください。
ただしこれは、Excel2003までの場合です。
2007でも2003以前のショートカットの大部分は生きているので、
このステートメントをそのまま使えるかもしれませんが、
できれば2007のショートカットコマンドを調べて実装したほうがいいでしょう。

なお、SendKeysはアクティブなアプリケーションに対して有効です。
マクロをVBAEditorから実行すると、VBAEditorに対してSendKeyしてしまうので、
実行するときは必ずExcelから実行してください。

>>357
降順のコードからコピーしてました。
xlSortTextAsNumbers、xlSortNormal
どちらで試しても日付順にはなりません。

自動記録でなパターンを順番に記録して
実際にマクロを実行しても一度も日付順にはならないのです。
EXCELの仕様（不具合）と見たほうがいいのかな？

バグだの仕様だの、ってのは簡単に言ってはいかんのだ。
それを言った時点で全てが終わりってくらい重く考えないといかんよ。

プログラムは言われた通りの事”しか”やらないんだからね。

>>361

あ、すみません。>>357の私のレスに間違いがありました。
DataOption1についてはxlSortTextAsNumbersでＯＫでした。
訂正します。

でも、それでもうまくいかないのですか。
（うちではうまくいくのですが...）

俺はDataOption1とかの使い方は知らないが、そこを無視すると
"2008年6月2日"
"2008年6月27日"
この文字列の大小は９文字目の"日"と"7で"比較されるから、上の方が大きくなるのは当然じゃないのか？
バグでも何でもないと思うんだが。

文字列を日付として大小比較するなら
"2008年06月02日"
"2008年06月27日"
という形の文字列にしないとまずいんじゃないのか？

"2008年12月6日"
"2008年6月30日"
これだと下の方が大きくなるからね。

文字列の大小比較するより、データ、区切り位置、日付でシリアル値に変換した方がいいと思うがね。

ちょっと訂正
この文字列の大小は９文字目以降の"日"と"7日"で比較されるから

>>364
「数値に見えるものはすべて数値として並べ替えを行う」は
意外に賢くて、日付と解釈できる文字列はシリアル値として
解釈し、並べ替えてくれます。
"2008年12月6日" → 39788
"2008年6月30日" → 39629
と読まれて、きちんと6月が先頭に来ます。
ただし、"2008年0月4日"みたいな変なのは、日付を表す
シリアル値として解釈できないので、昇順で並べ替えても
12月より後ろに来ます。

>>361
...でも正直なところ、>>364の意見に賛成です。
シート上の日付文字列を、どうしても文字列のままにしておかなければ
ならない理由が特になければ、シリアル値に変換してしまった方が
いいかと。日付文字列→シリアル値の変換は、DateValue関数
で簡単にできます。変換さえすれば、昇順の並べ替えも
全く問題なくできるようになるでしょう。

>>366
ﾄﾝｸｽ。
「数値に見えるものはすべて数値として並べ替えを行う」ってのがあるのか知らなかったよ。
俺の2007の並び替えのオプションじゃ見つからんのだが....。
VBAにはDataOption1とかあるから、ちゃんと実装してるんだろうけど。

それはおいといて>>353のコードで降り順にソートすると、
"2008年6月2日"
"2008年6月27日"
これは>>353のいうようにこの通りに並ぶね。
きちんとシリアル値に解釈できてたらそんなことないはずだけどね。
そんなおかしなオプションは使わないことだろうね。

2007でいろいろ試してみたが、
"2008年6月2日"のような形式の文字列は、DataOption1:=xlSortTextAsNumbersで数値としてみてないらしいぞ。
"2008/6/2"というような形式の文字列なら、きちんとシリアル値と解釈して並び替えるようだが。
VBAでは"2008年6月2日"のようなローカルな形式はサポートしてないんじゃない？

>>368

「数値に見えるものはすべて数値として並べ替えを行う」オプションは、
2003以前のバージョンでも、普段のソートダイアログには出てきません。
セル書式が文字列になっているセルを含むセル範囲を基準に並べ替えを
行う場合に限り、「並べ替えの前に」ウィンドウが開き、その中にあります。

うちのはExcel2003ですが、上記の方法でうまく並べ替えできます。
2007では何かが変わってしまったのでしょうか...

"yyyy年m月d日"の形の文字列は、少なくとも2003のVBAでは解釈可能です。
たとえばDateValue("2008年6月2日")とすると、
正しく39601が返されます。
ひょっとして2007では、これもエラーになってしまいますか？
だとすればサポートされなくなったのかも...
職場のPCにExcel2007が入ったので、今度自分でも試してみます。

何にしても、Excel的にはシリアル値+書式指定にしておくのが
一番ですね。

うーむ、2007ではセル書式が文字列になっててもそういうウィンドウは開かないみたいね。
それからMsgBox CLng(DateValue("2008年6月2日"))とすれば2007も39601が返るよ。

とにかく>>353のいうように"2008年6月2日"って形式だと、あのコードではうまくいかないね。
昔、記録マクロが動かないことってNumberFormatで確かあったなぁ。
今回も似たようなことじゃないかな？

>>370
参考までに、Excel2003ではこうなります。
ttp://www2.uploda.org/uporg1536890.avi.html

>>349
2007の印刷プレビューについて、今日職場で試してみたら、2003以前とは
全然挙動が違うようですね。
2003以前ではプレビューを開くと必ず標準状態で開きましたが、
2007ではプレビュー画面を拡大状態で閉じると、次回表示したとき
拡大状態で開いてしまうようです。従って、お望みの動作は、残念ながら
SendKeysステートメントを使っても得られないようです。

おれ、こういうの気持ち悪いので
いったんテンポラリバリアントで取得してタイプネーム確認する　特に日付

>>371の動画はダウンローダー使ってるせいか見れなかったが、2007でもオプションで「ふりがなを使わない」にしたらやっと「数値に見えるものはすべて数値として並べ替えを行う」のウィンドウが出たよ。
aaa bbb
2008年6月3日 2
2008年6月30日 1
2008年6月28日 3

A列の書式が文字列のこのようなデータで記録マクロをとってみたが、下のような今まで全然見たこともないようなコードだった。
Sub Macro1()
' Macro1 Macro
Range("A1:B4").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A4"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:B4")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlStroke
.Apply
End With
End Sub
これはきちんと動くようだ。

続き

そこで2003用の下のようなコードを書いて走らせてみたが、全然期待したようには動かんね。

Sub foo()
With Range("A1").CurrentRegion
.Sort Key1:=.Range("A1"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End With
End Sub

>>353は2003で作ったマクロを2007で走らせたんじゃないの？

上の「期待したようには動かん」は、期待したようには並ばないって意味だから。

regexpも良いけど、like演算子も状況によっては悪くないのよ！！！！
ぷんぷん！！！！！

Sub aho()
'3の倍数と3の付く行はアホになります。
Dim i
For i = 1 To 1000
If i Like "*3*" Then
Cells(i, 1).Value = "アホ"
ElseIf i Mod 3 = 0 Then
Cells(i, 1).Value = "アホ"
End If
Next
End Sub

もうジメジメして嫌になっちゃうわ。

Shellの挙動がおかしくなった。最近Windows Updateしたあたりからだと思う。
例えば、
Shell "C:\Documents and Settings\Ore\デスクトップ\hoge.bat"
が、急に動かなくなった。

実行エラー5
プロシージャの呼び出し、または引数が不正です。だって。

7月のパッチをアンインストールしても直らない。
原因わかる人いますか？

環境は、Xp + Excel 2003 です。

＞Shell "C:\Documents and Settings\Ore\デスクトップ\hoge.bat"
＞が、急に動かなくなった。

うそこけ。動くわけなかろ

> 379

そこは、動かない訳を書かないと。

Vista + Excel 2007で、
Shell "C:\Users\Ore\Desktop\hoge.bat"
は、動くね。

WinXP(アップデート済) + Excel 2003 だと動かなかった。
C直下のものでも。exeファイルなら動くね。

377です。

381さん、ご協力ありがとう。
ちなみに、hoge.batの中身は、何か書いてないとダメなようです。

例えば、
dir
pause
のような感じです。念のため。

あと、別のPC Xp Sp2 + Excel 2003 では、動くのを確認しました。
やっぱり、今月のパッチかな？

ああ、確かに書けば動くね。

質問です。１〜４の順にプログラムを進めたいと思っています。

１．メッセージボックス「セルを選んでください」。
２．メッセージボックスのOKボタンを押す。
３．シートに戻り、任意セルをクリックする。（セルが選ばれるまで先の処理に進まない）
４．選ばれたセルの情報を取得。

環境はExcel2000 WinXPです。

このような処理をしたいのですが、
どういう考え方で進めたらよいでしょうか？
よろしくお願いします。

Sub test()

MsgBox "セルを選んでください"

End Sub

>>384
結構厄介だと思うので、もっと楽にできるU/Iで作ってみてから挑戦するといいと思う。
当然ではあるが、>385では2番までしか実装されていない。

>>385
書き方が悪くてすいません。でもちょっとﾜﾛﾀ
メッセージボックスを出した時だけ、直後で選ぶセルの情報を取得したいんです。

>>386
厄介ですか。
Worksheet.SelectionChange やAPIでなんとか出来ないかなあと思っていたんですけど・・

＞Worksheet.SelectionChange やAPIでなんとか出来ないかなあと思っていたんですけど・・
それが判っていて、厄介じゃないと思うなら自分でやってみてくれ。
説明するのも厄介だぞ。

InputBoxメソッドで
Typeを8でどうさ？

>>388
いえいえ。どうもありがとうございます。
知っているから厄介だと分かるのだと思います。
別の考え方や参考になる意見を聞けたらいいなあと思ってました。
説明も厄介であれば仕方ないです。

>>389
なんだかよさそうですね。
タイプ８にこんな機能があったとは・・
とりあえずそれでやってみます。

>>386さんの言うとおりU/I使ってあんまり欲張らないで
ちょっとずつやっていくほうがいいみたいですね。

みなさんホントどうもです。聞いてよかったです。

>385もあながち悪くないと思った暑い夕暮れ

>>384
SelectionChangeイベントを使う場合の考え方：
パブリック変数を用意し、イベント許可フラグとして用いる。
イベント発生時、イベントプロシージャの冒頭で
イベント許可フラグが立っているか否かを判定し、
プロシージャの内容を実行するか、何もせずにプロシージャを抜けるか
分岐させるようにしておく。
こうしておけば、普段はSelectionChangeイベントが発生しても
何もせずに終わるが、「セルを選んでください」表示後にフラグを
立てれば、次のSelectionChangeイベントでプロシージャの内容が
実行される。
ここでセルの情報を取得し、最後にフラグを元に戻しておく。
---------

ここまで書いておいて何ですが、
明らかに>>389のやり方のほうが優れています。

１．メッセージボックス「セルを選びましたか？」
２．メッセージボックス「本当にいいんですか？」
３．メッセージボックス「いいんですね？」
１のところでなれたら使うボタンを追加しとくとか

質問があります。
複数のワークシートにまたがった複数範囲の標準偏差を計算するため、最初はUnionでそれぞれの範囲のRangeを纏めて最後にWorksheetFunction.StDevで
計算するコードを書いてみたのですが、エラーが発生しました。
どうもUnionでは異なるワークシートのRangeは纏められないようで、何か別のいい方法は無いかと探しています。

例えば以下の例は、Sheet1の各列の中から、数値が10個以上ある列だけをUnionで纏めて標準偏差を求めるものです。

Dim myRange As Range, myMultipleRange As Range

Set myMultipleRange = Nothing

For Each myRange In Worksheets("Sheet1").Columns
If WorksheetFunction.Count(myRange) >= 10
If myMultipleRange Is Nothing Then
Set myMultipleRange = myRange
Else
Set myMultipleRange = Union(myMultipleRange, myRange)
End If
End If
Next myRange
If Not myMultipleRange Is Nothing Then
MsgBox WorksheetFunction.StDev(myMultipleRange)
End If

このような標準偏差の計算を、1つのワークシートの列だけでなく、ワークブック内のワークシート全体から、
10個以上数値がある列を調べて標準偏差を計算するような方法を探しています。
ただしワークシートの個数は決まっていません。
どのような方法を使えば上手く計算することが出来るのでしょうか？
環境はWindows XP、Excel2003です。
よろしくお願いします。

>>394
作業シート作って(予め非表示で用意しておいても良いし、処理前に作成して処理後に削除しても良い)
そこに必要な値を書きだして計算する

またはワークシート関数を使わずに、普通に計算してもいいかもな
標準偏差関数のサンプルなんて腐るほどあるから、わざわざVBAから
ワークシート関数(WorksheetFunction)呼ばなくてもどうにでもなる

ここで解説してくれる優しい方々は、やっぱりエクセル1級持ってるのかですな？

そんなもの持ってるやついるの？

>>392
レスどうもです。
「セルを選んでください」の表示前にあったセル位置の情報しか取得出来なくて、

>３．シートに戻り、任意セルをクリックする。（セルが選ばれるまで先の処理に進まない）

この３番のユーザーの入力待ちがどうしても出来ません。

>>393
どうもです。
連続した作業になるので、メッセージボックスは１度だけにしたいんです。

VBAのソースコードをカラーで印刷する方法が判りません
印刷品質くらいしか選べなくてモノクロになっちゃいます
誰か教えてください・・・・

print screenで画像保存してそれをカラー印刷すれば良いじゃん

ＶＢＡ初心者の者ですが、
（A:B）列のセルがゼロか空白ならば、
（1:50）の行が削除される構文をどなたか教えて頂けますか。

If Then Else ステートメントを使ってやるのでしょうか。
お願い致します。

>>401
たとえばC51セルに　=COUNTIF(A:B,"0")+COUNTIF(A:B,"")　と式を打っておいて


Sub セルクリア()

If Range("C51") = 0 Then

Else

Range("1:1", "50:50").Clear

End If

End Sub

これで一応できるよ

なんか間違えた
無かったことにしてＷ

>>398

以下のコードを実装して、GetRangeを実行してみてください。
"セルを選んでください"が表示された直後に限り、
SelectionChangeイベントプロシージャの３行目以降が実行され、
さらにそこから"次の処理"プロシージャが呼ばれます。

■Module1
Public evFlag As Boolean
Public selectedRange As Range

Public Sub GetRange()
MsgBox "セルを選んでください"
evFlag = True
End Sub

Public Sub 次の処理()
MsgBox selectedRange.Address & "が選ばれました"
End Sub

■Sheet1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If evFlag = False Then Exit Sub
Set selectedRange = Target
evFlag = False
Call 次の処理
End Sub

>>398
メッセージの表示と入力を分ける必要はあるの？

これじゃダメなのか？
Sub セル選択()
Dim X As Range

On Error Resume Next
Set X = Application.InputBox(Prompt:="セルを選択して下さい", Title:="セルの選択", Type:=8)
On Error GoTo 0
If Not X Is Nothing Then
MsgBox "選択したセルは " & X.Address
Else
MsgBox "キャンセルしたよ"
End If
End Sub

>>399
そもそもVBEのカラー定義は貧弱だから
その辺が強力かつ表示通りにカラー印刷出来るテキストエディタ使った方がいい

>>398

念のためにまた書きますが、InputBoxメソッドを使った方が
はるかに簡単です。ほぼ同じことが以下の５行でできます。
しかも、他シートのRangeも取得可能です。

Public Sub GetRange2()
Dim selectedRange As Range
Set selectedRange = Application.InputBox("セルを選んでください", Type:=8)
MsgBox selectedRange.Address & "が選ばれました"
End Sub

>>404の利点は、セルが選ばれた瞬間に次の処理を発動させられる
点ぐらいです。（上の例はOKボタンを押す必要があります）

>>405
あ、かぶっちゃった。

Addressをデバッグ画面やmsgboxに表示させるときは
Address(0, 0)とした方が解りやすいぞ
習慣にしておこう

>402
>403
ドンマイ　w
でも、ありがとうございます。

どなたか、わかる方いらっしゃいますか？

並び替えのことで質問したものですが
結局シリアル値での日付列を追加して無事処理できました。
いろいろとありがとうございますorz

>>410

■初心者向け

Public Sub Del1()
Dim tmp As Range
For Each tmp In Range("A:B")
If tmp.Value <> "" Then
If tmp.Value <> 0 Then
Exit Sub
End If
End If
Next
Range("1:50").Delete
End Sub

>>410
なんか質問がおかしいように思うよ。
>>412さんの構文の通り、セルに名前を付けてあるの？
名前を付けたセルの値が・・・って事なら構わないんだけど、
何か勘違いしてるかな。

A：B列の、どのセルを対象にしたいの？範囲は無し？
A列かB列の任意のセルに０か空欄があった場合、1行目から50行目までを削除するの？

VB6で質問があるのですが
セルの値が分数で記述されているのを
隣のシートに小数点表記で表示させる方法ってありますか？

隣のシートには表示出来るのですが、小数点にならなくて

>>410

■玄人向け（処理が速い）

Public Sub Del2()
Dim rg As Range, tmp As Range
With Range("A:B")
On Error GoTo err1
Set rg = .SpecialCells(xlCellTypeFormulas)
For Each tmp In rg
If tmp <> 0 Then Exit Sub
Next
err1:
On Error GoTo 0
On Error GoTo err2
Set rg = .SpecialCells(xlCellTypeConstants)
For Each tmp In rg
If tmp <> 0 Then Exit Sub
Next
err2:
Range("1:50").Delete
End With
End Sub
--------
>>413
たぶん>>410さんは、A:B列の「すべての」セルが0または""なら
1:50行を削除したい、という意図だろうと受け取っています。
ちなみに>>412では、名前は使っていないつもりですが、
どの部分のことですか？

>>414

小数点表記させたいセルの書式を"標準"または"数値"にしてください。
"数値"にした場合は、小数点以下何桁まで表示させるかを指定してください。

VBAで処理したい場合は、NumberFormatプロパティで操作できます。
それをキーワードに検索してみてください。

>>410
WorksheetFunctionを使った場合もどうぞ

Sub 削除()
With Application.WorksheetFunction
If (.CountIf(Range("A1:B50"), 0) <> 0) Or (.CountIf(Range("A1:B50"), "") <> 0) Then
Range("1:50").Delete
End If
End With
End Sub

だけど範囲がAB列全部てどうなのさｗｗ
いや、AB列全部に0もしくは空白が無いならいいけどさ

End(xlUp)とかを使ってデータの最終行を取得するとかをした方が
いいんじゃない？

もう１つFindを使った場合もどうぞ

Sub 削除2()
Dim X(1) As Variant
With Range("A1:B50")
Set X(0) = .Find(0)
Set X(1) = .Find("")
If Not (X(0) Is Nothing) Or Not (X(1) Is Nothing) Then
Range("1:50").Delete
End If
End With
End Sub

あと、テストするのに範囲をA1:B50に指定してるから

>>401

念のため補足しておくと、

>>412, >>415は、範囲内のすべてのセルの値が（空白または0）なら削除を行う処理
>>417-418は、範囲内に(空白または0）のセルが１個でも含まれていたら削除を行う処理

をアドバイスしている。
これは>>410の質問の仕方が曖昧だから。

>>394

StDev関数は、Rangeオブジェクトだけでなく、配列変数も引数として
受け取ることができます。次のコードを試してみてください。

Sub t()
Dim args As Variant
args = Array(1, 2, 3, 4, 5)
Debug.Print WorksheetFunction.StDev(args)
End Sub

つまり、各シートに散らばっている数値を、いったん
配列変数にまとめ、配列ごとStDev関数に渡すやり方が可能です。
（Unionでやろうとしたことと考え方は同じです）

確かに、慣れてない奴にウェブで調べさせた怪しげな標準偏差関数を自作させるよりは、
>420の方が余程まともだな。

>412,415,417,418

丁寧にありがとうございます。

すみません説明不足でした。
A列かB列の任意のセルに０か空欄があった場合、
【0か空欄がある行だけ抜き出して削除する】処理がしたいのです。

412,415,417,418を試しにやってみましたが、
1〜50行全て消えてしまったので、これだとちょっとマズいんです。（笑）

誠にお手数かけますが、ご教授頂けますでしょうか
お願い致します。

>>422
少しは自分で考えよう
>>1★5


>>その他
踊らされてなんでもホイホイ答えずに
多少は質問者にも頭使わせよう

Findのヘルプを読んでみ

>>422

えーーーー

>ＶＢＡ初心者の者ですが、
>（A:B）列のセルがゼロか空白ならば、
>（1:50）の行が削除される構文をどなたか教えて頂けますか。

どう読み取っても50行目まで全部削除したい主旨じゃん・・
ちゃんと質問してくれよ

まあ答え解らないけどｗｗｗｗｗｗｗ

VBAの前に日本語だな

Sub sakujo()
Dim i
Dim j
Dim q
j = Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do Until q > j
If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "0" Or Cells(i, 2).Value = "" Or Cells(i, 2).Value = "0" Then
Rows(i).Select
Selection.Delete Shift:=xlToLeft
q = q + 1
Else
q = q + 1
i = i + 1
End If
Loop

あえて解説はしない。

Sub hoge()
Dim i
Dim j
Dim q
j = Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do Until q > j
If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "0" Or Cells(i, 2).Value = "" Or Cells(i, 2).Value = "0" Then
Rows(i).Delete
q = q + 1
Else
q = q + 1
i = i + 1
End If
Loop
End Sub

で・・・。何やっとんだワシ・・・。

>>428
うまくいってないよ

うわ・・・皆様本当にご迷惑おかけして
申し訳ないです。

＞427・428
ありがとうございます。
でも、やってみましたが、削除できてないっす。

難しいですね・・・

>>410
>412,415,417,418を試しにやってみましたが、
>1〜50行全て消えてしまったので、これだとちょっとマズいんです。（笑）

当たり前でしょ、最初の質問がそういう条件だったんだから

取りあえず、Findを使った場合の処理

Sub 削除3a()
Call 削除3b(0)
Call 削除3b("")
End Sub

Sub 削除3b(FD As Variant)
Dim X As Variant, XAddr As Variant
Dim XS As String

With Range("A1:B50")
Do
Set X = .Find(What:=FD, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchByte:=False)
If Not X Is Nothing Then
Range(X.Row & ":" & X.Row).Delete
End If
Loop Until X Is Nothing
End With
End Sub

>431
ありがとうございます。
空白だけの行は削除されました！
でも0が入ったセルの行は削除されませんでした。

あれ？動かないですか？
A列とB列を判定してhitしたらその行消してるだけなんだけど。

教えてください。エクセル2007でV-nasCADの画像を貼り付けて印刷したら
印刷があれるのですが、どうしたらいいでしょうか？
2002の時はきれいにでていたのですが・
だれか教えてください。

>>410
指定範囲はあっている？
俺の書いたコードはA1:B50までの範囲しか対象にしていないよ

もしくは引数の指定が正しくできてる？

合ってますが、やはり0が入ったセルの行が削除されません。

Range(X.Row & ":" & X.Row).Delete

この部分に"０"を入れなければならないのでは？

じゃあ入れて試してみろやボケ

>>410

取りあえずコードの説明しとくよ

Sub 削除3a()
' 削除3bプロシージャの呼び出し
Call 削除3b(0) ' ←セルの値0を削除(引数として0をセット)
Call 削除3b("") ' ←空白セルを削除(引数として""(空白)をセット)
End Sub

Sub 削除3b(FD As Variant)
Dim X As Variant, XAddr As Variant
Dim XS As String

With Range("A1:B50") ' セル範囲"A1:B50"を指定
Do
' ↓引数FDに指定された値のあるセルを検索
' セルがあった場合はそのRangeオブジェクトを変数Xにセット
Set X = .Find(What:=FD, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchByte:=False)

' ↓Rangeオブジェクトの取得がされていない場合は処理をしない
If Not X Is Nothing Then
'指定されたセルの行番号のセルを削除
Range(X.Row & ":" & X.Row).Delete
End If
Loop Until X Is Nothing 'Rangeオブジェクトの取得がされていない場合はLoopを抜ける
End With
End Sub

Sub test()

Range(401).Delete

End Sub

>>401
今いちど、何をしたいのかを日本語で誰にでもわかるように書いてみれ。

>>428
"0"だと文字列。数値の0の判定を追加しないといかん。

Cells(a,b)が、とあるRange(Unionであっちこっちくっつけてる)の中に含まれているかどうかを返す関数ってあります？

>>442
なかったらこれ使えるかな？

Function included(ByVal maybeSubset As Range, ByVal maybeSuperset As Range) As Boolean
included = maybeSubset.Count = Application.Intersect(maybeSubset, maybeSuperset).Count
End Function

>>422

【0か空欄がある行だけ抜き出して削除する】処理、ということであれば、
AutoFilterが便利です。

Sub Del3()
Range("1:1").Insert
With Range("A1:B51")
.AutoFilter field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="0"
Range("A2:B51").SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter field:=2, Criteria1:="=", Operator:=xlOr, Criteria2:="0"
Range("A2:B51").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
Range("1:1").Delete
End Sub

0または空白の行だけを表示させ、表示されている行だけを削除する、
という処理を、Ａ列とＢ列に順番に行っています。
１行目に新しい行を挿入し、最後に消しているのは、AutoFilterを使うために
見出し行が必要だからです。


>>442
Intersect関数を使ってみてください。
複数のセル範囲の共有範囲を返す関数です。
共有範囲が返らなかったら、「含まれていない」と判断できます。

あ、既に>>443で答えが出てましたね。

>>443,444
ありがとうございます、無事にできました。

　　　うぜーよ

何がだ

レス頂きありがとうございます。

>>395
StDev無しで普通に計算する方法も考えましたが、もっと効率的な方法はないものかと思い質問させて頂きました。

>>420
配列が使えるというのは初めて知りました。
その方法で試してみたいと思います。

>>398
亀だがこんなのもできる一応

Public waiting_selection_change As Byte
Function user_selected_range() As Range
waiting_selection_change = 1
MsgBox "セルを選択して下さい"
While waiting_selection_change = 1
DoEvents
Wend
Set user_selected_range = Selection
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If waiting_selection_change = 1 Then waiting_selection_change = 0
End Sub

生徒の試験の点数を降順（100、97、90・・・）に並べてある
A列の隣（B列）に1、2、3と順位をつけて、尚且つ、
A列の空白になっているセルには順位をつけないようにするには、
どうしたらいいでしょうか。ご教授お願い致します。

すみません

>A列の空白になっているセルには順位をつけないようにする
→B列のセルを空白のままにするには

でお願い致します。

もう1つ列を作って呼び出さないようにする。

Sub junni()
Dim i
Dim j
j = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 2) = j
j = j + 1
End If
Next i
End Sub

検索についてお聞きしたいのですが、
シート全体を対象に検索する場合はCellsで可能なんですが、
特定のセル範囲を検索する場合ってどうやればよいでしょうか？

例えばA1:C10の範囲内のセルだけ"パソコン"という文字列を検索するにはどうすればよいでしょうか。

cellsは全セル対象でおｋ。

指定範囲は、
Range("A1:C10").Find(What:="パソコン").Activate
こんな感じ。
マッチした後の処理が書いてないから、マッチしたセルをactive。

>>456
なるほど。
What;=　が必用だったのか・・
ありがとう。

>>457
セミコロン(;)じゃなくて、コロン(:)だよ

あと、「What:=」見たいに使うのを名前付き引数といって
指定()内に記述する順番がばらばらでも大丈夫な引数指定の事

省略した場合はFindの場合(What:=, LookIn:=, LookAt:= …)の順に引数を指定したとみなされる

かなりなスレ違いお許し下さい

過去の株価をVBAで検証したいのですがスキル不足です。
検証の内容は、ごく単純なもので恐らく数十分ほどで組めるのではないかと思われます。
（検証条件＝システムは、恥ずかしい位、幼稚なものです。期待なさらないで下さい。
特別な秘密など有したものではありません・・）

どなたか有償でVBAを組んで頂けませんでしょうか。
報酬は、先払い3000円・完成後3000円の合計6000円を考えています。
指定口座に迅速にお振込み致します。

二か月分の株価を載せたエクセルデータと
検証条件を説明したテキストファイルを作りました。
これをメールでお送りします。
請け負って頂けるか否か、報酬は上記金額で良いか
とりあえずお見積もりして頂ける方メール下さい。
どうぞ宜しくお願い致します。

>>459
口座無いからタダでやりたい

>>460
書留ででもお送りしますよ^^
そうゆうのもお嫌でしたら無償でもいいですがｗ
よかったらメール下さい

商品コード　数量　商品名　単価　合計
このような列の集まりで、
商品行が増えていくシートで、発注表を作っています。

数量は普段空白で、注文するときに数量を入れて、
数量がない行は削除(上にシフト)して、プリントアウトしています。
最終的に「数量が空白」を全部消してからプリントになります。

で、これをマクロにすると
数量(一番初めの商品は3行目なのでB3セル)が書いていなければ行削除、
数量が書いてあった場合は何もせずに下の行へ。

で、最後に識別文字の「★」であれば、終了ということをやりたいです。
マクロで観てみると

Rows("3:3").Select
Selection.Delete Shift:=xlUp

このように出ました。
3行目を削除して上にシフトしています。

if(現在のセルが★が入っていなければ)
{
　　if(現在のセルが空でなければ)
　　{
　　　その行を選択して
　　　削除(上にシフト)
　　}else
　　セルを下に移動
}
　プリントアウト

　こんな感じで脳内ではできたのですが、コード化は無理ぽですorz
　どう書けばいいでしょうか？

>>461
メール送りました。
とりあえず内容見て考えさせてください。

>>462
このスレの410宛てのレスを読め

大体似たような処理で出来る

>>463
Sub hoge()
Dim startCell As Range
Set startCell = [C4] ' 商品コードの値が始まるセル
Dim i%
While startCell.Offset(i) <> "★"
With startCell.Offset(i)
If .Offset(, 1) = "" Then
.EntireRow.Delete
Else
i = i + 1
End If
End With
Wend
End Sub

>>464
ありがとうございました
本メールから今、送信しました
ご検討宜しくお願い致します

>>467
了解です^o^
今みてます

香ばしいこと行われているようですねw

worksheetsを追加した際に
そのシートにWorksheet_Activate()
も追加したいのですが、どのように指定すればできるのでしょうか？

普通にやればいいじゃん

今
worksheets.add after:=activesheet
で新しいシートを追加するマクロがあるのですが、worksheets.????みたいな感じでなにかできる方法があるのでしょうか？
マクロで追加したシートにマクロを記述する関数などありましたら教えていただきたいです。

だから、「VBAを使ってVBAコードを記述する」方法を普通にやればいいだけだってば
検索すればいくらでも情報は出てくる

ありがとうございます。
検索したら
With ThisWorkbook.VBProject.VBComponents.Item("Sheet2").CodeModule
.InsertLines 1, "書きたいコード"
End With
でできるみたいですね。
ありがとうございます。

本当にやりたい目的と、今とろうとしている手段が乖離している気がするが、まあいいや

>>472

hoge = activesheet.index
worksheets.add after:=activesheet
sheets(hoge+1).activate

じゃダメ？

>>476
アクティベイトしたいんじゃなくて、ハンドラを入れたいんでしょ。

>>470
普通に標準モジュールにコードを書けばいいんじゃねーの？

イベントハンドラが使うならクラスモジュールを使えばいいし

ExcelVBAを扱うExcelVBAコードはないのか！

>>466
| Dim startCell As Range
| Set startCell = [C4] ' 商品コードの値が始まるセル

発注書：日付
商品コード　数量　商品名　単価　合計
001　　　　　　1　　　hoge　　3,000　3,000
002　　　　　　　　　hoge　　1,500　
003　　　　　　1　　　hoge　　2,000　2,000
004　　　　　　　　　hoge　　4,000　
　　　　　　　　★
こんな感じなので、商品コードはA3になります。
ここをA3に変更して実行したところループになりました。
今回は★は[B7]ですね。

| Dim i%
ここの「％」の意味がわかりませんでした。
先述のAs Rangeはオブジェクトということはわかりました。

| While startCell.Offset(i) <> "★"
　[A3]のi行下が★でなければということで、★の位置をA7にしたらループが止まりました。

| With startCell.Offset(i)
| If .Offset(, 1) = "" Then
　i行オフセットした右隣が""の場合

| .EntireRow.Delete
　その行を削除

| Wend
While ... Wendという使い方、御教示ありがとうございます。
　とても勉強になりました。

すいません、どうしても気になることが・・

| Dim i%
| While startCell.Offset(i) <> "★"
| With startCell.Offset(i)

特に　i = 1
と変数に入れていないのですが、なぜiが1を入れたような挙動を
取るのでしょうか？
i% に何かしらそういう意味があるのでしょうか？

>>466
startCell の数量[B3]に数値があれば、完璧に動作をするのですが、
この数量[B3]に数値がなければ、
・startCell行の数量が空(★ではない)ので、行を削除
してWendからwhile行を実行しようとした瞬間に

実行時エラー:424
オブジェクトが必要です
と出てストップします。

While startCell.Offset(i) <> "★"
ここで止まってしまうのですが、1回目は行削除できるのに、
なぜか2回目の処理で止まってしまうのが、よくわかりません・・・。

>>463

>Dim i% ←　これは、変数iを整数型で宣言している
％が整数型の型宣言文字

>特に　i = 1
>と変数に入れていないのですが、なぜiが1を入れたような挙動を
>取るのでしょうか？

これについては
↓のIfで空白なら行を削除、空白で無いなら i に＋１している
If .Offset(, 1) = "" Then
　.EntireRow.Delete
Else
　i = i + 1
End If

>実行時エラー:424
>オブジェクトが必要です
>と出てストップします。

これについては
Set startCell = [C4] でstartCellにRangeオブジェクトをセットしているのに
そのセルを削除してしまったので、セットしたRangeオブジェクトがねーよｗｗとExcelが言ってるだけ

基本的に削除するセルを基準にしちゃだめだろ

>>463
あとWhile ... Wendという使い方もあるけど
普通はDo〜Loopを使うよ

Do〜Loopを使う場合はこんな感じ

Sub ★まで削除()
　Dim TCell As Range
　Dim iX As Integer

　Set TCell = Range("B2") ' ★のある列のタイトル部分(商品コードとか数量と書いてあるセル)
　iX = 1
　Do Until TCell.Offset(iX, 0).Value = "★"
　　With TCell.Offset(iX, 0)
　　　If .Value = "" Then
　　　　.EntireRow.Delete xlShiftUp
　　　Else
　　　　iX = iX + 1
　　　End If
　　End With
　Loop
End Sub

Do...LoopがあるからWhile ... Wendなんていらね、使った事もない。
While ... Wendなんて使うとコードが汚れるとさえ思える。

へー

>>484
元の質問とは関係ないですが、コードがインデント付きで表示されて
いるのでびっくりしました。しかも、VBAEditorが全角スペースを自動的に
半角スペースに変換してくれることを初めて知りました。
（>>484をそのまま貼り付けるとエラーになると思い込んでた）

これはVBAEditorの仕様でしょうか？
それとも「全角空白は半角に変換する」みたいなオプションが
どこかにあるのですか？

VBAEditorではなくVBEditor(Visual Basic Editor／VBE)ですよ
例えEditする対象がVBAでもね

で、これはオプションではなく固定仕様、VBEのと言うよりはMS製IDEの仕様だけどな
まあMS製以外でもこの機能を有するIDEはあるし
テキストエディタでもマクロや正規表現定型置換を用意しておけば一発だけど

因みに、一応半角スペースでインデントすることも出来ますよ

Do Until TCell.Offset(iX, 0).Value = "★"
With TCell.Offset(iX, 0)

ブラウザに因っては正しく表示&コピー出来ない場合もあるけど

因みに↑はJaneとかの専ブラ向けね
確かIE向けは↓かな

    Do Until TCell.Offset(iX, 0).Value = "★"
        With TCell.Offset(iX, 0)

>>488 ありがとうございます。私も試しに...

Sub test()
　With Range(Range("a2"), Range("b:b").Find("★").Offset(-1)).EntireRow
　　.AutoFilter field:=2, Criteria1:="="
　　.Offset(1).SpecialCells(xlCellTypeVisible).Delete
　　.AutoFilter
　End With
End Sub

（コードは>>463の別解。★の行も含めて消えますが）

うぜーよ

>>485
他の言語からやってきたものからすると、
While ~ Wendの方がとっつきやすいんだよ。
単なるキーワードの違いだがな。
ただ、While ~ Wendだとループの脱出が…

やっぱりそうだよな、他の言語やってるとそうなんだけどね。
でもVBではDo...Loopに限るよ、Do...Loopの仕様は反復制御として完璧だからね。

uze-yo

心の狭い子…

こんばんは。VBE初心者のものです。

講義の宿題で７×７の魔方陣をVBEで解いてこいといわれました。
しかしながら自分のスキルでは動にもなりませんでした。

自分はIFやDim等までしか習っていませんがそれで解ける方法があったら
誰か助けてください。

ループで全通り回せばいいだけじゃん

・中央は２５
・1列の合計は(1+25)*25/5で130

>>498
？？？
25x7=175

ちがったか
１から２５の合計は(1+25)*25/2＝325
1列の合計はこれを５で割るから65だな

最上段中央に1を配置したら、右上に移動しながら2,3,4と次の数値をと入れていき、7の倍数時は右上ではなく下へ移動

上下、左右がループしてるとして(つまり1行目の上は7行目、7列目の右は1列目)この処理を続ければあっという間に完成

奇数の場合は上記の法則が使えるので超簡単
因みに7*7の場合は(1+7^2)/2*7で175が1列の合計
コードはForと算術演算(数値計算)が使えれば条件分岐(IF)すら要らない簡素なもの
小学生あたりにはオススメの問題だ

>>501
複数の解（回転・鏡像を除く）が存在する場合も無視？

無視って何を？

どうやったら条件分岐使わずに書けるのかわからん
その小学生にお勧めのコードをお教えくださいませ

あと、開始座標がどこでも結果同じだろ。
マ板とは思えんなここ

別に501が唯一の解法だなんて書いてないし、
解法の一つとしては間違ってないわけだが、この子は何が気に入らないんだろう？
何か勘違いしてるのかな？

ちょっと書くだけで過剰反応するバカがいるから面白がってるだけ

>>501にからんでるやつ頭悪そう。
魔方陣には特殊な解があるぞという回答に対して他の解は無視かよだなんてスジ違いのイチャモン。
頭が悪いんだろうな。

ごめん。魔方陣って何？
面白そうなのに全然話に参加できないんだけど。

って人が多いと思う・・・俺含め。（俺だけ？）

魔方陣を知らない人は少ないと思う。
君は少数派。

ググれカス

寧ろwikiれ

>>505
マ板じゃないからな・・・

>>509ではないですが、私も魔方陣のことはあまり知らなかったので、
性質を調べてマクロを組んでみました。非常に面白いです。
どうせやるなら、n * n の魔方陣のすべての解を列挙できるように
しようと思い、基本的に>>497の総当り方式でやってますが、かなり浅はかでした。

3*3は１秒ぐらいですべての解（８通りでＯＫ？）が求まるのですが、
4*4は今の調子だと４〜５時間はかかりそうです（現在バックグラウンドで計算中）。
あるサイトによると6*6で約1800京通りあるらしく、7*7のすべての解など
到底無理なんだと理解。自己満足な知識がまた１つ増えました。

全然アドバイスになっていませんが、>>496の宿題で求められているのは、
要するに>>501で紹介されているようなオーソドックスな解法をVBAで
シミュレーションせよ、ということなんでしょうね。

魔法も使えないって
おまえら30年間何してきたんだよ

魔　＊方＊　陣

話題ついでに、質問させてください。

>>514で触れた「総当り方式」を実現するために、1 から n^2 までのn^2個の配列に、
すべての順列組み合わせを生成する再帰プロシージャを書きました。

これまで再帰処理はめったに使う機会がなかったので、今ちょうど気になっているのですが、
VBAの仕様としては、関数の多重呼び出しはどのくらいの深さまで許容されているのでしょうか。
MSDNには「多重呼び出しをやりすぎるとStackOverflowExceptionになりますよ」とあるのですが、
それ以上の情報は見つけられませんでした。（環境依存でしょうか？）

（修正します）
「1 から n^2 までのn^2個の配列に、」
　　　↓
「1 から n^2 までのn^2個の配列について、」

試してみた（Excel2000）

Function test(i)
test = test(i + 1)
End Function

test 1でエラーが出たところでiは4227だったよ
ちなみに
Function test(i As Integer) As Integer
とすると6453

Function test(i, j)
test = test(i + 1, j + 1)
End Function
では3453

深さの問題じゃないね

講釈ばっかで回答が一つも無い件

Sub 魔方陣()

range("A1") = "７×７の魔方陣"

End Sub


できたよ〜

Wikipediaの記述どおりつくってみたつもりだが…　5,9,13…がうまくいかない
http://ja.wikipedia.org/wiki/%E9%AD%94%E6%96%B9%E9%99%A3
Const size = 15
Sub 魔方陣()
Cells.Clear
If size Mod 2 = 0 Then End
Dim i%, x%, y%
x = size / 2 + 1
y = 1
For i = 1 To size * size
Cells(y, x) = i
y = y - 1
x = x + 1
補正 x, y, i
Next i
End Sub

Sub 補正(ByRef x%, ByRef y%, ByVal i%)
y = (size + y) Mod size
x = (size + x) Mod size
If y = 0 Then y = size
If x = 0 Then x = size
If Cells(y, x) <> "" Then
y = y + 2
x = x - 1
If i < size * size Then
補正 x, y, i
End If
End If
End Sub

よくわからんが
size / 2 + 1

を、
(size + 1) / 2
にするだけなんじゃ？

>>523-524
わｗそんな罠があるとはｗ削られるもんだと思ってたｗ
ありがとう

それが原因なら５，９，１３だけでなく３，７、１１もうまくいかんだろ

>>526
うまくいくみたい
3 / 2 + 1 => 2
5 / 2 + 1 => 4
7 / 2 + 1 => 4
9 / 2 + 1 => 6
11 / 2 + 1 => 6
13 / 2 + 1 => 8
15 / 2 + 1 => 8
17 / 2 + 1 => 10
19 / 2 + 1 => 10
21 / 2 + 1 => 12
23 / 2 + 1 => 12
25 / 2 + 1 => 14

所謂ISO丸めだね。小数点以下一桁を丸める場合、その桁が5のときは偶数になるように丸める。
四捨五入とは違うから要注意だ。

>>517
nestingは10じゃなかったっけ。

ま、>>496はマルチだしな

すみません、よくわからないので教えてください(excel2003)

１つのセルの中にALT+Enterで改行を入れ、複数項目を入れた場合
項目１つ１つを取り出すにはどうしたらよいのでしょうか？

tmp = Split(ActiveSheet.Range("A1").Value, "\n")
For i = 0 To UBound(tmp)
MsgBox tmp(i)
Next i

というようなコードを書いたのですが、すべて取得してしまいます
\nを\r、\r\nに変えても駄目でした

そりゃそうだ
そのコードだと"\n"って文字で分割してるのであって改行コードで分割してるわけじゃないからな
VB、VBAの改行は、組込定数のvbCr、vbLf、vbCrLf、vbNewLineやChr(13)、Chr(10)であって
断じて\n、\r、\r\nでは無い

勝手に\n、\r、\r\nが使えることにするな
MsgBoxやDebug.Printで"a\r\nb"でも出力してみればわかることだろ
なんで最低限の確認も出来ないかなぁ？

ただコードを書くだけなら小学生でも出来るが、問題が起きたときに最低限のデバッグが出来ないと
VBA使えるとはとても言えないぞ

>VBA使えるとはとても言えないぞ
VBA使えなくてもお前ら使えばいいだけだしなｗ

>>531
regexpを使うと良いよ。正規表現。
パターンは ".*?\n" で行けるかな。

executeでコレクションに格納してから for each in で項目引っこ抜いても良いし、
submatchで引っこ抜いても行けると思うよ。

セル内改行が　\n で取得出来るか、ちょっと試してくるね。

Sub 正規表現()
Dim hoge, strpat As String, hogeMatch
Set hoge = CreateObject("VBScript.RegExp")
strpat = ".*?(\n|$)"
With hoge
.Pattern = strpat
.IgnoreCase = True
.Global = True
End With
Set hogeMatch = hoge.Execute(Cells(1, 1))
If hogeMatch.Count > 0 Then
Debug.Print (hogeMatch(0))
Debug.Print (hogeMatch(1))
Debug.Print (hogeMatch(2))
End If
End Sub

こんな感じで取得は出来たよ。
submatchはあまり詳しく無いんで分かりません。
取り出した文字列には、改行文字も含まれてるので、
取り出した後に replace で vblf を "" に置き換えて除去すると良いかもね。

あ、取り出される要素数がその都度違うようだったら、
hogeMatch.countの回数だけ繰り返してね。

ああ・・・ vblf で split するのが一番良かったかもしれませんね・・・。
スレ汚しすいませんでした。

Sub piyo()
Dim hoge
hoge = Split(Cells(1, 1), vbLf)
Debug.Print (hoge(0))
End Sub

ごめんなさい。

>>536
改行コードがLF固定だったら、
MultiLine = True, Global = Trueにした上で
"^.*"でやれば無駄な改行コードも取れずにそのまんますんなり行ける。

ああ、multilineでセル内改行取れましたね・・・。勉強になります。

行分割するだけなのに、何故に外部コンポ引っ張り出して正規表現使う必要が・・・・・

そう言う年頃なんだろよ。

頭でっかち

>>519
ありがとうございます。
うちはExcel2003ですが、次のような結果でした。

�@test(i) →4227
�Atest(i as Integer) →5216
�Btest(i, j) →3453

�@と�Bは全く同じ結果ですね。
となるとスタック領域は、メモリ環境依存ではなく
やはり仕様で決まっているのでしょうか。
�@より�Aの方が多いのは何となく理解できます。
少なくとも単純に深さでないことは分かりました。
また暇を見つけて探ってみます。

>>540
私も、VBAを使うまでもないことにVBAを使って、
「それピボットテーブルでできるよ」
「それオートフィルタの条件指定で(ry
「ソルバー(ry
みたいな指摘を受けてしばしば鬱になります。

Application.MemoryTotal / MemoryUsed / MemoryFree 等で
Excelのメモリ容量を取得できるから
スタック領域もExcelの使用可能メモリ量に依存するんじゃないの？

>>545
そのプロパティ、初めて知りました。さっそく実験。
>>519の試験コードにおいて、プロパティの値を出力してみます。

Function test(i)
Debug.Print Application.MemoryUsed
Debug.Print Application.MemoryFree
test (i + 1)
End Function

予想では、再帰呼び出しがされればされるほど
使用メモリは増え、使用可能メモリは減ると思いましたが、
実際には出力される数値はまったく変化しませんでした。

スタック領域は、これらのプロパティで出力されるメモリ数とは別なのか、
それともこのプロパティは動的な意味でのメモリ容量ではないのか。

メモリは確保済みなんじゃないの？いや、知らないけど

これに書いてる
ttp://k-flow.blog.so-net.ne.jp/2008-03-24
>ちなみに、Application.MemoryFreeプロパティで得られるフリーメモリー容量は、どのような条件下においても、常に1MB程度です。
>また、Application.MemoryTotalプロパティで得られるトータルメモリ容量は、常に上記の2つのメモリ容量の合計となります。

これなら、スタックで使えるメモリ量も常に1MB程度って事じゃないかな？

まあ再帰の数で困ったら
まず末尾再帰の形に書き直して（ステートを持ちまわるようにする）、
それからループに書き直すといいね。

>>544
�Aだけど、>>519でやったのははtest(i as Integer)じゃなくて
test(i as Integer) as Integerだよ

ちなみにtest(i as Integer)をやってみたら5217
1違うな…

>>550
あ、すみません。�Aをその通りやり直したら6453でした。
>>519と比べて1だけ違いますが、これでほぼ同じ結果になりましたね。

>>549
末尾再帰と呼ばれるスキームも、初めて聴きました。Wikipedia「末尾再帰」のコード例は、全然知らない言語なので
私には理解不能です。でも、スタックオーバーフローを「回避できる」と確かに書いてあるので、できたら知っておきたいです。

色々検索したら、べき乗を求める再帰関数を末尾再帰の形に書き換えたというＣ言語のコード例を見つけたので
真似をしてVBAに書き直してみたのですが...
ttp://itpro.nikkeibp.co.jp/article/COLUMN/20060912/247768/
（このページの一番最後に紹介されています）

Function power_loop(m As Long, n As Long, a As Long) As Long
　If n <= 0 Then
　　power_loop = a
　Else
　　power_loop = power_loop(m, n - 1, a * m)
　End If
End Function

Function power(x As Long, n As Long) As Long
　power = power_loop(m, n, 1)
End Function

VBAではたぶんこういうコードになるはずですが、これって、やっていることはただの再帰ですよね？
>>549の説明どおりにはできていない気がします。
演算を*でなく+にしてLong値のオーバーフローを回避した上で6000回ぐらい再帰呼び出ししたら（引数n=6000）、
案の定スタックオーバーフローになってしまいました。
ちなみにVBで書かれた末尾再帰のコード例は検索してもなかなか見つかりません。

すみません、だんだんExcelVBA固有の質問ではなくなってきたので、他スレで同じ質問をするかもしれません。

>>551
てか、別に末尾再帰を経なくても全然いい。普通に再帰をループになおせさえすれば。
末尾再帰という形式になった再帰呼び出しのコードは、
ループの形に必ず書き直せるという性質が成り立つだけ。
一応、どういうものかだけ↓に書いておいた。
<<末尾再帰にする前>>
function factorial&(byval i%)
if i = 0 then
factorial = 1
else
factorial = i * factorial(i - 1) ' factorial(i - 1)の前に i * という『残りの操作』が残っているので末尾再帰ではない
end if
end function
<<末尾再帰にした後 (別にVBAでは末尾再帰にしても速くなるわけでも最適化されるわけでもない。Lispなら勝手に最適化される)>>
function factorial&(byval i%, optional result& = 1)
if i = 0 then
factorial = result
else
factorial = factorial(i - 1, i * result) ' 『残りの操作』が残っていないのでこれは末尾再帰
end if
end function
<<上記をループに書き直した後（VBAでもこういう形にすればスタックなぞ一定量しか要らん)>>
function factorial&(byval r%)
dim result&
dim i%
factorial = 1
for i = 1 to r
factorial = factorial * i
next i
end function

まあなんだ、末尾再帰とか勉強したかったらSchemeとかHaskellとか勉強すればいいんじゃね？

ごめん。最後の関数のresult&はいらん。

選択範囲をset して
For Eachでまわそうとすると
余分にまわりませんか？
Selection.Countでみるとときどきなんか多い…わらし？

コード晒せよ

>>552
君、うざいよ。

>>552
なるほど、納得です。>>549の説明も意味が分かりました。
・再帰のコードは、普通のループ構造で表現できる。
・再帰のコードをいったん末尾再帰の形に直しておけば、ループ構造に直すのが容易。
・末尾再帰のコードは、『残りの操作』（戻り値を使った演算）が必要ないため、理屈としては呼出元の変数の状態を保存しておく必要がない。
・言語によっては（あるいは賢いコンパイラは）この性質を利用して、末尾再帰のコードを、同一関数のくり返しの形（ループ構造）に最適化してくれる。
　だから呼び出しのたびにスタックリソースの消費が増加することがない。
・でもVBAではそういう最適化はしてくれないから、最初から自分でループ構造に直して書く。

ありがとうございました。

>>554 >>555

VBAで、GUID（グローバル一意識別子）を取得したいのですが、
なにか関数などはありますか？
GetGUID的な、都度ユニークなIDを返してくれるような。
C++の方法はわかるのですが、VBAでやる方法がわかりません。
よろしくお願いいたします。

>>558
手元にあるリファレンスブックをざっと見ましたが、
そういう関数は私には見つけられませんでした。

その識別子を何に使いたいのか教えてくれたら、
他の方もアドバイスしやすいと思います。

>>557
だいたいその認識でOK。
誤解の無い様に言っておくが、（勘違いしていたらすまんこ）
全ての再帰がループに直せるわけじゃなくて、末尾再帰だけね。

>>558
VB GUID 生成

>>559 >>561

ありがとうございます。
できました。
http://support.microsoft.com/kb/176790/ja

文字列の置換に関しての質問です。
以下のような記述をしているのですが、
置換してほしくないものまで置換してしまいます。

たとえば文字列A12をB12に置換したいが、
文字列A123は置換せずそのままにしたいような場合、どうすればよいのでしょうか？
ちなみにWhat:=str1とReplacement:=str2は別シートの置換リストから引っ張ってきています。

　ActiveSheet.Columns("A:A").Select
　Selection.Replace What:=str1, Replacement:=str2

>>563の追記です。
1つのセル内には複数の文字列群があるため（A12とA123が同一セルにある）
xlWhole　をつけてもだめでした。

A123を先にB123に変換
A12を変換
B123をA123に変換
では多分駄目なんだろなぁ

>>563
あくまでおいらのやり方ね。状況に応じて何種類か使い分けてるね。

・>>565さんのやり方。
str1の検索ワードにlenでの長さを出して、降順にソート。長い物から置換して行く。

・オートフィルタで完全一致させる物を抽出。んでマッチにしたセルを置換。

・上二つや、組み合わせで対応出来ない時はregexpのreplaceを使う。（regexpの話出ると荒れるんだよね・・・）

たぶん、検索文字列と置換文字列がデータテーブルに存在するならば、
オートフィルタか、長い順に置換で出来るような気がするよ。

>>564
>1つのセル内には複数の文字列群があるため（A12とA123が同一セルにある）

かぁ・・・・。
データテーブルを文字列の長い順にソートしてから、
オートフィルタの部分一致で抽出、見えてるセルにreplaceでどうかな。

>>565　>>566　>>567さん
朝早くからご回答ありがとうございます！
今日夜にでも長い順にソートで試してみたいと思います。

置換の>>563です、
あぁ・・・。
以下のような場合がマズイかもしれません。
もう少し調べたり考えたりしてみますね。

例）置換リスト　A123→B123

対象データセルの文字列
A12 A123　A1234

※A1234までB1234になってしまう。

一旦配列に取り込んでVBAでReplaceした方がいいんじゃないのかな

あ、Replace関数使うんならLen関数も一緒に使うとかしないとダメだな

置換条件が結構厳しそうだね。
replaceだと一致は理論上の部分一致だし、
1セルに複数の文字列が入ってるとなると、オートフィルタも限界あるなぁ。

regexpのreplaceメソッドが良いような気がするけど、詳しい人の意見も聞きたいな。
セルの中で、どんな風に文字が配置されてるかが分からないけど・・・まぁ行けるかと。

A12A123A1234　のうちA123だけを置換したいなら、 "A123^A"で引っ掛けられるかな。

VBAのreplace使えるのって、A123もA1234も置換する場合に限られるような気がする。
もし、A123は置換するけど、A1234はそのまま、って場合にはちとまずい。

だから配列に取り込むんだよ

>>569
まず、>>563で

>文字列A12をB12に置換したいが、
>文字列A123は置換せずそのままにしたい

と書いていますが、２つの要求同士が矛盾しているので、
そのような動作はありえません。

解決の可能性としては、>>572の「セルの中でどんな風に文字が配置されているか」がポイントです。
つまり、文字の配置に規則性があるかどうか、ということです。
たとえば>>569で、対象データセルの文字列として「A12 A123　A1234」という例が示されていますが、
これを見る限り「文字列に含まれる各単語は、スペースで区切られている」という規則性が感じられます。
もし、すべての対象データセルの文字列がこの規則に従っているなら、望みの操作は可能です。

まずはすべての文字列に共通する規則性があるかどうかを確認し、
もし上記のような規則が存在するなら、>>570と>>574が薦めている
「配列にとりこむ」方法を検討してみてください。
この場合、Split関数が使えます。

>>569の例のように区切り文字がスペースって事なら（半角と全角が混在してるな・・・）

　ActiveSheet.Columns("A:A").Select
　For Each c In Selection
　　c.Value = RTrim(Replace(Replace(c.Value,"　"," ") & " ", str1 & " ", str2 & " "))
　Next

とかでどうかな、遅いし全角スペースは半角になっちゃうけどね

何でもかんでもVBAの機能だけでやろうとすんなって。
使える物は何でも使おうぜ。
VBSだろうがAPIだろうがWHSだろうが、VBAから使える以上、VBAで良いと思うぞ。

Microsoft VBScript Regular Expressions
参照して、正規表現で置換かけるのはダメなん？

完全一致を望むならば、やはり正規表現だと思う。

>>576のレスを見て、全角と半角の混在に気づきました。
これではJoinは使えませんね...

私は正規表現は苦手で、普段はあまり使っていないのですが、
たしかにこの状況では正規表現が良さそうな気がしてきました。
半角・全角スペースどちらにもマッチしてくれる\bがかなり便利。
"\b(A12)\b" を探して "B12" にReplaceするだけで済みますね。

>>577
具体的にどうやるのか示せよ

どんな物を置換したいのか、どんな並びになってるのかが分かればマッチパターンを考える事は出来まっせ。

もし、住所録の置換なんかで、
○○県アルプス市〜〜　→　●●県foo市〜〜
××県南アルプス市〜〜　→　△△県bar市〜〜
みたいなのだと、正規表現じゃないと無理ですな。

何にせよ、規則性を見つけ出してパターンを組む事から始めよう。

XP Excel2003で質問なのですが

480×640の画像のRGBの値を画素ごとに
R(480,640),G(480,640),B(480,640)
という配列に読み込みたいのですが可能でしょうか？

スレ違い

画素ごとに・・・ってあんた。

1000万画素の写真として、3000万個の配列ですか・・・。
考えただけで鬱・・・。

>>586
もし暗算が苦手でしたら、WindowsにしろLinux(Gnome)にしろ電卓アプリが付属していますので是非お使いください。

え・・・普通480×640って言ったら画像サイズの事じゃないの？
画素数は密度によって違うと思うんだけど。

>>588
画像サイズが pixel 単位表記ではない可能性の話？

仮に mm 表記で 100dpi とすると
640mm/25.4*100≒2520pixel
480mm/25.4*100≒1890pixel
2520x1890=470万画素

>>583

可能です。中級ぐらいのVBA解説書で時々見かける課題です。
まずは対象の画像ファイルをBinaryモードでOpenし、
配列変数にバイト単位で格納します。数行で済みます。
ttp://www.cocoaliz.com/excelVBA/index/47/

次に、その画像のファイル形式の仕様に沿って、画素データを抽出する
だけですが、画素ごとの色データを取得するのが目的であれば、
24bitモードのBMP形式の画像ファイルがもっとも簡単です。
他の形式の画像ファイルでも、いったん24bitのBMP形式に保存しなおして
から処理するといいでしょう。

BMP形式の仕様はこうなっています。
ttp://www.kk.iij4u.or.jp/~kondo/bmp/

データ部には、１画素につきＲＧＢの順で各１バイト（計３バイト）の
色データが並んでいます。（注意が必要なのは、並びが最下行から最上行の
方向になっている点です）
上記２サイトを参考にチャレンジしてみてください。

エクセルっていろんな事出来るんだね・・・ほんとすごいです。

すみません。>>590は「VBA解説書」→「VB解説書」の間違いです。
さすがにExcelVBAの解説書で、画像ファイル処理の例は見たことはありません。
ある意味>>584ですが、ついつい答えてしまいました。

画像サイズと画素数を混用してしまったせいで変な誤解をさせてしまったみたいです
すみませんでした。

>>590
非常にわかりやく解説していただいてありがとうございます！
ずばりこれを知りたかったんです。
ありがとうございます。

結局、置換の質問した人はうまく出来たのかな。

今頃痴漢してつかまってるよ

（　´_ゝ`）

ご報告が遅くなりましてすいません。置換の人です。

みなさんの知恵をお借りして、
私のつたないプログラム能力でなんとか作ってみました。

結局、セルを１つずつ読み込んで、
セル内の文字列に対してregexp正規表現　\b(str)\b　で置換　
という形にしたところ、要求を満たすことができました。
みなさんありがとうございました！

おめでとう

入力された文字が漢字か平仮名かを判定することは可能でしょうか？

はい。

どうしればいいのでしょうか
教えてください

全てのひらがなのリストを用意し、入力された文字がその中に見つかるかどうか判定すれば宜しいのではないかと。

そんな無駄で面倒なことしなくても、文字コード判定すれば一目瞭然かと

＞文字コード判定

こいつを具体的に。

VBAからSASを操る事は可能でしょうか。
もし可能だったら、どんな感じで行えるのかを教えてくださいませ。

> VBAからSASを操る事は可能でしょうか。
可能です

> もし可能だったら、どんな感じで行えるのかを教えてくださいませ。
>>1★3

ありがとうございました。

>>604
平仮名の文字コード知るには

Cells(1, 1).Value = Asc("あ") ' -32096 を返す

グラフを描くとき、データ範囲設定において、
A1〜A12のデータがあり、A1〜A6、空白データ、A7〜A12と設定してグラフを描きたいのですが、
空白データの設定がわかりません。
空白データA1000〜A1010を設定して、Unionで範囲結合しても駄目でした。

できる限りシートのデータ位置は移動させたくありません。
何かよい方法がありましたら教えてください。

>>608
で、それが>602よりも無駄でもなく面倒でもないと?

>>609
見せないダミーのセルに空白データを抜いてコピーするんじゃダメ?

>>602
もしアルファベットやらカタカナやらが入力されても漢字と判定するって事か
どういう入力があるのか知らんけど

>>610
-32096から-32015の値を探せば良いだけ
直接文字列の"あ"とか探すよりも効率的
意味わからないかな？

>>611
すでにデータが入っていて、他関数からも使うので位置は動かしたくないのです。

コードを手動でエクスポートするのが面倒なので、コードをすべてエクスポートしてdoxygen
するコードを書いてみました。
要はイミディエイトウインドウの内容をクリアして、Enterキーを送ってイミディエイトウインドウ
でshellコマンドを実行したいんですが、クリアする処理をすると、コマンドが送られた後
クリアされてしまいます。クリアする処理を省けば問題ないのですが、できれば出力過程も
イミディエイトウインドウに出力したいのです。気分的に。
どなたか同じような事やったことある方いませんか？

Sub prcExportVBComponents()
Set oVBComponents = Application.VBE.ActiveVBProject.VBComponents
Set oWin = Application.VBE.Windows
Set oCodePane = Application.VBE.ActiveCodePane

' prcClearImmediateWindow ' イミディエイトウインドウをクリア
' oWin.Item("イミディエイト").WindowState = vbext_ws_Normal
' oWin.Item("イミディエイト").SetFocus
' SendKeys "^a"
' SendKeys "{Del}"
'処理

Debug.Print "shell " & Chr(34) & strComponentPath & "bld.bat" & Chr(34) ' doxygenを実行
'前の行に戻ってEnter
oWin.Item("イミディエイト").SetFocus
SendKeys "{Left}"
SendKeys "{Enter}"
End Sub

>>615
わざわざイミディエイトウィンドウで実行しなくてもいいんじゃないの？
つまり、End Subの前の3行（コメントも入れて4行）を

Shell strComponentPath & "bld.bat"

に置き換える。

ブックを変更して、ファイルを閉じようとしたり、エクセルを終了
させようとすると、
「変更を保存しますか？」
とメッセージが出力されます。
ここで、「はい」、「いいえ」、「キャンセル」のどれが
選択されたかを取得する方法ってありますか？

あります

ちょっと前からこのスレ見てるけど、やけに意地悪なやつがいるな
たぶん同一人物だろう

いいえ

>>619
馬鹿？

わざわざ質問に答えてて充分親切だと思うよ。
方法の詳細を知りたいなら、ちゃんと質問しない方が悪い。

>>617
return value

名簿にオートフィルタを使い、名前の列(B列)で抽出された可視セルを配列に格納するプログラムを作ろうとしています。
現在、可視セルを配列に格納する部分で躓いています。
Dim i As Long
Dim hairetu() As String
Dim kasi As Long

kasi = Range("B2", Range("B2").End(xlDown)).SpecialCells(xlCellTypeVisible).Count
ReDim hairetu(kasi - 1)

For i = 0 To kasi - 1
hairetu(i) = Range("B2:B100").SpecialCells(xlCellTypeVisible).Value
Next

修正すべき箇所や効率的な方法がありましたら教えてください。

cells(1,1).end(xldown)
で、可視セルを1段ずつ下げて行くとか？

グラフで折れ線を描くとき、間にデータがないと線でつないでくれません。
ツール、オプション、グラフで線を補完すると線は引かれました。

ここで質問です。
間を補完したい項目、補完したくない項目があります。
ある項目のみ補完する方法があれば教えてください(VBAでも可)

データを線形補間して、別のシートに出力、グラフ生成

>>624

コードを見る限り、SpecialCells(xlCellTypeVisible)が
可視セルのコレクションを返す、ということは分かっておられると思います。
コレクションに何個のセルが含まれているかをCountプロパティで取得し、
配列の要素数を確定するところまでは、きちんとできています。

問題は、最後のForループです。今の場合は、可視セルのコレクションの
個々の要素の値を配列に格納したいわけなので、
Forループではなく、For Each ループを使うのが妥当です。
（あらかじめ、コレクションの要素を受けるための変数c as Variantを宣言しておいてください）

i=0
For Each c in Range("B2", Range("B2").End(xlDown)).SpecialCells(xlCellTypeVisible)
　hairetu(i) = c.Value
　i=i+1
Next

>>626

まずは「ツール、オプション、グラフで線を補完」の状態にしておきます。
これで基本的に補完される状態になります。

次に、補完したくない要素について、線の色を背景色と同じにし、見えなくします。
VBAで表現すると次のようになります。
ActiveChart.SeriesCollection(1).Points(4).Border.Colorindex=2
（系列1の4番目の要素の線の色を白にする）
プロットエリアの背景色が白なら、こうすることで見えなくなります。

この操作をマウスでやってみて、「マクロの記録」を
してみると分かりやすいと思います。

>>614

>>611の言いたいのは、もとのデータを移動させることではなく、
もとのデータのコピーを別の場所に貼り付けて、
そのコピーをグラフのデータとすればいいのではないか、
ということだと思います。
私も、それ以外方法が思いつきません。

別シートのA1:A6に、元シートのA1:A6を、
A8:A13に、元シートのA7:A12を、
それぞれ「リンク貼り付け」します。

そして、別シートのA1:A13をグラフのデータとします。
「リンク貼り付け」しておけば、元シートのA1:A12が変化しても
即座に反映されます。


>>615
すごい面白そうですが、私はやったことがありません。

コレクションのすべてに命令を掛けるループは for each が妥当だとは思うんだけど、
for でcountして回すのと、for eachでコレクションにループ掛けるのではどっちがスマートなんだろ。

今、実測出来る場所じゃないんだけど、誰か測定した事ある人いますか？

>>631
ほとんどかわらないみたい
ttp://officetanaka.net/excel/vba/speed/s5.htm

何も事情がないかぎりFor Each使ったほうが分かりやすい。

値渡しとか参照渡しするくらいなら
はじめからPublicで定義しといたほうがいいとおもうのはおれだけ？

Publicはできるだけ少なくするのが基本　なくせるならないほうがいい

UserForm に Application.GetOpenFilename でファイルを開くダイアログを
使ってファイルを開いた後に、UserFormにファイルをドロップできるように
なってしまったんですが、私だけですか？

>>631

基本>>633ですが、たしかに事情によっては、
コレクション対象であってもForループの方がスマートな場合もあります。
たとえば、コレクションのすべての要素を配列に格納したい場合、

i = 0
For Each tmp In myCollection
　ary(i) = tmp
　i = i + 1
Next

とすると、配列添字カウンタ変数iと、アイテム取り出し変数tmp
の２つがどうしても必要ですが、Forループなら添字カウンタ変数だけで
済みますよね。

For i = 0 To myCollection.Count - 1
　ary(i) = myCollection.Item(i + 1)
Next

カウンタ変数の加算が、For構文の中に組み込まれているのも利点で、
できるだけDo Loop ステートメントではなくFor ステートメントを使うことを
好む方も、たいていそれが理由だとか。

でも速度的には、下の例はループのたびに補正演算が入るので、ほんのちょっと
遅くなってしまうかも。

僕はいつもこうしてます。気分的なもので。
こっちのほうが早いような気がしてます。

lngCnt = myCollection.Count
For i = 0 To lngCnt - 1
　ary(i) = myCollection.Item(i + 1)
Next

VBAで大量のコレクションをループすると非常に遅くなりますよね

速度は気にするべきじゃない。
なんにせよ、パフォーマンスは計らないとわからないという一面もあるし。
最初はアホなコーディングさえしなければおｋ。

アホなコーディングといえば、初心者の頃の私は>>634をさらにつきつめたような
考えを持っていて、ある日「どの関数でもループにiを使うなら、iをパブリック変数に
しておけばいいじゃない！」とひらめいたのです。そしてその方法で２つぐらい
モジュールを書いて、「これはどんな解説書にも載っていない画期的な方法だ！」と
思い込んでいました。

確かに画期的だね

VBAはブロック単位で変数が初期化されるわけじゃないから、
初期化処理を書かないまま特定の処理部分をループにしたりすると、
前回の内容がそのまま流れてきたりしてしまうんだよなあ。

static i が良く分かりません。

関数1で使った変数の続きを関数2で利用する時に、
いったん、ストック用の変数に入れて、関数2の時に呼び出してる人がいたので、
staticで続ければ良いんじゃないですか？

と言ったら、無知は黙ってろ。と言われました。
staticは関数間で解放されない変数と記憶していたのですが、間違ってますでしょうか。

エクセルからワードに差し込むように
エクセルファイル（データ）→エクセルファイル（伝票書式）に差し込みたいけど
伝票書式側のファイルにVBAや関数組んで引っ張ったほうがいいのかな？

差込ボタンを押したら
・（データ）ファイルの一番下の行をコピー
・（伝票）ファイルの適当なところに貼り付け
・でそこをセル参照
・↑↓ボタンを押したら（データ）ファイルのデータの1行上・下をコピー、以下同

こんな感じでしょうか？
もっといい関数とやらはあるのでしょうか？
会社のPCはアクセス無いから大変だ・・

>>623

すいません。もう少し詳しく教えて頂けませんか？

>>645
>・↑↓ボタンを押したら（データ）ファイルのデータの1行上・下をコピー
押したタイミングで命令をするならイベントハンドラの考え方になるね。

SheetSelectionChangeイベントが良いかな。
右左をとれないようにして、keydownで設定するのも良いかも。

ここまで書いたんだけど、どんな制御にしたいかイメージが難しいです。
すいません。

>>642 >>643
その後、ループの中から別関数を呼び出し、呼び出し先関数でもループを用いる形が出てきて、
同じPublic iを使い回していたその画期的なシステムは、完全に機能不全に陥りました。

>>645
いろいろなやり方があると思います。私はむしろデータブック側に、
任意のデータを取り出すためのユーザー定義関数を実装し、
伝票書式ブック側から参照設定するやり方をよく用います。
たとえば、データの主キーが「伝票番号」である場合、
「伝票番号」を渡すとその伝票の売上日を返す関数UriageDate(dNum)、
売り先を返す関数Urisaki(dNum)、金額を返す関数Kingaku(dNum)、
などをデータブック側に定義しておきます。

そうして伝票書式ブックから参照設定でそれらの関数を
利用できるようにすれば、任意のセルにその関数を入れるだけで、
お好みのデータを取り出すことができます。
たとえば、伝票書式ブックのA1が伝票番号のセルだとすると、あとは任意のセルに
=UriageDate(A1)、=Urisaki(A1)、=Kingaku(A1)
という数式を埋め込んでおけば、A1の伝票番号を変えるだけで、
即座にこれらの関数が適切なデータを返してくれます。

伝票書式ブック側にVBAモジュールを実装し、その中で「Cells(3,4)に売り先を書き込む、Cells(4,10)に金額を書き込む」
とやっていると、伝票書式のデザインを変更したいときに柔軟に対応できませんが、
このやり方なら、数式を埋め込むセルを変えるだけで済みます。
また、参照設定さえすれば、さらに別のブックからもこれらの関数を利用できます。

機能不全になる前に気づけよｗ

他人に迷惑かけない限り別にいいじゃない。
641じゃないけど実際に痛い目にあうとよく覚える。

カスタムシート関数の場合は共有設定でも見られるのがいい

>>649
機能不全の理由が分かるまで３日ぐらいかかりましたｗ
初めての頃はまずそんなもんです。

>>644
間違っているかどうかは、文章だけではよくわかりません。
関数1を呼び出す関数が、関数2以外にも複数ある場合は、
それら別の関数が、関数1の中の Static i をいじる可能性があります。
本来、Static変数はそういう使い方をされるためにあるのですが、
やはり場合に応じて、いじられても良い時と、いじられたら困る時とがあります。
後者の場合は、とりあえず現在の値をどこかにストックしておく必要が生じます。

ユーザー定義関数か・・・ちょっとやってみよう

ちなみにユーザ定義のシート関数のパフォーマンスなら↓に載ってた。
まあ、正確だとはいえないが、VBAが決して遅くないことがわかる。
http://www.spreadsheethell.com/codematic/Excel-development/Excel-Visual-studio/excel-user-defined-functions.htm

C#圧倒的だな

そうね　圧倒的に遅い

マクロでコピー、貼り付けを記録すると
Range("A3").Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
こうなりますが、汎用性を高めるために
　　i=Activecell.row
　　Cells（i,1).Select
Selection.Copy
　　Cells（i,3).Select
ActiveSheet.Paste
としました。
でもコピー貼り付けが多くなったり、列入れ替えがあると列の番号の変更が大変です。
シートの上端行を名前で定義した場合、マクロで名前を使うにはどうすればいいのでしょう？
Cells（i,"顧客名").Select のように使えたらいいのですが・・・

Range("C3") = Range("A3")　でおっけ

A3をC3にコピーするだけじゃなく
汎用性を高めるために
選択セルの行の　1列目を3列目にコピーするようにしたいのです。（実際は別ブックへ）

do until cells(1,j).value = "顧客名"
j = j + 1
loop

cells(i,j).copy

とか？

普通に[1:1].Find("顧客名").Column？？

i = ActiveCell.Row
j = [1:1].Find("顧客名").Column

Cells(i, j).Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste

でうまくいきました。ありがとうございます。

部門テーブル
主キー　
01）部門CD　　数値　4桁
02）部門カナ　文字　10桁
03）部門名　　文字　20桁
04）部門略称　文字　6桁
05）作成日　　日付　--桁
06）作成時間　時間 --桁
07）作成端末　数値 7桁
08）作成者ID　文字　10桁
09）更新日　　日付　--桁
10）更新時間　時間　--桁
11）更新端末　数値　7桁　
12）更新者ID　文字　10桁

部門CD,部門カナ　　　　,部門名　　　　　　部門略称　作成日 作成時間　 作成端末 作成者ID 更新日　　 更新時間 更新端末 更新者ID　　
　　1,エイギョウ　　　　営業　　　　　　　営業　　　 2002/09/01　00:00:00　 80001 FUJI 2002/09/01 00:00:00 80001 FUJI 　　

おっと

663のを教えて。

富士通もとうとう日本語が喋れないのが標準になったか

>>629
＞次に、補完したくない要素について、線の色を背景色と同じにし、見えなくします。
一部線が引かれているところがあり、そこは見えてもらわないと困るのです。

>>667
データを線形補間して、別のシートに出力、グラフ生成

Excelの機能には限界があるんだから、Excelでできない事は自分でやらないと

>>667
線全部じゃなくて、要らないところだけ背景と同色にすればいいだろ。

>>667

>>670でフォローしてくださっている通り、
線全部ではなく、一部分だけを背景と同色にできます。
>>629のコード例はそのつもりで書いたもので、
系列１の線の、４つ目の線分だけを見えなくします。
つまり、点１から点４までと、点５から最後の点までは
きちんとつながっている状態です。

手作業で（マウスで）試す場合は、ある線をクリックして、
さらにもう一度クリックしてみてください。
クリックされた線分だけがアクティブになるはずです。
その部分だけに、お好みの書式を適用できます。
その動作をマクロ記録すれば、VBAでどう表現するのか
分かりやすいと思います。

>>668でもいいと思います。

マクロ記録はAlt, T, M, Rと覚えてしまったら楽。

一つの変数を複数のユーザーフォームで使いまわす方法ありますかね？

>>672
やめてくれ。マクロ記録するたびにあのボーカルの顔が浮かんじまうw

>>673
「使いまわす」を詳しく。

久しぶりにマクロ組んで保存して使おうと思ったら・・・・
マクロ有効形式でなければ保存受け付けないだの
セキュリティレベルの警告も出ないまま無効だの
ファイルが安全な場所になきゃ有効にしてくれないだの


すげーむかついた
vista視ね

visuta厨涙目ｗ

それWindows VistaだからじゃなくてOffice 2007だからだろ。

2007のリボンは本当にひどい。
慣れとか言う以前に、慣れても面倒。
クリック回数が増えただけですわ。

Alt+F8 , Alt+F11　で慣れてないとVBE環境もつらい・・。

他に選択肢ないのがつらいね
あぁ待てばいいだけか

質問です。現在、ユーザーフォームを.PrintFormを使い印刷しています。
このユーザーフォームは、
上側にボタンが横一列で並んでいて
中央にコメントボックス、
下側にラベル
という形になっています。

このユーザーフォームを、コメントボックスとラベルのみを印刷、
又は印刷時にボタンを非表示にする、ということは可能でしょうか？
もしできるのであればその方法を教えてください。お願いします。

>ボタンを非表示にする、

という事であれば、

userform1.button1.visible = false にすれば
非表示には出来る

セルに文字列があり、変数に取り込みメッセージの一部に使いたいのです。

しかしセルに改行が入っていると当然メッセージでも改行されます。
改行を取り除く方法があれば教えてください。

vbcrlfを探して取り除く。

Alt+Enterでのセル内改行はvbLfのみだぞ
.Value = "a" & vbCrLf & "b"
みたいにすれば、vbCrLf での改行も不可能では無いが
普通はvbCrLfを取り除いても意味無い

excelでデータベースのロジカルチェックを掛ける事を考えておりまして、
つきまして、プログラム構造、モジュール構造についてアドバイスを頂きたく投稿します。

ロジカルチェック自体は、200-300個あります。
今考えているのは、1つのモジュールに、private sub で200個のプログラムを書いておき、
1つの sub で200個のチェックプログラムを call しようと考えています。

そこで質問なのですが、1つのモジュールにたくさん詰める事は好ましくないのでしょうか。
保守を考えると、private sub A010010 のように、チェック番号をプログラム名にしておけば、
Ctrl+Fの検索で、見つけやすいかなぁ。と思っています。

皆様だったらば、どのように構築していくか等、アドバイスを頂ければ幸いです。
よろしくお願いします。

ストアド書いて、befor triggerにしろ

勉強不足で申し訳ありません。ストアドプロシージャは初めて聞きました。

データベースはSASで作成されているのですが、SASを使える人が少ない上、
教育に金が掛かる＆SASライセンスが高い。と言う理由で、
なるべくコストの掛からない方向を考えている次第です。
統計解析を行うので、データベースをSASから変える事は難しいです。

イメージとしては、SASで作成されたデータセットを1つのブックに統合し、
その統合ファイル上でロジカルチェックを掛けられればと思っています。

当方、ACCESSやSQLの知識が無い為に、ストアドと言う単語も初めて聞いたのですが、
やはりEXCELのみで完結させるのは難しいでしょうか。

もし可能であれば、もう少し詳しく教えていただけますでしょうか。よろしくお願いします。
情報小出しのようになってしまい申し訳ありません。

>>687
長い目で見れば、弊社のような専門家にお任せいただくのが一番かと存じます。

難しい言い回しにしなくてもいいと思うよ
http://www005.upp.so-net.ne.jp/aoken/sas/sas_iom_xls.html

>>685

最適な構造は、最終的にどういう運用をしたいのか
なるべく具体的にイメージすることで見えてきます。
細部の仕様も、その過程で決まっていきます。

・常に全種類のチェックが必要か
　→状況により、「前半のチェックは省略したい」などの要求が起こりえる場合
　　　→Call文のコメントアウトで対応？
　　　→スイッチＵＩ実装？
　　　　　→チェックする項目のプリセットを保存できれば便利？

・エラーレポートはどうしたい？
　→Excelシートに出力
　→テキストファイルに出力

・修復ロジックも実装したい？

そのプロジェクトは一人で担当しているのですか？
もし何人かでやっているのであれば、上のような点を
協働者とも相談してみてください。

>>689
ありがとうございます。ただ、SASでステップは走らせません：（

すいません。私の質問の仕方が悪かったようです。

データベース、解析は一切関係無いとして、
1つのEXCELブック内にあるデータ同士の整合性をチェックするプログラムが200個あります。
この200個はどのように書いて行く、もしくは作成していくべきでしょうか。
個々に呼び出す必要はなく、必ず200個全てを走らせます。
1つの標準モジュールに200個羅列して行くべきか、モジュールを分割するべきか、
はたまたストアドを利用するか・・・。

ストアドプロシージャを調べてもEXCELと関連のあるページは見つけられませんでした。

本当に申し訳ありません・・・。

>>690
レスありがとうございます。
組み込んだロジカルチェックは必ず全部実行させます。

エラーレポートに関しては、後々処理が出来るように、別ファイルにダンプし、ログとして集積させます。
そして、レポートを発行する際に、管理番号でオートフィルタを掛け、
マクロでレポートの形にして、発行出来るようにする事を考えています。

プロジェクトとしては、これから提案して変えて行こうと思っている段階です。
その為には、具体的にロジカルチェックをEXCELのみで掛ける事が重要と思いまして、
質問をさせていただきました。

>>692
運用がわからんからなんとも言えんが、パフォーマンスなんかは問題にならんの?
# そして全く無視される>688w

>>693
private sub で200個を1つのモジュールに記載して、
呼び出し用の sub で200個を call する事は問題が無いのか、そこが気になっています。

そこまで多くのプログラムを1つのモジュールに書いた事がありません。
本当に動くのかも悩みの種です。

統合ファイルの内訳としては、その度に変わるので一概には言えないのですが、
平均すると25-30シートで、1つのシートに多くとも2000行程度なので、問題はなさそうです。

>>694
・Subではなくて、FunctionでBooleanを返したほうが良いのでは？
・一つのモジュールに入る大きさのコードなら、どれだけ書こうと全く問題がない（限界を超えたら
　実行時エラーとして教えてくれる）
・保守を考えるなら、第三者が見てわかりやすい関数名にしたほうが良い
・関数名には日本語が使えて、さらに日本語を使っても全く問題がないので、日本語を使った
　関数名にするというのも一つの手

>>695
レスありがとうございます。
functionのboolean戻りは良いですね。
booleanで返した時に、エラー項目を引っ張る際にもう1段踏まないと行けないのがつらそうですが、
何とか対処出来そうです。

やはりモジュールに限界はあるのですか・・・。でも実行時エラーが出るなら安心ですね。

実はチェックリストが存在していて、そのチェックリストを基にプログラムを組むので、
チェックNo.のコードを関数名にするのが良いと思いました。

アドバイスありがとうございます。

200ねえ…
そんな量じゃなければ、私ならインタフェース使ってクラス量産かな。
（なんせ200もクラスがあるとウザいので）
これなら処理を値として扱える。

>>697
ですよねぇ・・・。
一つ一つは小さい処理で、日時の整合性を確かめたりする程度なのですが、
何せ200-300、プロジェクトによってはもっと増える事もあるんですよね。
だから、作成者と保守者が別でもわかりやすいように、と色々考えてはいるのですが、
なかなか纏まらない感じです。

皆様、アドバイスありがとうございました。
2-3日、無い知恵絞って頑張ってみようと思います。

本当にありがとうございました。失礼します。

>>694

>private sub で200個を1つのモジュールに記載して、
>呼び出し用の sub で200個を call する事は問題が無いのか
私も、これ自体は問題ないように思います。
少し上のほうのレスに、再帰呼び出しの話題がありますが、
数百個ぐらいなら、たとえネスト呼び出ししても大丈夫です。
コードの長さについては、万が一どうしても収まらない事態になれば
別々の標準モジュールに分割してもいいでしょう。
その場合、各ロジックチェックはPublicスコープにする必要がありますが、それが
嫌であれば、クラスモジュールに書いてFriendスコープにしておく手もあります。
いずれにしても、取り返しのつかない結果になる心配はありません。
常に２００のチェックを行い、カスタマイズの可能性も無いのであれば、
まず１つのモジュールに羅列しておくのがシンプルで良いかと。

>>695の >・Subではなくて、FunctionでBooleanを返したほうが良いのでは？
と同じことを考えていましたが、エラーログ出力部となるプロシージャをどのように
配置するかによって、２通りの構造が考えられます。
ロジカルチェックをFunctionで書いて、呼び出し元にエラーチェック結果を返し、
呼び出し元からエラーログ出力プロシージャを呼ぶのか、
あるいは、ロジカルチェックをSubで書いて、エラーが検出されたらそのSubから
エラーログ出力プロシージャを呼ぶのか。
単純に「エラーがあった、なかった」だけのレポートで済むのであれば、
Bool値を返すFunctionでいいと思いますが、「どのようなエラーなのか」まで
表現したい場合は、後者の方が都合がいいかもしれません。

COM経由で呼べる組み込み言語ってないだろうか。
適当にJScriptインタプリタ起動できたりしないのだろうか。厳しいかな。

ときどき　0&　ってのを見るんだけど、これってどういう意味ですか？
If Len(buf) = 0& Then〜　みたいな感じです

Long型の0

ごめん　うそ

>>700
Microsoft Script Control

>>704
thx！

範囲(行のみ下がる、列数data_nは同じ)が離れているセルの値を、その範囲だけ、二次元配列に格納したいです。

仮に範囲数が4つなら二次元配列は(4,data_n)

unionで範囲を結合しても3つまでしか結合できませんでした。

だから1つずつ範囲から値を配列に格納しようとしていますがうまくいきません。

どのように配列定義、範囲から二次元配列への格納をすればよいでしょうか？

>>706

>範囲数が４つなら、二次元配列(4, data_n)
という点から想像すると、それぞれの範囲は１行×data_n列のサイズになっている
ということですか？

まず配列の定義ですが、特に設定を変えない限り、配列の番号は0から始まるので、
（4, data_n） と定義すると、実際には 5 × (data_n + 1) 個分の配列が
準備されます。本当にそれでいいかどうか確認してください。

次に格納の仕方ですが、
>1つずつ範囲から値を配列に格納しようとしていますがうまくいきません。
この考え方でも大丈夫です。中途半端でも構わないので、
とりあえず書いたコードを貼ってみてください。