Excel VBA質問スレ Part12

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

前スレ http://pc12.2ch.net/test/read.cgi/tech/1241885130/

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

★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

過去スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/

msgbox ">>1乙"

do

msgbox "１乙"

loop

dim ポニテ as strlng
ポニテ ＝ ”>>1乙”
debug.print ポニテ

Dim これは乙なんかじゃなくてなんたらかんたら
これは乙なんかじゃなくてなんたらかんたら =FileFile
Open "C:>>1乙.thanks1" for output as これは乙なんかじゃなくてなんたらかんたら
Print これは乙なんかじゃなくてなんたらかんたら ,">>1乙"
Close これは乙なんかじゃなくてなんたらかんたら

indowsVista
MicroSoftOfficeEXCEL2007
を使っています。



初歩的な質問で申し訳ないのですが、
ユーザーフォームでListBoxを作って
プログラムの中で、


Dim a As ListBox


と宣言して、


Set a = ListBox1



として実行すると、型が一致しません、とエラーがでてしまいます。


どなたかこのエラーの理由がわかる方いましたら
レスよろしくお願いします！

>>7
エラーはどこで出てるの? 黄色い矢印はSet a = のところにある?
エラーメッセージは「型が一致しません」で間違いない?

>>8
レスどうもです！


エラーメッセージは間違いありません。


黄色い矢印は、標準モジュールに書いたユーザーフォームを表示させる
UserForm.Showの命令に出ます。


ユーザーフォームの初期化部分(UserForm_Initialize()内)で
先ほどの代入文を使っているのですが、
メッセージボックスを使ってバグの場所を特定すると、
その代入文でエラーが起きているようなのです。



何か少しでもヒントがあったら
レスいただければ幸いです。

理由は良くわかりませんが、
Dim a As MSForms.ListBox
としなければならないようです。

>>10
エラーがなくなりました！

ネット環境がないので助かりました。
どうもありがとうございました！！

呼び出し直後でNULL値がセットされてんじゃね

VBA初心者です。これをループにしたいときって、どうすればいいんでしょうか？

Sub test()

With ActiveSheet

Sheets("test").Cells(4, 2).Value = .Cells(19, 3)
Sheets("test").Cells(4, 3).Value = .Cells(18, 3)
Sheets("test").Cells(4, 4).Value = .Cells(116, 3)

Sheets("test").Cells(5, 2).Value = .Cells(19, 5)
Sheets("test").Cells(5, 3).Value = .Cells(18, 5)
Sheets("test").Cells(5, 4).Value = .Cells(116, 5)

Sheets("test").Cells(6, 2).Value = .Cells(19, 7)
Sheets("test").Cells(6, 3).Value = .Cells(18, 7)
Sheets("test").Cells(6, 4).Value = .Cells(116, 7)　　　　〜（以下略

End With

End Sub

見よう見まねでこんなふうにやってみたら、ダメでした・・・

Sub test()

Dim y As Integer
Dim x As Integer

For y = 4 To 6
For x = 3 To 7 Step 2

With ActiveSheet

Sheets("test").Cells(y, 2).Value = .Cells(19, x)
Sheets("test").Cells(y, 3).Value = .Cells(18, x)
Sheets("test").Cells(y, 4).Value = .Cells(116, x)

End With

Next
Next

End Sub

どなたか、力を貸してください。。。

何がどう駄目だったのかぐらい書け

Dim row As Integer

With ActiveSheet

For row = 4 To 6
Sheets("test").Cells(row, 2).Value = .Cells(19, 2 * (row - 3) + 1)
Sheets("test").Cells(row, 3).Value = .Cells(18, 2 * (row - 3) + 1)
Sheets("test").Cells(row, 4).Value = .Cells(116, 2 * (row - 3) + 1)
Next
End With

>>15
すみませぬ。

y　は期待通りにいってくれましたが、x　は３のままでした・・・

>>16
おおおー！

こういうことなんですか！

規則性を見つけ出して、変数をひとつで済むようにする！

勉強になりました！　本当にありがとうございます！

変数名に既存のメソッドやプロパティと同じ名前をつけるのは関心しない
バグの元

それもあるから変数名を日本語でつけることを良くやる
簡易な説明になるしデバッグや拡張に有為
けど慣れてない人とかからはなんで日本語やん言われるんだよな
国内でしか使用しないんだからいいじゃんかよー

本末転倒

カウントアップ変数は i , j , k , l , m , n にするのが無難だよ。
昔の名残で、今のほとんどの言語では i を見ればカウントアップ変数と分かるしね。

VBA限定の話ならば、 i は row方向、 j は column方向。ってのが多いんでないかな。

デクリメント禁止ですか

ワークシートの処理で二重ループなら、俺は
For r = …
　　For c = …
ってやってる。
オートシェイプやグラフ関係ならx, y
セルと関係ないループだとi, j

>>22
i--
でデクリメント出来れば文句無いんだけどなあ。

素直に step -1で良いやん

>>25
いや、インクリメント、デクリメントは人気あるんですよ。
forの場合はstep-1 で下げられるけど、
doの場合は、i = i+1 ってのがどうもしっくり来ないのだ。
i++ が実装されれば素敵だなぁと。

Function Inc(x)
　　Inc = x + 1
End Function

Function Dec(x)
　　Dec = x - 1
End Function

「カウントアップ変数」なんて普通言わないよって皮肉が通じなかったかｗ

それは通じないわｗ

エクセル2000を使用しています。

テキストボックスに日付を入力して、コマンドボタンをクリックで
日付の「月」だけを増やすにはどうすればいいですか？

例）
テキストボックスに日付「2009/7/19」を入力
コマンドボタンをクリック
セルA1に「2009/7/19」
セルA2に「2009/8/19」
セルA3に「2009/9/19」
セルA4に「2009/10/19」
セルA5に「2009/11/19」
セルA6に「2009/12/19」

のような結果にしたいです。
よろしくお願いします。

excel 2002 です。

Sheet 1 の Cells(1, 1) 〜 Cells(1, 10) を、Sheet 10 の Cells(1, 1) 〜 Cells(10, 1)に
Sheet 2 の Cells(1, 1) 〜 Cells(1, 10) を、Sheet 10 の Cells(11, 1) 〜 Cells(20, 1)に
Sheet 2 の Cells(1, 1) 〜 Cells(1, 10) を、Sheet 10 の Cells(21, 1) 〜 Cells(30, 1)に

という処理をループでやりたいんですが、うまい処理が思いつきません・・・

ご助力お願いします。

>>31
3番目はSheet3の誤植とみなして
For i = 1 to 3
　　For j = 1 To 10
　　　　WorkSheets("Sheet10").Cells(i * 10 + j - 10, 1) = WorkSheets("Sheet" & i).Cells(1 , i)

制御変数
ループ制御変数
カウンタ
カウンタ変数

好きなのを選べ

一番最後の i は j の間違い
あと、「Sheet1」じゃなくて「Sheet 1」なの？
WorkSheets("Sheet 10").Cells(i * 10 + j - 10, 1) = WorkSheets("Sheet " & i).Cells(1 , j)

カウンタ変数に一票

エクセル2003で、VBAでワークシート関数としてMID関数は使えますか？
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」って出てしまうんですけど

>30
質問：
ユーザーフォームを使う必要がありますか？シートのどこかのセルに日付を入れて、
シートのどこかに置いたボタンじゃだめですか？（一応フォーム前提でちょっと検討中
ではあるけど）

コマンドボタンクリック１回で、どこまで日付を生成したらいいんですか？

それとも、コマンドボタンをクリックする都度１行ずつ下に日付を出力するんですか？
その場合は、どの行まで出力したかを記憶しておく変数の保存場所がシートのどこか
もしくはユーザーボックスのテキストボックス（日付を入れるものとは別）に書き込ん
でおく必要があります。どういう方法がいいですか？（マクロで保持できるのかな？）

>>37
いい人ですね、ありがとうございます。無い頭使って下記のようになりました。
textbox1に日付を入力します。
sheet4のi列に月、j列に日を抜き出してc列に日付を入力するように対応しました。
テキストボックスに入力した月から12月までをシートに書き出したいんですが、、、

d = MsgBox("入力しますか？", vbYesNo,)
If d = vbYes Then
　　y = TextBox1.Value
i = DatePart("m", y)
m = DatePart("d", y)
j = 11 - i
With Worksheets("sheet4")
.Range("f65536").End(xlUp).Offset(0, 3) = i
.Range("f65536").End(xlUp).Offset(0, 4) = m
.Range("c65536").End(xlUp).Offset(1, 0) = i & "月" & m & "日"
End With
For k = h To j
q = Worksheets("sheet4").Range("i65536").End(xlUp)
With Worksheets("sheet4")
.Range("f65536").End(xlUp).Offset(0, 3) = q + 1
.Range("f65536").End(xlUp).Offset(0, 4) = m
.Range("c65536").End(xlUp).Offset(1, 0) = q + 1 & "月" & m & "日"
End With
Next
Else

ユーザーフォームは必須です。
他にいい方法があればお願いします。

>>36
i = WorksheetFunction.Mid(a, b, c)
とは
i = Mid(a, b, c)
こうかけるけど、
F2で検索してもワークシート関数としてのMidは引っかからなかった。
あえてワークシート関数として使うことは無理かと。

>>39
！！そんなシンプルでよかったんですね
助かりました。ありがとうどざいます。

読み難くて申し訳ないです。
抜けがありました。

h = Worksheets("sheet4").Range("c65536").End(xlUp).Offset(1, 0)

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

Sheet名は、おっしゃる通りです。また、Sheet1, 2, 3 と書くつもりが 1, 2, 2 とやってしまいました・・・　意図を汲んでいただき、本当に感謝しています。

ネストというのは、こういうふうに使うものなんですね。もっといろいろ精進します！

優しいエスパーが多いな、このスレ w

>30,38
日付をyyyy/m/d形式でテキストボックスに入力するという前提で作って見ました。
ユーザーフォームのコマンドボタン１のスクリプトです。
Option Explicit
Private Sub CommandButton1_Click()
Dim ary_date As Variant
Dim tate As Long, tuki As Integer
　ary_date = Split(UserForm1.TextBox1, "/")
　If UBound(ary_date) <> 2 Then ' 要素が3個あるか
　　GoTo ERR_PROC
　End If
　tate = ActiveSheet.Range("C65536").End(xlUp).Row + 1 '出力開始行
　On Error GoTo ERR_PROC
　For tuki = ary_date(1) To 12
　　ActiveSheet.Cells(tate, 3).Value = _
　　DateValue(ary_date(0) & "/" & tuki & "/" & ary_date(2))
　　tate = tate + 1
　Next tuki
　Exit Sub
ERR_PROC:
　MsgBox ("日付が正しくありません")
End Sub
以上
splitコマンドで日付データから年、月、日の３要素を一度に配列に格納できて便利です。

>>44
確認しました。
コードの意味がよく分からないので理解できるまで調べてみます。
ありがとうございました！

>45
おことわり・・・当方Excel2003なので、ひょっとすると不具合がでるやもしれません。
バージョン2000と2003のVBAの機能の違いについてはよくわかりません、あしからず。

それから、テキストボックスに入力した文字列が日付として正しいかどうかはチェック
してません。
また、「月」だけを単純に増やしていくと、月末の違いで途中で「日付が正しくない」
と表示して終わる場合があります。（9月や11月に31日は存在しない）

>>46
親切にどうもです。
テキストボックスは入力制限してあるので大丈夫です。
>>44のコードを理解して幅が広がれば、と思います。
ありがとうございました。

＞また、「月」だけを単純に増やしていくと、月末の違いで途中で「日付が正しくない」
＞と表示して終わる場合があります。（9月や11月に31日は存在しない）

これ盲点でした。。
ちょっと考えてみます。

>>38
Dim DateInputRange As Range, d%, i&
On Error Resume Next
d = MsgBox("入力しますか？", vbYesNo)
If d = vbYes Then
'入力判定
If Not IsDate(TextBox1.Value) Then
MsgBox "節子！それ日付と違う！": Exit Sub
End If

'入力開始セル取得
Set DateInputRange = Worksheets("Sheet1").Range("C65536").End(xlUp).Offset(1)

'入力開始
For i = 0 To (12 - Month(TextBox1.Value))
DateInputRange.Offset(i).Value = DateAdd("m", i, TextBox1.Value)
　　　　'月とか日が別で欲しいなら、適当に以下のような感じで
'DateInputRange.Offset(i, 1).Value = Month(TextBox1.Value) & "月"
Next
End If
If Err.Number <> 0 Then MsgBox Err.Description 'なんかエラーが発生したとき用

Textbox1の入力をどのようにしているのか判断できないので
半角全角混在や和暦西暦などでもいけるようにしてみた
DateAddなので、>>44のコードと違い指定日が月の範囲を超えると月末になる(1月31日指定→2月28日）
あと、セルの表示は表示形式で対応するればいんじゃね
入力に「年」を省いた場合は、強制で入力した年になるので注意

日付入力は、DTPickerとか使えれば楽かも

DTPickerはVB買わないとあかんよ。

>>49 ありがとうございます
なにが書いてあるのかさっぱりですが。。

なにかと都合がいいので、日付のテキストボックスを開始月と支払日でそれぞれコンボボックスで
対応するように仕様変更しました。ごめんなさい。

On Errorは使ったことがありませんでしたが、覚えたほうが良さそうですね。
>>38も含めて理解できるよう頑張ってみます。
ただ別件でまた問題が、、、折れそうです、、、

>>38じゃなくて>>44ですね。。

>>49
日付のコンボボックスを「1〜28、月末」で変更するつもりでしたが、
少しでも軽くしたいのと月末を選択したときの対応が大変なので>>49を
使わせてもらうかもしれません。

ちょっと疲れたので寝ます。。

IsDateかDateSerialでいいんじゃ？

i=1
として、ABC1.TXTというファイルを開くときに
Open "FFT1.txt"
ではなく、iを使って開けるようにしたいのですが、どんな風にファイル名を
書けばよいでしょうか。

＆

すいません、間違ってABCをFFTと書いてました。
ありがとうございます。
Open "ABC" & i & ".txt"
でいけました。

>30,51
月末というか、大の月・小の月対策が必要ならば
次の要件を満たすような処理を考えてみましょうか？

テキストボックスに入力した日付の「日」が翌月以降の月末に存在しない場合、
当月に限り月末を補正するが、その翌月以降には影響しない。
例　**/1/30　と入力したら　**/2/28、**/3/30、・・・

今、起きました。。

>>58
お付き合いありがとうございます。
実は、パチンコやゲームで時間とお金を使うより有意義と感じてVBAを使用したソフトを作っています。
VBEditorの開き方も分からないところから作り始めました。
暇つぶし感覚で始めたソフト作成をある意味RPG的に楽しんでいます。
3連休中にある機能を追加しようと考えていましたが、自分のレベルではかなり難しくて。。

日付の仕様ですが、日付のテキストボックスは開始月と支払日でそれぞれコンボボックスで対応するのが理想です。
その場合、開始月のコンボボックスは「1月〜10月」、支払日のコンボボックスは「1日〜28日、月末」にする予定です。
支払日で「月末」を選択した場合、開始月のコンボボックスを見て支払日の月末を割り出そう考えています。
適当なシートに「」A1→1月」「B1→31日」、「A2→2月」「B2→28日」・・・という感じでデータを書いて、それを参照して
月末の支払日を算出しようと検討中です。

きっと>>58の案はもう書かれてそうですので参考に教えてもらっていいですか？

>59
うるう年を考えなくていいなら、12個の要素の配列に月末日を持っておいて
生成しようとする「月」毎に判定したらいいのでは？
dim 末日 as variant
〜
末日 = Array(31,28,31,30,31,30,31,31,30,31,30,31)　　'始めに設定しておく
〜
if 出力日 > 末日(月 - 1) then 出力日 = 末日(月 - 1)　　　　　'ループ処理の中
〜
うるう年を考慮するなら、うるう年判定して　末日(2 - 1) = 29　を追加するだけ
※要素数は１２でも、要素番号(添え字)は０から始まる　option base無指定のとき

ついでに：
自分は10年ほど前までは汎用機相手にCOBOLでプログラム開発してましたが、
移動で別の部署に移ってからは職場のＰＣ相手にExcelVBAで省力化してました。
退職した今はボケ防止でExcelやOOo関係のスレに出没してます。

業務処理では日付関係のいろいろ(期間計算、新年号、2000年問題も)で苦労したので、
念のため大・小の月のことをコメントしてみたんです。

>>60
3連休中に機能の追加は諦めました。orz
今の知識では無理なので、もう一度本を見ながら基礎から覚えていこうと思います。
>>60は参考にさせていただきます。
ありがとうございました。

対応できたら報告します。；

>>62
>>対応できたら報告します。；

要りません。

確かに要らないなw
半月も弄ってれば大抵誰でも出来るようになる処理だし

>62
ユーザーフォームとかコンボボックスとか扱ってるレベルならわかってもらえると思ったんだけど・・・
自分はコンボボックスとかラジオボタンとかまだほとんど使ったことがないorz

つーか、やりたいことがいまいち見えんｗ
エスパーさんまとめてくれ。

えっと・・・いつも携帯から見てるんで控え目に発言してるんですけど・・・
大の月とかなんとか↑で話題になってるみたいですけど
月末日は「翌月」の「1日」から1を引けば簡単に出てくるものと思ってましたけど・・・
的外れな発言してたらすいませんおじゃましました・・・

普通はそうするわな〜

まあその方法もありなんだが、一行でやろうとすると
debug.print DateSerial(2009,12,0)
で11月の末日がでる。

>>69
うぁお
そんな裏技が！
あまりに裏技すぎても思わぬバグがこわいけどこれは大丈夫なのかな？

ようするに、(2009,m+1,0)で当月の末日が出るってこと。うるう年とかわざわざ考慮する必要がない。
0日が使えるのと同じで、0月とか13月も普通に「前月」「翌月」として使うことができる。
さらにマイナスも使える。-1月は前年の11月になる。

>>71
試してみたらワークシートのDATE関数でも使えるのな(2007で実験)
さすがエロい人はいるもんだ

>67
その方法は知ってます。「OpenOffice.org 総合相談所 6」の420は自分なんですが、
翌月の〜ということは１２月のときは１月のことになり、ややこしくなるので
ループ内は一番単純なこの方法をとりました。

>69
＞DateSerial(yyyy,mm,0)という指定もアリなんですか？　こちらもmmは翌月のこと
なので上と同じ理由で避けました。

後だしみっともないからやめろよ。

>71
アップ前にリロードしてなかった。月の部分は1〜12限定じゃなかったんですか。

説明が分かり難くて申し訳ないです。。

やりたかったことは、ユーザーフォームのテキストボックスに入力した日付を
コマンドボタンをクリック後に、日付の月から12月分までを月だけ増やしてSheet4に書き出したかった。
コンボボックスの月が9月10日ならコマンドボタンをクリック後に、
C22→9月10日
C23→10月10日
C24→11月10日
C25→12月10日
といった感じです。
で、日が31日の場合、2月や4月はエラーになる問題がどうするか保留です。
現在は、日付をテキストボックスではなく、コンボボックスを2個用意して、月と日を別で
入力する仕様で検討中です。

諦めた理由は別件で問題があったからです。
ユーザーフォームを開いたときに、↑でシートに書き出したデータが現在の月であれば
Sheet1にコピーする方法が分からずに諦めていましたが、買物から帰ってきて、
ぼーっと本を見ていたら解決しました。。。下記コードでなんとかなりそうです。

If Worksheets("sheet4").Range("c22") <> "" Then
For hi = 22 To 1000
If Worksheets("sheet4").Cells(hi, 9).Value = Month(today) Then
With Worksheets("sheet1")
.Range("c65536").End(xlUp).Offset(1, 0) = Worksheets("sheet4").Cells(hi, 9).Offset(0, -6).Value
End With
End If
Next hi
End If
（実際のデータは日付だけではありません）

これで分かります？

あら？なんか出る幕なさそうですね。。

>74
excel vba dateserial　でググると最初に出てくる「田中亨のＶＢＡ基礎セミナー」他
いくつかみてみたけど、通常の範囲外の値を指定する裏技は見ませんでした。

よろしければ、この裏技を紹介しているウェブサイトを紹介してもらえませんか？

ﾜﾛﾀ

>>78
＞ よろしければ、この裏技を紹介しているウェブサイトを紹介してもらえませんか？

あなたが今いてるここですよ。
色んな知識を持って回答してる皆さんに失礼がないかもう一度このスレを最初からご覧になってはいかがです？

別に私はあなたを排除するつもりはないのでそれなりの礼節を(たかが２ちゃんだからたいしたことないです)わきまえて質問を続けて下されば嬉しいですけどね

>>78
つか、Webにある情報だけが全てじゃないしｗ
実地で学んだことをここで吐き出してあげてんだよ

>>73
> １２月のときは１月のことになり
除余(Mod)使えば良いだけじゃん

DateSerial(y + m \ 12, m Mod 12 + 1, 0)

なんでこんな簡単なことが解らないんだ？
除余(割り算の余り)や整数商なんて小学4年生くらいのレベルだろ？
向こうの回答もその部分にバグがある内容だし

あんまゆとりをいじめてやんなよ

>>82
ぶつくさいいながらも使いやすそうなコード教えてくれるおまい優しいなｗ

vbaを使ってこんな悪いことしちゃいました、ってのがあったら教えてください

スレ違い

winXP,excel97

ユーザーフォームに6個のオプションボタンを配置し、3つまで選択可能にしたいです
これは可能なのでしょうか？
できるなら、方法を教えてください

プロパティをいじってみたけど上手くいきませんでした

グループ化　でぐぐれ

・グループネームを全部違うのにして全部選択可能にする
・押された時のイベントで全部のボタン調べて３つ以上チェック入ってたらキャンセル

でどうだろう
コードはわかんね

>>87

普通はオプションボタンは、一つを押すと他の唯一あるTrueの奴が消えることになる。
たとえば、
○○●●●○
のとき、
一番左のを押すとどれをFalseにすればいいかわからないから、根本的に無理のはず。

やりたいなら、チェックボックス6個に
　Trueにしたときに、
　　それをあわせてTrueが３つになったらなら
　　　他のFalseなチェックボックスを選択不能にする。
　Falseにしたときに、
　　他のチェックボックスを選択可能にする。
的なことを書けばいいと思う。

＞＞８５
たとえば暇つぶしに作った業務システムが知らないうちに改修されてて、
コメントしたアニメセリフとかエロ話とか上司の悪口とかを書いてて、
しかもそれが削除されないまま全社配布されたとかそんなの？

オプションボタンを１フレームごとに配置するとかだな？
フレームの非表示って出来たっけ

>>49　
これを使わせていただきます。
コードが1/3以下になりました。

他、レスしてくれた方もありがとうございました。

>>92
プロパティのvisibileをfalseにすれば良いんじゃね？

みなさんレスありがとうございます
グループ化を試してみます
無理なら>>90の案を試してみます

Windows XP X64
Excel2003
を使用しております。

エクセルにボタンを追加して、
Sub Botton_Click()

'Book1を開く
Workbooks.Open "C:\Book1.xls"

'Book2にあるSheet1をBook1のSheetにコピー
Workbooks("Book2.xls").Worksheets("Sheet1").Copy _
After:=Workbooks("Book1.xls").Worksheets("Sheet1")

End Sub

といった感じにボタン押下時に別なブックにシートをコピーしたいのですが
「インデックスが有効範囲にありません」
というエラーが出てしまいます。
VBA初心者で初歩的な質問で申し訳ありませんが、どのようにすれば宜しいでしょうか？

コピー先のシートをactivateしてみるといんじゃね

>>97
アクティブにするのを見落としてました･･･
ありがとうございましたm(__)m

シートのコピーとか確かActiveでなくても普通にできた気がするから釈然としないけどそれで解決したんならいいのか・・・
Book2.xlsが開いててシート名も間違いなければそのままでなぜ駄目なのか？

Workbooks.Open "C:\Book1.xls"
でBook2が非アクティブになったためか、

Workbooks("Book2.xls").Worksheets("Sheet1").Copy _
After:=Workbooks("Book1.xls").Worksheets("Sheet1")
Sheet1が２つあるためか

環境
・WindowsXp
・Excel2003



sub 修正()

On Error Resume Next

Dim i as Integer

For i 136 to 140 step 1
If Range("AT7").value=Range("C"＆i) then
Select Case Range("AT7").value
Case "お菓子"
Range("AT7").Activate
Activecell.offset(-43,-4).Activate　　　　←ここでB6がアクティブにならない
Activecell.value="お菓子購入"
End Select
End If
Next

End sub



上記のコードで矢印の部分「Activecell.offset(-43,-4).Activate」でB6がアクティブにならず、
AT7がアクティブのまま「お菓子購入」が入力されてしまいます。何が原因でしょうか？
すみませんがよろしくお願いします。

わからんがとりあえずOn Error Resume Next を外せばデバッグしやすいんじゃね

あーわかった
Activecell.offset(-4,-43).Activat
にしてみ

AT7からB6なら　ActiveCell.Offset(-1, -44).Activate　だな

>>102
参考書に書いてあったのでよく分からないままいつも使ってたんですが
初心者はあまり使わないほうがいいんでしょうか？

>>103
>>104
ありがとうございます。RowとColumnを逆にしてたんですね。初歩的なミスで質問してしまってすみませんでした

vbに限らずgoto系は使わんほうがいいらしいぜ

>>105
もう見てないかもしれないけど「Activate〜Active」とか「Select〜Selection」が並んでいた場合は
1行にまとめて書けることが多い。

Range("AT7").Activate
Activecell.Offset(-1, -44).Activate
Activecell.Value = "お菓子購入"

↑この3行は1行にまとめられる。↓

Range("AT7").Offset(-1, -44).Value = "お菓子購入"

現在Excelでソルバーをマクロで操作するプログラムを作っています。

Sub ソルバーループ()
With Worksheets("jack")
For i = 1 To 10
With Worksheets("jack")
Solverok setcell:="$E$1", MaxMinVal:=2, ByChange:="$A$2:$D$2"
‘目的セルをE1として、その最小値を求める。変数はA2:D2。

SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1"

SolverSolve Userfinish:=True
SolverFinish KeepFinal:=1
Worksheets("Sheet1").Cells(i + 0, 5) = Worksheets("jack").Cells(1, 5)
Worksheets("Sheet1").Cells(i + 1, 1) = Worksheets("jack").Cells(2, 1)
Worksheets("Sheet1").Cells(i + 1, 2) = Worksheets("jack").Cells(2, 2)
Worksheets("Sheet1").Cells(i + 1, 3) = Worksheets("jack").Cells(2, 3)
Worksheets("Sheet1").Cells(i + 1, 4) = Worksheets("jack").Cells(2, 4)

End With
Next
End With

このプログラムのなかの
SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1"
という制約条件で、$G$1　を　$G$10　まで変化させていき、各制約条件ごとに一つずつ
結果をワークシートのsheet1に書き込んでいきたいのですが
SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="$G$1"の部分に
どのようにして　i　を組み込めばいいでしょうか？
ほんの少しのヒントでも非常に有難いので、お力添えくだされば幸いです。
皆様お忙しいでしょうが、どうぞよろしくお願いいたします。。。

ア

Excelで選択したセルの端をドラッグすると切り取りと張り付けになると思うんですけど
この機能自体を使用禁止にすることって出来ますか？

>>108
&

すみません質問です。
C列に"abc"という文字列があった場合、その行全体を削除し
上に詰めるというマクロを組みたいのですが
どなたか教えていただけますでしょうか。
尚、オートフィルタを使わないやり方でお願い致します。

上？
左じゃなくて？

>>112
1.C列に文字列abcがあるなら行削除

2.配列に

とりあえず4000行見るマクロ
Sub aaa()
For a = 1 To 4000
If Cells(a, 3) = "abc" Then Rows(a).Delete shift:=xlUp
Next
End Sub

>>112
Sub a()
　　For r = ActiveCell.SpecialCells(xlLastCell).Row To 1 Step -1
　　　　If Cells(r, 3) = "abc" Then Rows(r).Delete
　　Next
End Sub

>>115
上からだとabcが連続していた時に消えない

>>115
これだと２行つづいて"abc"があった場合抜けてしまわない？

オートフィルタを使った方法を教えて欲しい

オートフィルタはabcが隠れるだけで本当に消えるわけじゃないからなあ

>>108
そんなの余裕だろうが。

SolverAdd CellRef:="$F$1", Relation:=1, FormulaText:="G(1+i)"

で一発だ。

>>109,>>111
ヒントをどうもありがとうございます。
ただ、＆の意味がわからないのですが、どういうことでしょうか？
＄だと固定だから＆にしろということでしょうか・・・？
無知ですいません。

>>120
"$G$" & i

&は文字列の結合

>>121
無事プログラムがうまく動きました！
どうもありがとうございます！

Dim 日数 As Integer
Dim 本日 As Date

本日 = Date
日数 = DateDiff("d", "2009/7/10", "本日")

とやったところ、型が一致しませんとでます。
本日までの日数を求めたいのですがどうすればいいのでしょうか？

Excel立ち上げず書いてるからおかしかったら突っ込みよろしく


>>117
sub オートフィルタを使った方法()
Dim 元シート as WorkSheet,作業シート as WorkSheet
Set 元シート=ActiveSheet
元シート.Copy
Set 作業シート=ActiveSheet
作業シート.Range("C1").AutoFilter 1,"<>""*abc*"""
作業シート.Cells.SpecialCells(xlCellTypeVisible).Copy 元シート.Cells.
作業シート.Parent.Close False
End sub

>>123
"本日" w

>>123
変数の本日にはダブルクォーテーションいらんよ
「本日」という文字列は計算できんじゃろ

125に代わっていうと

日数 = DateDiff("d", "2009/7/10", "本日")
は
日数 = DateDiff("d", "2009/7/10", Now)
日数 = DateDiff("d", "2009/7/10", Date)

あっコピー先の最後の「.」はいらんわな
あとクライテリアの*abc*を囲う必要があったかなかったか自信ない

>>116
けつからやんのか。頭良いな。

レスありがとうございます。
無事できました。>>127さんのようにしました。

>>129

基本中の基本。
君の頭が○○なだけです。

こんなんピボットでやれば一発だわwwwww

>>131
おまえにいってねえからｗｗｗ

また堕ちるぞ

>>133

ﾜﾛｽｗ

現在Excelで作ったxmlを特定のURLへ送信するプログラムを作成しています｡
(Microsoft XML version2.0使用)

Sub xml()
Dim aaa As Integer
aaa = "001"
Dim bbb As String
bbb = "001"

Dim xmlDoc As MSXML.DOMDocument
Dim xmlPI As IXMLDOMProcessingInstruction
Dim node(3) As IXMLDOMNode
Dim attr As MSXML.IXMLDOMAttribute

Set xmlDoc = New MSXML.DOMDocument

Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))

Set node(1) = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "TEST", ""))
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "test1", "")): node(2).Text = aaa
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "test2", "")): node(2).Text = bbb

'作成されたxml確認用
xmlDoc.Save ("test.txt")
End Sub


�@set nodeに入れたaaaとbbbですが、1と表示されてしまいます。001と表示するにはどうしたら良いのでしょうか。
�A作成された値(xml)を特定のURLへ送信したいのですが、どのライブラリ？等を利用すれば宜しいでしょうか
　（値を送ると、<result>NG</result>といった値が返却される予定です）

すみませんがお力添え頂けると幸いです。

>>136
Excel 2007 + MSXML3 (MSXML2がなかった)とVBScript 5.0 + MSXML2 (Officeがなかった)の2環境でやってみたが、
いずれもbbbのほうは001になったぞ。

それをHTTPで送りたいのなら、MSXML.XMLHTTPRequestを使えばいい。

変数についてなんですが、

-----------------------------------

Dim 値 As Integer

値 = Range("A1")　　　

Range("A1").FomulaR1C1 = "COUNTA(R[1]C[1],R[1]C[10])"　　　　'A行
Range("A1").Copy
Range("A1").PasteSpecial (xlCellTypeValue)

Range("B1").Activate
Activecell,offeset(1,値).Select　　　　'B行

---------------------------------------------------------

上記のようなコードで実行するとA行で集計されたはずの数値がB行に来た段階で代入されていないようなのですが、
変数というのは、宣言の時点で代入される数値が決まっていないといけないのでしょうか？

Range("A1").FomulaR1C1 = "=COUNTA(R[1]C[1],R[1]C[10])"　　　　'A行

いこーるつけなさい

>>138
エスパーするとやりたいのはこういうこと？
Dim 値 As Integer
値 = WorksheetFnction.CountA(Range("B2:K2"))
Range("B1").Offeset(1,値).Select


質問に直接答えれば宣言はいつしてもいいけど変数の使い方がおかしい
Integer→Rangeに変えてSet 値 = Range("A1")
最後の行をActiveCell..Offeset(1,値.Value).Select

>>138
Activecell,offeset(1,値).Select　　　　'B行
　　　　　　↑
点の種類間違ってる
最後の行はたぶんoffeset→offset

クライマックスの2行まとめて
Cells(2,2+値).Select 'ともかけるます

>>140

変数の使い方はあってない？

Range("A1")
を取得すると
Range("A1").Value
を返すしIntegerで足りるし
値.Copy とかやるでもないし

Excel2007です。

赤丸（背景色は透明）を作りたいのですが、背景色を透明にできません。
Shape.Line.BackColorの編集でできそうなのですが、検索方法が悪いのか見つかりません。（この予測は間違いですか？）

　Dim myShape As Shape

　With ThisWorkbook.Worksheets("Sheet1")
　　Set addCell = .Cells(intRow, intCol)

　　Set myShape = .Shapes.AddShape(msoShapeOval, addCell.Left, addCell.Top, addCell.Width, addCell.Height)

　　myShape.Line.ForeColor.RGB = RGB(255, 0, 0)
　　myShape.Line.Weight = 2
　End With

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

>>142
myShape.Fill.Visible = msoFalse

>>143
無事、透明になりました。ありがとうございます。

>>141
あっ、そういう風に見れば
間違ってるのは変数「値」にA1の値を代入するタイミングだな

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

エクセル2000を使用しています。

コンボボックス2個、テキストボックス1個、コマンドボタンのユーザーフォームで
シートに以下の図のようにデータがあります。
コンボボックス1にA列の値、コンボボックス2にB列の値を入れて、
コマンドボタンを実行すると、該当するC列の値をテキストボックスに表示する
にはどうすればいいですか？

A 　B C
1 ああ　　カカ　　100
2　ああ　　キキ　 200
3　ああ　　クク　　300
4　いい　　ケケ　　400
5　いい　　ココ　　500

コンボボックス1に「ああ」、コンボボックス2に「クク」なら
テキストボックスは「300」になるようにしたいです。

よろしくお願いします。

曖昧だな

１とA、2とBの合致をANDでもいいから組み合わせて、そのセルを変数に格納して、テキストボックス＝セル(変数、3).バリューすればいいかも！

vbaが体系的に勉強できるサイトや本でおすすめあれば教えてください。

>>150
ここでＲＯＭがお奨め(;ﾟдﾟ)ｧ

項目１, 項目２, 項目３, 項目４, 項目n・・・(最大：n=255)
あああ, ううう, えええ, くくく, ・・・
いいい, 　　　, おおお, けけけ, ・・・
　　　, 　　　, かかか, 　　　, ・・・
　　　, 　　　, ききき, 　　　, ・・・

(最大：行=65535)

とあった場合、

項目１, 項目２, 項目３, 項目４・・・
あああ, ううう, えええ, くくく
いいい, ううう, おおお, くくく
あああ, ううう, かかか, くくく
いいい, ううう, ききき, くくく
あああ, ううう, えええ, けけけ
いいい, ううう, おおお, けけけ
あああ, ううう, かかか, けけけ
いいい, ううう, ききき, けけけ
　・
　・
　・

のように、データを詰めて別のシートの同じ位置(例：A1)から出力したいです。
※行・列は可変データです。

>>150
151もおすすめだけど「体系的」ではないわなｗ
確かスレ違いだったと思うから紹介はしないが適当にググればいくつか出てくるからサイトさがしはそんなに難しくない

本買うなら最初はあまり分厚いのでなくて初心者向けの簡単な入門書やってみれば
自分が身につけたいことが見えてきて次に本買うときは自分の好みに合った本選びできる

>150
excel vba 入門 に一致する日本語のページ 約 183,000 件中 1 - 10 件目 (0.35 秒)

>>152
これって
丸投げというか、依頼じゃね
何がわからないか書かないと答えられないだろ

>>152
ｎｈｎｇｄおｋ

>152
この例だとfor〜nextループ４重で行数は２×１×４×２＝１６行。
組み合わせの問題で項目数が不定ということは再帰処理ができるとわかりやすいんだろうけど・・・・
「excel vba 再帰」でググったら再帰プログラムができるらしい。

ひとつ間違えると無限ループになるし、項目数最大２５６個が大丈夫なのか、やってみないと
なんともいえない。

>152
行基準(再帰処理)でやろうとしたら、こんがらがってしまい中断。列基準だとなんかできそう。

先に列数（４）と、列毎の行数を調べ、配列に設定。この際添え字は０〜列数＋１とし、
配列（０）と配列（列数＋１）の内容は１にしておく。
その結果、配列(0)=1、配列(1)=2、配列(2)=1、配列(3)=4、配列(4)=2、配列(5)=1 となる。

左端列(Ａ列：列番号１)は当該列の要素（"あああ"、"いいい"の２種類をそれぞれ左側の組み合
わせ数１回繰り返したものを右側の組み合わせ数（１×４×２＝）８回出力する。
→あああ、いいい　を８回
Ｂ列(列番号２)は当該列の要素("ううう")の1種類をそれぞれ左側の組み合わせ数２回繰り返した
ものを、右側の組み合わせ数（１×４×２＝）８回出力する。
→ううう、ううう　を８回
Ｃ列(列番号３)は当該列の要素("えええ"、"おおお"、"かかか"、"ききき")の４種類をそれぞれ
左側の組み合わせ数２回繰り返したものを、右側の組み合わせ数２回出力する。
→（えええ　を２回、おおお　を２回、かかか　を２回、ききき　を２回）を２回
Ｄ列(列番号４)は当該列の要素("くくく"、"けけけ")の２種類をそれぞれ左側の組み合わせ数
８回繰り返したものを、右側の組み合わせ数１回出力する。
→くくく　を８回、けけけ　を８回

列数がＮで、ｎ列目の出力を考えた場合、
要素数は　配列(ｎ)
左側の組み合わせ数は　配列(０)×配列(１)×・・・×配列(ｎ−１)
Ａ列の場合も配列(０)=1があるので計算に支障なし
右側の組み合わせ数は　配列(ｎ＋１)×・・・配列(Ｎ−１)×配列(Ｎ)
最右列の場合も配列(N+1)=1があるので計算に支障なし

>158の続き

>152の例だと｢項目３｣が　えええ、おおお、かかか、ききき、えええ、・・・という
順番だけど、えええ、えええ、おおお、おおお、かかか、かかか、ききき、ききき・・・の
並びの方が組み合わせ順としては自然だと思う。項目４も同様に同じものが８回ずつ繰り返す
ことになります。

>152　ここまで示したらできますか？

よくわからないけど、列ごとにソートしたいのか？
格納用の配列(65534、254)を用意
ソート用の配列(65534、0)を用意
列をカウントする変数iを用意

for i＝0to254
ソート用の配列に列データを格納、ソート
格納用の配列(65534、i)にソートしたデータを格納

最後にシートに格納した配列を流し込む

>>152
死ぬほど遅いけどこういうことか？

Sub test()
For Each c In Range(Cells(1, 1), Cells(65535, 255))
If (c.Value = Empty And c.Rows > 1) Then
c.Value = c.Offset(-1, 0).Value
End If
Next
End Sub

>>152
１．まず、項目１．．．ｎの要素を数える
２．数えた要素を掛け算、K1xK2x...xKn
３．２．で得られた数値が必要な行数なので、
　　各項目ごとに各要素で必要行数だけ埋める

すまそ

２．数えた要素の、最小公倍数を求める

すまそ

だれか、２．の正解を頼む

ああ、最初の162で正解でした

>>152
の質問で
あああ, ううう, おおお, くくく
の組み合わせが必要かどうかで答えが変わるね

スレよごし、すまそ

環境
・WindowsVista
・Excel2002

A1〜A10の合計をC2に表示させるマクロを作りたいのですが上手くいきません。
自分で作ったのは以下の通りです。

Sub practice()
Dim i As Integer
For i = 1 To 10
Cells(2, 3) = Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1)

Next i
End Sub

アドバイスを頂けると助かります。
よろしくお願いします。

どううまく動かないか説明もせずにアドバイスとな

説明不足で申し訳ありません。

上手くいかないというのは合計の値がオートSUMで計算した合計と一致しないということです。

やりたいことはコレか？

Sub practice()
Dim i As Integer
Dim sum as Integer
sum = 0
For i = 1 To 10
sum = sum + Cells(i, 1)
Next i
Cells(2, 3) = sum
End Sub

>>167
元マクロ無視して書けばこういうこと？

Sub practice()
range("c2") = worksheetfunction.sum(range("a1:a10"))
End Sub

>>170
値が一致しました。ありがとうございました。

どうせ小数をintegerで計算したってオチだろ

セルを各々9回余分に加算してたんだろ

動かないとかエラーが出てるとか書く時はどう望んだ風に動かないとかどんなエラーメッセージが出てるとか書け

と>>1に書いたとしても、読みもしないんだろうなぁ。

エスパーだけどループ処理を使ってSUMさせる課題か何かだな

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

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

>>177
マルチ　芯でください

できる

で、マルチならどこなのか晴れＹＯ

54 ：名無しさん＠そうだ選挙にいこう ：2009/07/26(日) 13:28:31
よろしくお願いしますm(__)m

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

自分>>177です。

マルチとは
『他でも質問してる』
って意味なのですね。

すみませんm(__)m
ドコで質問すればベストか、また、
色んな人に聞けばもしかしたら、と思い書き込みしてしまいましたm(__)m

ご迷惑おかけしましたm(__)m

さしつかえ無ければ>>179さん、簡単にでも教えていただけませんでしょうか？
よろしくお願いしますm(__)m

↑
女子大生or女子高生なら、即解決ｗ

☆質問例☆

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

都内の中学校にかよう１５歳の女子中学中学生ですが、最近中学１年の妹の胸が大きくなってきて困ります。
まだ中学生なのに私よりも膨らみが目立っているのが少し悲しいです。

一緒にお風呂に入るとよくわかります。
妹は私の気持ちに気がつくどころか、ことあるごとにさわったりもんだりしてくるのです・・・。

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

今日もスポーツブラの下から手を入れてきて、声を堪えるのに大変でした。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

俺は貧乳でもOKだよ。

XP,OFFICE 2007
初心者＆初カキコです。
いきなりすみません。
配列変数 A(3,100)があるとして、
A(2,0)〜A(2,100)や、A(3,0)〜A(3,100)といった各一次元配列の平均をそれぞれ出したいのですが、
全ての平均を出す場合は
.Average(A)
ですが、各次元毎だと、方法が解りません。
どなたか指導をお願いします。

環境
・WindowsVista
・Excel2007

SheetAに貼った画像の中から選択したものを一つSheetBに貼りたいんですが
どうすればいいですか？

>186
マクロの自動記録は試してみましたか？
当方Excel2003ですが、自動記録してできたソースの１〜２行コメント化するだけで、できましたよ。

>185
凡人なので、for 〜 next　ループで回しながら、合計と件数を調べてわり算で求める方法しか知りません。
これ以外の回答をお望み？

>>187
ありがとうございます
やってみます

>188
出来るだけ早くしたくて。。
すみません。実は50×100×10000の三次元配列なので、それやると時間が半端ないんです。

>185,190
情報の後出しイクナイ

>>186ですが、自動記録を使ってやってみました
でもだめでした・・

Sheet2にある複数の図のうち、異なる図をコピーしても、すべて

Sheets("Sheet2").Select
Selection.Copy

となってしまいます
コピーする図を選択するにはどのようにすればいいんですか？

>>191
そんなの後出しじゃないだろ。
質問の内容から想定してしかるべき。

for 〜　nextで変数を複数設定したい場合はどうすればできますか？

たとえば変数iが「5 to 101 step 24」で変数kが「5 to 20 step 5」として
cells(i,k).copy
selection.paste
みたいな感じで動作させたいです。

>>191
「俺にはわからない。」と言えばいいんだよ。
>情報の後出しイクナイ
なんだこりゃ？ぶさいく。

>191
確かに。後だしは良くないですよね。すみません。
出来るだけ簡単なシチュエーションにしたかったんです。
ところで、どなたか>185のやり方をご存知ないでしょうか？

>192
当方の手順（マクロの自動記録）シートＡに図形があって選択していない状態から
１　図形をクリック
２　メニューの編集−コピー
３　シートＢのタブをクリック
４　メニューの編集−貼り付け
これだけです。できたソースは↓で、1行目だけ削除すればいい。
ActiveSheet.Shapes("Picture 1").Select　←これだけ削除
Selection.Copy
Sheets("SheetB").Select
ActiveSheet.Paste
実行する際は、マクロを呼び出す前にコピーしたい図形をクリックして選択
状態にしておくこと。シートＢの貼り付け先を指定したいときは、自動記録
のときに当該セルをクリックする。

>192
196ですが、世の中ｷﾞﾌﾞｱﾝﾄﾞﾃｲｸって事で、試して見てください。
Worksheets("A").shapes(i).Copy
Worksheets("B").Activate
Active.Sheet.Paste

iの部分に画像が何枚目かを代入。

>>197
>>実行する際は、マクロを呼び出す前にコピーしたい図形をクリックして選択
状態にしておくこと。

この作業無しでする方法はないですか？

>>198
できました！
みなさんありがとうございました

>>185
Range(Cells(1, 1), Cells(3, 100)) = a
として
各行の平均を出す

>>194

k = 5
For i = 5 To 101 Step 24
　　If k > 20 Then Exit For
　　'↑はkのTo 20があまり重要でないならいらない
　　
　　Cells(i,k).Copy
　　Selection.Paste
　　
　　k = k + 5
Next

こんなんなったけどいいか?
これだと、変数iとkがいずれかはみ出したらループを抜ける。
これだと、(i,k)=(5,5),(29,10),(53,15),(77,20)の4回ループ内を実行する。

>>202
ありがとうございます。
上記の方法で無事動作しました。
ちなみに変数にしたい要素が3つ以上ある場合というのは一般的にどういう処理が効率的でしょうか？
今はいちいちすべての場合分けをして記述していますが、それぞれの増減は規則性があるので
なんとか簡易にしたいと思っています。

>>185
Sub test()
Debug.Print WorksheetFunction.Average(Range("A1:A100"))
Debug.Print WorksheetFunction.Average(Range("B1:B100"))
Debug.Print WorksheetFunction.Average(Range("C1:C100"))
End Sub

>201
ありがとうございます。
やはりシートを利用するしかないんでしょうね。
それか個別の一次元配列変数を宣言して代入とか。
出来れば、.Average(A(2))とかの記述でその従属二次元配列が計算されるのを期待したんですが、
特定の次元を宣言するような関数なり構文はないんですね。。
今日はもう寝ます。明日会社だし。
ありがとうございました。

>>203
「一般的」と「効率的」と「簡易」は両立が難しい。
何がやりたいのか自分でもわかってない気配がするが、まずは質問を絞れ。

ループ終了の条件が2つ以上ある時は無理にFor Nextを使わない。
Exit ForやGotoのような、プログラムの流れを強制的に変える命令は、
あまり使わない方がいい。

i = 5
k = 5
While (i <= 101) And (k <= 20)
　　Cells(i, k) 以下略

　　i = i + 24
　　k = k + 5
Wend

変数が大量にあって、ループの回数も多くなると、
ForとIfでもWhileでも、終了条件の判定回数が増えるから少し効率が落ちるね。
そういう時は最初にループの回数を調べしまうといい。

回数i = (101 - 5) / 24
回数k = (20 - 5) / 5
If 回数i < 回数k Then
　　回数 = 回数i
Else
　　回数 = 回数k
End If
i = 5
k = 5
For a = 1 To 回数
　　Cells 以下省略
　　i = i + 24
　　k = k + 5
Next

あとはケースバイケース。
可能なら、こんなふうに数式を短縮してみるとか。

For a = 0 To 回数 - 1
　　Cells(5 + 24 * a, 5 + 5 * a) 以下省略
Next

strTextLine = "A,B,C,D,"
というCSVファイルがあって、これをDataという配列変数に
Data = Split(strTextLine, ",")
とすると

DATA[0]はA
DATA[1]はB
DATA[2]はC
DATA[3]はD

ですが

DATA[5]にナルが入るんでしょうか？
それとも最後のカンマは無視されるんでしょうか？

配列に入れて処理を加えた後に

strTextLine = Data(0)
For C = 1 To UBound(Data)
　　strTextLine = strTextLine & "," & Data(C)
Next C

で戻してやると最後のカンマは生きているので、無視はされてないのではないかと思うのですが、確証が得たいので質問しました。

あれ使うといいよ
イミディエイなんとか

>>208
さすがにDATA[5]には何も入らんだろう。という挙げ足は置いといて。
たとえば元のデータが"A,,,B"で長さが0の文字列が無視されてしまったらどうなると思う？

何百行あるか何千行あるかわからないテキストファイルを一行ずつ配列に入れたいんですが
LineInputを繰り返す度に毎回ReDimしながら代入するしかありませんか？
なんとなくRedimを繰り返すのは処理速度的にあまりスマートではないのではという懸念があるのですが。
一度LineInputの度に変数に+1して行数を求めてから
もう一度LineInputと代入を繰り返すのとどっちが良いでしょうか。

俺なら最初に何行あるかを確認して、その分の配列をとり格納するようにすると思うけど、

スマートとかどうとか言う以前に目的を達成できたら、それで良いのでは？
デバッグの容易さとか保守性の容易さとかを考慮するのは大事だと思うけど。

>>208,209

イミディエイトウインドウのことですな。
DATA[4]なら

Debug.Print DATA(4)

で調べられますYo.
っていうかこの場合ローカル ウィンドウで直接見たほうが早くね?

>>211
1行ずつ増やすんじゃなくて、たとえば100行とか200行単位で拡張していって、
最後に余った分はもう一度ReDimして削るようにすれば、だいぶ軽くなる。

行の長さの最大値とかファイルの大きさがある程度わかってれば、
もうちょっと別のアプローチもあるんだけど。

>>211
ファイル全体を文字列変数に一気に読み込んだあと
Split関数で区切りを改行コードにして分割

WindowsXPのOffice2003を使用しています。
型番や製品名の一覧があり、これらが別に用意されている製品の型番などの書かれたリストと
一字一句相違ない事を確認する作業を補助するマクロを作ろうとしています。

列Aに
aaa
bba
ccc
zzz

とあり、別のシートにリストがあって
aaa
bbb
ccc
ddd

の様に書かれていたら、列Aのbbaとzzzがリストにないのでそのセルを着色する、と言う処理を考えています。
この様なリスト総当たり的な判定、間違い探しを行う事は可能でしょうか。

ttp://paint.s13.dxbeat.com/up/src/paint_18511.jpg
画像は処理前後のイメージです。列Cにコピーするわけではありません。
実際にはリストもデータもそれなりの量があります。
(なお、ループ処理、次の行、列、リストへの移動などは別に変数を切ってある範囲を直指定するなど力業でやってしまう予定です。)

マッチングのやり方として、以下を考えています。
1.リストの先頭の文字列をデータの列Aの先頭から総なめして、次のリストの文字列へ、、の繰り返し。
2.何かしらの関数でリストを一括で読み込めて、データの列Aを上からマッチングしてくれるやり方。

2は希望ですが、何か良い手段がありましたらご教授お願いします。

よし！ここでVLOOKUP関数だ！

>216
そういう関数があるかは解りませんが、結局マッチングしなかったセルを色付けしないといけないので、
For〜Next構文を使用する事になると思いますので、１．をお勧めします。

>>216
作業列を1列使えばワークシート関数だけでできるんだけど、VBA使わないとだめ？

VLOOKUPと条件付書式を使えばできるんじゃないかな。
俺ならマクロでするけど。

>>216
個人的お勧めは3.フィルタオプション

だけれどちょっと調べてよくわからないなら1.総ナメが堅いかな
結構な量あるとはいっても2003の行に入る分量なら
よほど下手なコード書かない限りたいして時間かからない

皆さんレスありがとうございます。
>>217
調べてみました。まさにマッチングはこれだ！と言う感じでしたが、リストの別の値を代入するのではなく
色を付けたいのでどうして良いものか…　　あ、何でも良いから値をマッチしたら変数に値を一旦格納して
その後if文で変数を見て色塗りを振り分ける、、って感じなら出来そうですね。

>>218
はい、1も考えてみます。パフォーマンスがやや心配ですが^^；
ループはいずれかの方法を使いますが、時間の関係と空のセルも多々あり得るので手を抜こうと画策中です。

>>219
実は既にデータシートに数式が入っていたりして、なるべく体裁をいじりたくないというのが一点と
列が20個ほど、列の数だけリストも存在し、行数は100〜200位なのでVBAの方が良いのかなと考えました。

>>220
はい、vlookupをちょっと調べてみます。
条件付き書式は多分勝手に組んじゃダメと言われそうなので回避する方向で考えています。

>>221
なるほど、オートフィルタの制限無しバージョンみたいな感じですね。しかもリストの範囲も指定できて出力も出来ると。
参考にさせていただきます。ただ、各ファイルで毎回設定各列を指定する必要がありそうですね。
上記データシートが一日に10〜20ファイル届いて捌かないと行けないので、もう少し自動化の道も探ってみます。

>222
218です。20*200なら配列変数に格納してMatchなりVlookUpなりで検索かける方がセルに情報を読みに行く時間が短縮出来ますよ。ほんと僅かですけど。
変数格納もRangeオブジェクト使えば一瞬ですし。

223です。
はあ？って思われたでしょうね。
誤爆しました。223は忘れて下さい。時間は同じでした。

すいません、Excel2003なんですが質問が二つあります。

１．セルに複数行のデータがある場合、指定行だけ参照することはできますか？

２．セルに入力されたパスが読み取り専用のフォルダかどうか調べることはできますか？

よろしくお願いします。

>>225
１については、セルの折り返しでなく改行入力ならば、改行をカウントして文字列抜き出す
２はFSO使えばおｋ

Excel2003 XPです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

で渡されるTargetが連続した複数のｾﾙ範囲である場合、行を1行に
変更する処理を行いたいのですが、とりあえず力技で以下のように
しています。

myRange1 = Target.Address
myRange2 = myRange1
If InStr(myRange1, ":") Then
myRange = Split(myRange1, "$")
myRange2 = myRange(1) & myRange(2) & myRange(3) & Left(myRange(2), Len(myRange(2)) - 1)
End If

要は"$"で列行列行に分割して文字列を作り直しているのですが、
何とも見難いのでもっとｽﾏｰﾄなｺﾏﾝﾄﾞやﾃｸﾆｯｸは無いでしょうか？

よろしくお願いします。

>>215
ありがとうございます！
すばらしくスマートです。

>>227
とりあえず$記号をまとめて消したいなら
myRange2 = Replace(Target.Address, "$", "")

あと、そのプログラムにはバグがあるよ。
選択された領域が2つ以上に分かれて離れていた場合、2つ目以降がすべて消えたり
$記号が残ったりする。

それよりも、セルが1個の時と複数の時を区別する意味がわかんないし、
$を消す理由もよくわからん。普通はTargetはそのまま使うもんだし。
たぶん、他の部分でもカンチガイしてる可能性が高い。

何がやりたいのか全部書いてみ？

>229

よく読んでください。

$をまとめて消したい訳ではありません。
連続領域の最上位行が対象ですので離れていようがﾊﾞｸﾞりません。

>何がやりたいのか全部書いてみ？

>227の通りです。

>>227
データ解析の色分けで同じようなことをやったことがありますが
$を探して無理やりやった記憶があります。
今でも勉強中の身ですのでその程度の知識しかありません。

SPLITで配列に入れて結合し直すのは感心しました。
無駄レス失礼。

>>229
よく読めば>>227さんの言ってることくらいわかるはずだろ！
二度と質問者様の手を煩わせることのないようにな！
あと分かりやすく説明するんだぞ！！


(・д・)

俺の頭が悪いのかなあ
「行を1行に変更する」の意味がどうもわからん
じゃあ変更する前の「1行じゃなかった行」ってどういう状態のことだろ

dim header as range
set header = target.rows(1)

う、変な名前が・・・

>>233
奇遇だな、俺もわからないんだ

わからないなら書き込まないでくださいね

>>227
具体的な例を出してないのが悪いな
例えば$A$3:$E$6が選択されてたらどうしたいんだ？

>>237
そうだな、なんで解らないってレスが付いてるかも理解出来ないやつは書き込み禁止にすべきなんだよな

>>227
そのプログラム、Target.Addressが"$A$1,$C$3:$D$4"の時、
myRange2は"A1,C1"という結果になるんだけど、本当にこれでいいの?

まさかと思うけど…
1行にしたいってこういうこと?
Set myRange2 = Target.Resize(1)

myRange2は範囲を示す文字列だから
myRange2 = Replace(Target.Resize(1).Address, "$", "")
じゃないか?
$を消す必要があるかどうかは不明だが
ちゃんと説明してもらえそうにないんで、とりあえず。

実は文字列に変換する必要はなかった、に一票
たぶん>>241で正解だと思

>233
>236
>238

現状のｺｰﾄﾞまで書いてるのに･･･

>240

そのｹｰｽは想定しておりませんでした。
ご指摘ありがとうございます。

変な流れになってますので出直します。
失礼しました。

>241

それです。
Resizeがありましたね。

ありがとうございました。

現状のコードってあんた、>>240の例にもあるように
そのコードが理解不能な結果を出してんだから答えようがないじゃん
ちなみにCtrl+クリックで離れたセル領域を選択すると
Resizeでエラー出るよ

>246

>233,236,238の問いには充分かと思いますが？
またResizeでｴﾗｰがでるのは承知しております。

>229でとんちんかんなﾚｽをされていた方でしょうか？
いずれにせよ不毛ですのでこの辺で失礼します。

>>247
ほんと変な流れになってるよね、なんでかわからないけどｋｋｗｒ
ちゃんとした質問ｋｋｗｒだったし、口調も丁寧ｋｋｗｒなのに・・・
多分タイミングが悪かったんじゃないかな・・・また何かあったらその時はきちんとしたレスが付くといいねｋｋｂｋ

そうか、RANGEのままサイズ変更できるんだ。
何で>>227が絡まれてるか分からんけど自分の勉強になりました。

OS:XP、EXCEL2003　を使っています。
こちらのコードを実行すると(0 2)、(0.1 1.9)...(1.8 0.2)、(1.9 0.1)と出力されます。
最後に出力させると思われる(2 0)が出力されません。
小数処理の関係かと思うのですが、どなたか詳しい方
解説いただきたくよろしくお願いいたします。

Sub test()
Dim a As Double
Dim b As Double

For a = 0 To 2 Step 0.1
b = Round(2 - a, 1)
Debug.Print a & vbTab & b
Next
End Sub

>>250
演算誤差詳しくないけれど
Excelの0.1は厳密な0.1じゃないからループ21回目でfor文の終了条件の2を越えてるんじゃね？

>>250
浮動小数点の問題ね
As Double　を　As Currency　にしてみたら・・どうなるかな！

四捨五入せずに

For a = 0 To 2 Step 0.1
b = 2 - a
Debug.Print a, b
Next

でやってみ。誤差が見えるよ。
あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な

通貨型 (Currency)
通貨型 (Currency) の変数は、64 ビット (8 バイト) の変数です。
整数形式で表され、10,000 倍されて整数として記憶された、15 桁の整数部分と 4 桁の小数部分を持つ固定小数点数です。
-922,337,203,685,477.5808 〜 922,337,203,685,477.5807 の範囲の値をとります。通貨型の型宣言文字は、アット マーク (@) です。

通貨型 (Currency) は、金額に関連する計算に役立つデータ型です。また、固定小数点を含む計算にも役立ちます。

>>251-254
試してみて0.1ステップだと誤差で21回目に2より
少しだけ大きな値になってしまうことが理解できました。
Printメソッドでの「 , 」も勉強になりました。

通貨型でも期待通りの動作をすることを確認できました。
こういった誤差に強い型だとわかりました。

ご回答ありがとうございました。

応用は利かないけど、こうするな

For a = 0 To 20 Step 1
b = ( 20 - a ) / 10

> あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な
豆知識ではなく基礎知識じゃね？
；で区切ると結合になって、末尾に；入れると改行されないのとセットで

メインのSubで動的配列を
Dim A() As String
Dim B() As Long
Redim A(10)
Redim B(10)

と宣言して別のルーチンで配列の中身をいじりたい時
ルーチンの呼び出しと呼び出し側の指定はどう書いたら良いですか？

配列操作 A(), B()
private sub 配列操作(ByRef A() As String, ByRef B() As Long)
な感じでしょうか、それとも
配列操作 A, B
private sub 配列操作(ByRef A As String, ByRef B As Long)
な感じでしょうか

>>258
配列は自動的にByRefになるので省略できます。逆にByValは指定できません。

Call 配列操作(A(), B())
Private Sub 配列操作(A() As String, B() As Long)

()は必要なんですね、ありがとうございます。

>>259
おい、嘘つくな。

直後にすみません、もうひとつひっかかってしまいました。
Split関数で文字列をAというVariant型の配列に格納した場合、この変数は

配列操作 A
Private Sub 配列操作(A As Variant)
とすれば配列を維持したままByRefで渡せるんでしょうか？

自分で実験すれば済むことをここで聞くか？

聞けばわかるのにわざわざコード組むか？

なんだろ

どちらも真理だ

わかったら終わりなの？結局コードは書かなくていいの？

宿題？

>聞けばわかるのにわざわざコード組むか？
ただの疑問なら聞けば済むだろうが
ここで出る質問のほとんどは最終的に組まないと終わらないだろ？
まぁ実験の仕方がわからないって場合は仕方ないかも知れんが

結局コード組むんだから間違ってるかも知れない面倒はやりたくないのだよ！

いきなり成功するより、いっぺん間違えた方が身に付くし
理解が深まって応用がきくようになる

それは当然
だが結果しか望まない者もいるのだよ・・・

Sub test()
Dim V() As Variant
ReDim V(10)

V(0) = "自分で調べろ"
VVV V
End Sub

Private Sub VVV(V As Variant)
MsgBox V(0)
End Sub

>>270
そのコードは冗長的だな
今後の保守のためにもこうすべき

Sub test()

略

V(0) = "ググレ"

略

>>271
そのコードは冗長的だな
今後の保守のためにもこうすべき

ググレ

で、このスレの存在価値も無くなりましたとさ ﾁｬﾝﾁｬﾝ

ではこういうのは

Sub b()
Dim myStr As String
Dim myMsg As String
Dim i As Long
Do
myStr = Mid(Rnd(), 3, 14)
If myStr = "718571858269" Then Exit Do
sleep 1
Loop
For i = 1 To 12 Step 2
myMsg = myMsg + Chr(Mid(myStr, i, i + 1))
Next
Debug.Print myMsg
End Sub


>273
そもそも質問するスレだしな
答えたくないなら答えなければいいだけ・・・でもある

桁が足りないな
素直に

for ri = 0 to 5
Randomize
rndStr(i) = mid(rnd()3,2)
next

ワークシート関数を眺めていて、気になったのですが、
countif(range,"<100")
のように、第2引数が文字列型(?)のように見えます。

試しに、
dim str as string
str = "<100"
msgbox 10 & str '← 10<100 と計算をさせたい。= true の結果を出したい。

と組んだのですが、
結果は 10<100 と文字列で表現されるだけでした。
引数に含まれる演算子をそのまま読み込ませる方法はありますでしょうか。
なにとぞよろしくお願いします。

それをやるのはevaluate()だが、お前が本当にやりたいのはworksheetfunction()じゃないか？

str = "<100"
MsgBox CBool(Val(10 & str))

つまらん

sumif関数について質問です。
検索条件を２つ指定する場合はどのようにしたらいいのでしょうか？

A列にある「あ」という文字とB列にある「い」という文字があるときの
C列にある数値の合計。

よろしくお願いします。

>>280
ここはvbaの質問スレだけどvbaの回答でいいのか？
(なんとなくスレ違いっぽい文章に見えたので念のため確認)

>>277
いや、ワークシート関数をVBAで使うって話ではなくて、
例えば、countif だと条件2個はネストしないと出来ないので、
それを1つの関数で出来るようにユーザー定義関数を作ろうと思ったのです。

その時に、ワークシートの countif は、第2引数に文字列で条件を入れてるのに、
それをダイレクトに演算式に代入出来てる事を疑問に思いまして。

そうならそうと最初から言え馬鹿

私の政策はブレてません。

馬鹿ではないでしょ。読めば分かるし。

>282
Rangeｵﾌﾞｼﾞｪｸﾄのように、セル範囲を" "で囲んであるものも有りますよね。
これはVBAがコードをコンパイルする時に、区別しやすくするためだと思います。
なので必ず文字列として機能している訳ではないです。
最終的にはマシン語で動く訳ですから。

VBAはコンパイルはしないだろ

メニュー > デバッグ > VBAProject のコンパイル

そういう表記だとしてもコンパイルじゃないよね？
コンパイルの意味わかってる？

機械語に訳すとならったが、ちがうのか？

そうだね。
それでVBAは機械語に訳した実行ファイルを作るのかい？

VBAはコンパイラじゃなくて、インタプリタだろ？

VBAはインタプリタ言語でもあり、コンパイル言語でもある

アセンブラのほうが好みだわ

機械語を吐くのは「狭義の」コンパイル。工業高校レベルの回答。
「Pコードマシン」でぐぐれ。

Excel2007のVBE、インテリセンスが効かないんだけど何か設定がいるの？

ああ、オブジェクトの種類によって効かないやつがあるのか
Rangeならいけるわ

すみません、ご助言お願いいたします。

OS：Vista、Excel：2007

コンパイルを実行すると
”プロシージャの呼び出し、または引数が不正です”と表記されます。
この際、黄色い帯で示されるエラー部分が、
Public Function Zn(CZn, X, W, b, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11)
Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)) ^ 0.5)
End Function

のZnの式の部分です。

色々考えたのですが原因がわからず、試しに、上手くいく類似のプログラムの
Znを代入してみたところ、エラーは出ませんでした。
代用したZnの式は

Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2)) ^ 0.5)
です。
（K10とK12の項を削除したものです）

最初のZn式がエラーを示す原因等、ご助言お願いいたします。

0.5

^ 0.5

>>298
>>299
早速のご助言ありがとうございます。

0.5とは、最後のですよね。
ただ、エラーが出るZn式にも、出ないZn式にも含まれているのですが･･･？

そのエクセルほしいな
2kしかもっていないけど、基本的に^は整数しか出来ない

Zn = Application.Power(〜〜 ,0.5)
で代用

>>301
細かいけど前に「2 *」が抜けてないか？

不足指摘してるのもまだ不足してたな
さすがにそこまで応用力のないやつはいないか

>>301
ありがとうございます！
恥ずかしながら、301さんのスレを見て初めてVBAでワークシート関数の利用が
出来ることを知りました。。。

ほしいというのは、やはりここに書いただけではエラーの理由の解明が
難しいということでしょうか？

いや、全部確固内に記述しちゃえばよかろ

アドバイス頂いた方法でやってみたのですが、だめでした

最初のZnの式を
Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + Application.WorksheetFunction.Power(((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)), 0.5))
としたのですが、
「worksheetFunctionクラスのPowerプロパティを取得できません」
とのことです。。。

いろいろ変えてみたら

これなら通るんだよね。

Sub test()
Debug.Print 2 * Zn(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) ^ 0.5
End Sub
Public Function Zn(CZn, X, W, b, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11)
Zn = (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)))
End Function

Excel.Range("Sheet1!$A$1").Find(What:="")

What:= ←ここに２５５文字以上入れると、動かんのだが。

Sub test()
Dim HashedData
Set HashedData = CreateObject("CAPICOM.HashedData")
HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1
HashedData.Hash "abc123あいう"
MsgBox HashedData.Value
End Sub

暗号化プログラムを作っているのですが、予定では
「f95439120bf5c5d2b962cbe3a530199226f1ed2e」
と出る予定だったはずなのに違う値が出て来るヽ(`Д´)ﾉ

>>310
半角のみと全角のみで確認

Excelを勉強したくてスレ検索しました
ここがヒットしました。普通のExcelとExcel　VBAとの違いはなんですか？
エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるものだとホームページで読みました。

>>312
>普通のExcelとExcel　VBAとの違い
比較する対象ではありません。
ExcelはExcel VBAを含みます。
しかし、例外もあり、含まないExcelもあります。

>エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるもの
再帰的な定義ですね。
その「ホームページ」には「プログラムしたエクセル」の定義は書いてありましたか？

暗号化なんてやったことないわ

>>297
Functionの最初に
Debug.Print CZn; X; W; b; K1; K2; K3; K4; K5; K6; K7; K8; K9; K10; K11
ってのを追加して、エラーが出た時のパラメータを教えて

>>297
マイナスの平方根をとろうとしてる
実数解を期待してるなら、式かパラメータかどっちかがおかしい

Excel2003使用

sheet1にある表のB列に「特定」があれば、その行をコピーして
sheet2の2行目から下へ順番に貼り付けたいのですが、
sheet2への貼り付けがうまくいきません。

Rend = Range("c65536").End(xlUp).Row
For i = 7 To Rend
If Range("b" & i) = "特定" Then
Worksheets("sheet1").Rows(i).Select
Selection.Rows.Copy
Worksheets("sheet2").Rows(i).PasteSpecial
End If
Next

Worksheets("sheet2").Rows(i).PasteSpecialの変数(i)を
Rend2=Range("a2").end(xldown).offset(1,0)を作って
それを当てはめてもうまくいきません。
解決方法を教えてください

なにがどううまく行かないのかと


シート2のセルをカウントする変数を組み込めばいいんじゃね

>>272
ありがとうございます。^^
おかげさまで解決しました。

【回答は】Excel VBA質問スルナ Part13【ｸﾞｸﾞﾚ】

>>317
おそらく、sheet2をアクティブにしていないから

すいません。
一般的な関数（例えばsinなど）では
EXCELのセル上で 『　　=sin(　　』を入力すると
入力セルの近くに『　SIN(数値)　』というクイックヒントがでます。
しかしVBAでユーザー定義関数をつくり、
同様にセル上で作成した関数を入力してもクイックヒントが出てきません。
どのようにすれば自作の関数でもクイックヒントがでるようになるのでしょうか。
教えてください。
Excel2003、WindowsXPです。

ヒントはヒントとして定義しなきゃ出ないよ
Functipnプロシージャを書いただけじゃ、関数と引数を定義しただけだ

とはいえ、Excelでユーザー定義関数のヒントを定義するのは面倒なので
「関数の引数」ダイアログを使う方法をオススメする
こちらは定義というか宣言した引数がそのまま出てくる

WindowsXP
Excel2000で作っています。

url = "http://・・・/a.html"
Workbooks.Open Filename:=url

という形で、社内のイントラネット上のhtmlファイルをブックとして開きたいのですが、
インターネットのファイルや、PC内のファイルは開けるのに
イントラネット上のファイルは開けません。
なにか、特別な認証が必要なのでしょうか？

社内イントラ上のｈｔｍｌファイルの参照を、http://・・・としてるの？
それだと開くわけないよね。

んなわけなかろ






いや端末アドレスがそうなってるなら問題ないだろ

IEや他のブラウザでurl = "http://・・・/a.html"が開けるかどうかだね

みなさんありがとうございます。

IEなどのブラウザでは開けます。
ちなみに、イントラネットのファイルのアドレスは
http://192.168.1.10/〜/〜.html
みたいにIPアドレスになってます。

cells(x,y)=""
cells(x,y)=Empty

の違いってなんでしょうか？

>>329
EmptyはVariant型で「変数が初期化されていない」という意味の特殊な値。
"" はString型で長さが0の文字列。ただしCellsに代入した場合は自動的にEmptyに変換されるので
結果は同じになる。

>>323
ありがとうございます。
「関数の引数」ダイアログ理解しました。
しかしできることなら、やはりヒントを定義したいのですが
その場合はどのような方法でやればいいのでしょうか？

君には無理だ。やめておけ。

シートを保存する時に書式を含む値のみを保存しているのですが、条件付き書式も
通常の書式に変換（＆削除）したいのですが、何か良い方法がありますでしょうか？

>>333
新規のシートに
はりた

新規のシートに
貼りつけて保存すればいんじゃね

OS -> Windows Vista
Excel Office2007

ある文字列をカウントする関数Function()を作ってみたけど
参照しているセルの値が変わっても自動計算されません。
なぜでしょうか？

Excelの自動計算はONにしてます。
また、マクロも有効になっています。
数式バーにカーソルを合わせてEnterキーを押すと
そのセルだけが更新されます。

参照式とFuncitonの内容を書きなさい。
それだけの情報だとなんともいえない。

あるシートに別ファイルシートのイベントマクロをコピーしたいのですが、
たくさんのシートがあるので、手作業でなく、コピーそのものをマクロ化する方法を教えて下さい。

>>338
モジュールのインポート、エクスポート

>>336
それだけの情報だとApplication.Volatile使えとしかいえない。

>>338
VB言語でVBプロジェクトを弄る方法は、表計算(Excel)とは関係ないので
>>339の方法がお気に召さないならそれ以上はスレ違いって話になる

しかし、あるブックの複数シートで同一イベントを起こしたい場合
シートモジュールでのWorksheet_Changeの変わりに
ブックモジュールでWorkbook_SheetChange使えば良いだけの話だがな

はぁ？
VBEこそ、もろこのスレ向きの話題だろうが

>341

ﾊｧ？
（ﾟДﾟ)y─┛~~　

Microsoft Visual Basic for Applications Extensibilityを参照してImportで一括インポート
Application.VBE.を使用して挿入

好きなほうをどうぞ

>>336
なんでCOUNTIFがあるのに自作するのか分らんが、関数の参照してるセルはきちんと引数に入れてるのか？
一部の揮発性関数をのぞいて、基本的に関数は引数が変化したときだけ自動では再計算する。
=COUNTIF(A1:A10,C1)ならA1:A10のいずれかのセル、またはC1が変更されたときだけだ。
だから自分で関数を作るときも範囲と検査値の二つの引数を入れるように作らないと駄目だ。
Application.Volatileで逃げるのは間違った解決策だから気をつけろ。

URLをページタイトルに置換するスクリプトなのですが動作が不安定です。
どこを修正したらよいでしょうか。どなたご教授お願いします。

Sub GetWebPageTitle()

Dim objIE As Object
Dim lngLastRow As Long
Dim i As Long
Dim strURL As String
On Error GoTo ErrHandler

'IEのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.Application")

'最終行取得
lngLastRow = Me.Range("A65536").End(xlUp).Row

For i = 1 To lngLastRow
strURL = Me.Cells(i, "A").Value
objIE.Navigate strURL
'表示完了まで待つ
Do While objIE.Busy = True And objIE.ReadyState <> 4
DoEvents
Loop
Me.Cells(i, "B").Value = objIE.Document.Title
Next i
objIE.Quit
MsgBox "タイトル取得完了"

Finally:

>>345の続き

Set objIE = Nothing
Exit Sub

ErrHandler:
With Err
MsgBox .Number & vbCrLf & .Description, vbCritical
End With
Resume Finally

End Sub

あ、そっかFalseにするんだ。
自己解決しました。
すみません。

>>339-343

ありがとうございます。
インポートは、シートでなくmodule にくっついてしまいだめでした。
教えていただいた方法を順に試してみたいと思います。

excel のvbaしかやったこと無いので、イベントをしらべだしてから
VBEなどがあるのを最近知った初心者です。

　　　　　　　　　　　　, -'"´ ￣｀丶､_
　　　　　　　　 　 ,.∩　　　　　　　　 ｀ヽ
　　　　　　　　　〃∪'´￣｀二二人＼ 　ヽ
　　　　　　　　　| ツ´￣￣￣￣´　ヾ ヽ.　',
　　　　　　　　　|ﾊ　,ニ、 　　,. - ､　| | | ｌ |
　　　　　　　　　| ﾊ ｨハ 　 　 ,二ヽ. | | | | |　同じ板にコピペするとそのままだけど、
　　　　　　　　　| | |　じ'　　　|トJ〉　 /)} ｌ | 違う板にコピペすると鬼のような怖い顔
　　　　　　　　　|　ﾊ　 ､'＿,　 ￣,,　厶ｲ川|　に変わる摩訶不思議な佳子様コピペ。
　　　　　　　　　l　l /＼　　　 ..　イV＼川 |
　　　　　　　　 ,'　l l　,ｲ ｀ｌ￣´ ／　　 /ヽl l
　　　　　　　　 ｌ　| ｌ ハ 　`メ､　　　 〃　 ヽヽ､__ノ
　　　　　　　　 l　 ∨ └‐ｲ「ト--ｧ'´　　 　 ﾊヽ__ノ
　　　　　　　　　ヽ/　　}　 l」」　/　　　　　/ }`ー
　　　　　　　　　 〈_ｎ| 八　　　/ /　　 　 /ノ
　　　　　　　　　 〈二二人 ｃ /＼/ /　, ｲ
　　　　　　　 　　　/　 /厂 ／＼__>＜ ｛＿

Excelのセキュリティの設定で常にマクロを有効にするか
確認するように変更したら自動計算されました。

>>344
複数の検索値でクロス集計するようにしています。
確かに範囲と検索値を引数に入れるようにしたほうがいいですね。
ありがとうございます。

まさかピボットテーブルでやった方が簡単なことを関数、しかも自作の関数でやってるんジャマイカ？

セルをビットに見立てて、エクセルで扱えないデータを格納・演算出来ることに気が付いたんだけど


そもそも使わないんだよな……無意味なことをした

テンプレの使うということに順していないので、スレ違いな質問だったらすいません。

今、XPのExcel2003のVBAの勉強をして二日目です。(プログラム経験などは一切なし)
参考にしているのは下記アドレスのページで第6章の途中まで進めました。
http://excelvba.pc-users.net/
他にも勉強するのにいいサイトがありましたらご教示お願いできないでしょうか？
個人的には動的？　なツールのような使い方(任意の桁や条件の数字だけを抽出のような感じです)や
共通作業のソフト化(今は仕事でExcelを使うことはないですが…)を出来るようになるのが理想です。

そういうことがやりたいならVBAではなくVBの勉強した方がいいね

しかし、サイト紹介もVBの話もスレ違いだから自分で探しな
VBA分野で具体的な質問が有ったらまたおいで

抽出結果をExcelに出力するならVBAでいいよ。

>>57

Open "ABC" & Str(i) & ".txt"

とした方がいいのでは？

>>353
何で最近のゆとりは本買わないんだ。
本買え本。
しょーもないサイトを探し回る時間の損失に比べたら、２，３冊の本代なんて安いもんだ。

保護をかけた状態でロックを外したセルへの移動が
一部出来なくなってしまいました。
→と←の移動は効くんですが、↑と↓の移動を受け付けてくれません。
ScrollLockやロック外し忘れでは無いと思います。
あと、セルをクリックするとセルの周りに太枠が出るじゃないですか？
あれも時々出なくなりました。
この現象が起こるのは今の所１つのブックだけです。

調べてみたんですが、何が原因かさっぱりわかりません。

途中で送信してしまったorz
原因分かる人いたら教えて下さい。

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

>>354-355
もし仮に目的がVBでないと難しいことが分かっても、VBAで覚えたことは使えると思うので
とりあえずこのままVBAを学んでみようと思います。

>>357
確かにそうですね。
今日にでも書店でよさげな本を探してみます。

ここで本とかを買った人って、何の本買ったのか気になる。
俺は、よく分かるプログラミングＶＢＡ　基礎・関数・応用
（大村あつし）の奴を３冊買ったんだけど。

>>338
シートにイベントマクロをセットする方法がわかりましたのでご参考までに。
みなさまありがとうございました。

セットするマクロ
'チャートシート cost に mouseupイベントをセットする例
Sub mouseup_set()
Dim i As Long
With ActiveWorkbook.VBProject
For i = 1 To .VBComponents.Count
If Mid(.VBComponents(i).Name, 1, 5) = "Graph" Then
If .VBComponents(i).Properties("Name") = "cost" Then
.VBComponents(i).CodeModule.AddFromFile "D:\vbadir\mouseup.bas"
Exit For
End If
End If
Next i
End With
End Sub

'mouseup.bas の内容
Private Sub Chart_MouseUp(ByVal Button As Long, _
ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElemID As Long, Arg1 As Long, Arg2 As Long
' ここにMouseUp時の処理記述
End Sub

以上

>>362
忘れた、追記
windows XP, excel2007 です。

>>362
私本管理のDB見たら、Excel関連だけで\30kは使ってた
OS関係やプログラム全般と合わせたら軽く\100kは超えてる
俺プログラマでも何でもない文系人間なのにｗｗ

aが0.01、bが0.01の状態で、
b=b+a
としてセルに代入すると
0.010.01となってしまいます
何がいけないんでしょうか

>>365
a、bが文字列になってる
数値に変換を

>>361
大村あつしの本は､知識0の人になら僅かな足しにはなるが
他と比べて有用といえる物では無いな

sheet1上でマクロを使ってて、sheet2の中の値を取ってくるとき、
わざわざsheet2をアクティベートしてまた戻す、という方法じゃないとだめ？
住所みたいにsheet2;cells(3,3)みたく指定できませんか？

セルの値ならmacro4.0うんたらかんたら

>>368
Function GetCell(WS As String, row As Long, col As Long) As Variant
　GetCell = Worksheets(WS).Cells(row, col).Value
End Function

とかじゃだめなの？

>>370
ふむふむ。自作関数使ったことないんですが、やってみます！

それから、論理記号の∃（存在）って、for-next文で代替するしかないんでしょうか？

たとえば、
If A1からA10の間に100以上の値があれば
Then
みたいに使いたいんですが

>>361
パーフェクトマスターとかいうでかい本一冊買ったくらいかなぁ

ただ、本分厚すぎて面倒なんで、基本的にExcel内のヘルプに頼ってる。

>>368
＞ 住所みたいにsheet2;cells(3,3)みたく指定できませんか？
sheet2.cells(3,3)ではあかんの？

>>371はforで代用が一般的だと思う
ワークシート関数のMAXとかで一発で済ませてもいいし

max(Sheet2.Cells(s, 4) : sheet2.Cells(s+e,4))
でやったらエラーでした。
cellsで範囲指定するのはどうやるんでしょか？

どこまで続けるんだよ
もういいだろ

>>374
セル範囲の指定はRange
worksheetfunction.max(Range(Sheet2.Cells(s, 4),sheet2.Cells(s+e,4)))

ありがとうございました。
助かりました。
たぶん１０分後にまた何か質問します。

少しは自分で考えろｗ

セルの指定もできずになぜここに来るかとも思うけれど
他に適当なスレもないしスレ違いすぎってこともないから
まあ夏休み中はこんな流れでもいいんでない？
なぜなに質問コーナーみたいなかんじで

a=inputbox("繰り返しの数")
for x=0 to a
next x

とするとfor文が無視されるんですが、変数をtoの後に持ってくることはできないんでしょうか？

>>380
できるよ
aに1以上の数がはいってれば無視されないはず

a=inputbox("繰り返しの数")
for x=0 to a
msgbox x
next x

でやってみ？無視されてないから。

a=inputbox("繰り返しの数")
for x=0 to a
sheet1.cells(2,2).value=w
next x

にしても無反応なのであった；；
別の場所に問題あるのかな。

wじゃない、xでした

もしかして・・・別のsub ... end sub の中でおこなったinputboxの値は有効じゃない！？

やべぇ自分で気づいた俺天才！

>>385
アホｗそれを先に言え

すげえことにきがついた・・・
サブを呼び出すときに変数？に戻る数を入れてやればいいんじゃね・・・？

先読み回答しとくと、staticでググレ。

>>389
そのレスを>>380の段階で付けられるようになれば神なんだろうなー
俺にはまだまだ無理だ

で、forが実行されないってのは何よ
シートで見たいなら
for x＝0 to a
cells(x.1)＝x
next
とか書かないとわからないぞ

forが実行されないのは

a<0

だからだと思う

例えばaがstring型だとか

ＶＢＡで作成したＣＳＶファイルを富士通系汎用機（EBCDIC）に送信する
ということをやりたいのですが、
日本語全角文字を認識させるために、シフトイン、シフトアウト
というコードを全角文字の前後に付与する必要があるらしいのです。
このシフトイン、シフトアウトをＶＢＡでファイルに書き出すことは
できるのでしょうか？

シフトイン、シフトアウトは、16進数で28H,29Hという記述は見つけたのですが
よくわかりません。

知ってる方いらっしゃいませんか？　ｍ−Ｏ−ｍ
WindowsXP、EXCELは2003です。

全角絵文字がキモイ

それより日本語全角文字の文字コード分ってるのか？

ASCIIだろ

まずは、富士通汎用機のCSVファイルを
windowsのエディタで開くところから始めるだろjk

コードを出力すること自体は簡単だけど
どういう形式で出力すればいいのか質問者がわかってないと答えようがないわな
そもそも16進のままどっかに書いとけばいいものなら回答の必要もないだろうし

>>395-398
ド素人は黙っとけ

そもそもスレ違いじゃないか？

バイナリデータをVBAで書きだせるかどうかについては、スレ違いじゃない。
んで、「ebcdic vba」でググってみたら、こんなページがヒットしたわけだが。

ASCII 文字コードと EBCDIC 文字コードとの変換方法
http://support.microsoft.com/kb/216399/ja

それじゃ日本語全角文字が変換できねーだろ

シフトイン
.Write "("
シフトアウト
.Write ")"

> バイナリデータをVBAで書きだせるかどうかについては、スレ違いじゃない。
残念､ハズレ

VBスレならスレ違いじゃないが
『"E x c e l" VBA』スレでは､残念ながらスレ違い(>>1参照)

WindowsXP、EXCEL2003を使用しています。
シートのA1から下に30個くらい名前が書いてあり、その名前ごとに新しいシートを追加したいです。
こういうのって簡単にできる人には簡単すぎると思うんですが、教えてもらえるとうれしいです。

試してないがこうか？

sub シート追加()
for a = 1 to 30
if cells(a,1) <> "" then sheets.add.name = cells(a,1)
next
end sub

試してないがこの方がいいか？

For Each cell In Range(Range("A1"), Range("A1").End(xlDown))
　　Worksheets.Add(, Worksheets(Worksheets.Count)).Name = cell.Value
Next cell

試してないけどこうじゃね！

Application.DisplayAlerts = False
For Each a In Sheets
a.Delete
Next
Application.Save
Application.DisplayAlerts = True

ためせよｗ

試してないけどこれでいけるってビルゲイツが言ってた

For Each C In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
　Worksheets.Add after:=Sheets(Sheets.Count)
　ActiveSheet.Name = C
Next C

試したらこれでいけた

Sub aaa()
Application.DisplayAlerts = False
For a = 2 To Worksheets.Count
Sheets(a).Delete
Next
ActiveSheet.Cells.Clear
Application.Save
Application.DisplayAlerts = True
End Sub

>411
>試したらこれでいけた

試してないけどSheets(a).Deleteはﾀﾞﾒぢゃﾈｰﾉ？

aは変数なんじゃね

>>410
試してないけど、ここは大丈夫か？

Worksheets.Add after:=Sheets(Sheets.Count)

オートシェイプに背景画像を挿入する場合についての質問です｡

手動でやる場合､
･オートシェイプの書式設定
　･塗りつぶし
　　･色
　　　･塗りつぶし効果
　　　　･図
　　　　　･図の選択
で､画像を挿入した際に､同ページに
　□図の縦横比を固定する
　□図形に合わせて塗りつぶしを回転する
というオプションがありますが､このオプションをVBAで変更する方法を教えてください｡

マクロの記録をしても､変更が記録されずに困っています｡

WindowsXP／Office2003

>413

試してないけどｼｰﾄのｲﾝﾃﾞｯｸｽ番号って削除したら前詰めじゃね？
Sheets(1).Deleteなら分かる。

>>414
試してみたら2000では動いた
2003では試してないけど

>>324の件ですが、どなたかご教授いただけないですかね・・・？

>>404
お前は何と戦ってるんだ

>>418
TCPIPの問題
ブラウザはデフォルトでアドレス変換したりするけどね
エクセルでやりたいなら
￥￥PC名￥フォルダ〜
とかにしたら

とりあえずググれば解決できる

>>419
いきなりどうしたの？

>>420
スレ違いなうえに、適当なことかましてんじゃねーぞ、ﾎﾞｹ

>>415
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Rotation = 0#

>>423
> Selection.ShapeRange.LockAspectRatio = msoTrue
は､
･オートシェイプの書式設定
　･サイズ
　　･倍率
　　　･縦横比を固定する
のON/OFFですね｡


> Selection.ShapeRange.Rotation = 0#
は
･オートシェイプの書式設定
　･サイズ
　　･サイズと角度
　　　･回転角度
の指定です｡

どちらも目的の物とは全く違うようです｡

>>422
が理解不能なのは俺だけ？
回答なのにスレ違いってなんぞ

適当云々は知らんけど、丁度いいし説明してくれるのかな？

VBA関係ないし、百歩譲ってもTCP/IPの問題じゃないし

>>425
適当かどうかも判断できないんだったら、黙っとけ

こういうことかな
http://ebi.dyndns.biz/windowsadmin/2009/03/11/%E3%80%8C%E3%82%A4%E3%83%B3%E3%83%88%E3%83%A9%E3%83%8D%E3%83%83%E3%83%88%E3%81%AB%E7%B9%8B%E3%81%8C%E3%82%89%E3%81%AA%E3%81%84%E3%80%8D-%E3%83%89%E3%83%A1%E3%82%A4%E3%83%B3%E3%82%B5%E3%83%95/

おい関係ないなら誘導しろよ
かいとう者に噛み付くなｋｚｇ
あと説明もできないなら黙ってろ
さっさと市ね

ん

>>424
　　　　　･図の選択
で､画像を挿入した際に､同ページに
　□図の縦横比を固定する
　□図形に合わせて塗りつぶしを回転する

Excel97だとそういうオプションないんだよな

言い訳になってねーw

>424
ヘルプ参照または本屋にスパテク○○系を立ち読みしてくるべし。

初心者ですが、質問よろしいでしょうか。

rangeやcellsは、オブジェクトになったりプロパティになったりとするのでしょうか。
私の認識では、rangeはオブジェクト、cellsはプロパティですが、
いろいろなコードを見ると　オブジェクトとなったりプロパティになったりしているので
ケースバイケースで使えるのかなと思ったのですが、これで合ってるのでしょうか。

ｵﾌﾞｼﾞｪｸﾄとﾌﾟﾛﾊﾟﾃｨの意味を勉強しなおせ。

オブジェクト＝対象
プロパティ＝属性

修正
オブジェクト＝構成要素

なら分かるだろ？

>私の認識では、rangeはオブジェクト、cellsはプロパティですが、

その認識が間違い。
Rangeに変数が使えないとかCellsでは1ｾﾙor全ｾﾙしか指定できない
などの制約によって使い分けてるだけ。

>>436
その説明もおかしいだろｗ

すいません。。。
勉強しはじめたばかりで。

>>436
Range("A" & i).Valueとかよく使うよ

手元のＶＢＡ辞典だと
Rangeはオブジェクトとプロパティ
Cellsはプロパティ

実例でいうと
Range("B2").Cells(2, 2).Activate
Range("B3").Range("B2").Activate
と書けるが
Cells(3, 2).Range("B2").Activate
とは書けない

Range("B3").Range("B2").Activate
は
オブジェクト.プロパティ.メソッド

439さん
ありがとうございます！
VBA辞典買います。

ずうずうしくもうひとつ質問です。

Worksheets("sheet1").Cells(i,5).Value
この場合
コレクション.プロパティ.プロパティ でしょうか。

Cells.selectは？

コレクションはオブジェクトの集合体

Worksheets("sheet1")はオブジェクト

Worksheetsはコレクション

実例
Worksheets.Count

Worksheetsコレクションに含まれるWorksheetsオブジェクトの数

プロパティで取得できるものが、オブジェクトだったりそうでなかったりするんだ。
rangeプロパティもcellsプロパティもrangeオブジェクトを取得できる。

rangeのcountプロパティはlongを返す。

>Cells(3, 2).Range("B2").Activate
書ける。

コレクションもオブジェクトだコラ。

Cells.selectのCellsは、Cellsコレクション

>444
Cells(3, 2).Range("B2").Activateって書けたね、スマソ

>コレクションもオブジェクトだコラ
それはそうだが、
コレクションはCountできるが、オブジェクトはCountできないし
オブジェクトにNameはあるが、コレクションにNameはない

　　　　　　　　　　　　 ／）
　　　　　　　　　　　／／／）
　　　　　　　　　 ／,.=ﾞ''"／　　　
　　　／　　　　 i f　,.r='"-‐'つ＿＿＿_　　　こまけぇこたぁいいんだよ！！
　　/　　　　　 /　　　_,.-‐'~／⌒　　⌒＼
　　　　／　 　,i　　　,二ﾆ⊃（ ●）.　（●）＼
　　　/　 　　ﾉ　　　 ilﾞフ::::::⌒（__人__）⌒::::: ＼
　　　　　　,ｲ｢ﾄ､　　,!,!|　　　　　|r┬-|　　　　　|
　　　　　/　iﾄヾヽ_/ｨ"＼ 　　 　 `ー'´ 　 　 ／

>>445
お前もう何も書くな

なるほど。
勉強になりました。

ありがとうございます。

>>445
マジなのかジョークなのか、判断に苦しむ。

はじめまして
LineInputでファイルを一行づつ読み込みたいのですが
読み込みたいファイルがUNIXのファイルなんで改行がLFとなり一行と認識してくれません。
一行ごとに読みたいのですが何かいい方法ありますか？

>>450
変数に読み込んでからvblfで分割がいいのでは？>>215あたりを参照

ワークシートを呼び出すとき、
Sheet1のようなオブジェクト名で呼ぶのと、
Sheets("名前")で呼ぶのとでは、
動作が異なる場合がある？なぜ？

Sheet1（名前は"テスト"）：
Sub test(X As TestType)
MsgBox X.a
End Sub

標準モジュール：
Type TestType
a As String
End Type
Sub test()
Dim X As TestType
X.a = "ほげ"
Call Sheet1.test(X) '動く
Call Sheets("テスト").test(X) '動かない
End Sub

なるべくシート名を使いたいのだが…

>>452
詳しい人が来るまでの繋ぎに気付いた点をレスすると
シート名と言ってもオブジェクト名としてのシート名と表示上のシート名は多分別物で
VBEで「sheet1（うんじゃらげ）」の前半が多分オブジェクトとしてのシート名。
プロパティーウィンドウから変更できた気がするようなしないような。

質問のケースへの対応なら
表示上のシート名からインデックス番号を取得してそれを使うのが早いかな？Byなんちゃって回答者

>>453　ありがとうございます、
Sheet1と書いたのはオブジェクト名としてのシート名、
Sheets("テスト")は表示上のシート名です。

オブジェクト名もプロパティウィンドウから変更できるのを
いま知ったので、今後はオブジェクト名だけを使えば解決、だけど、
ここまで全部、表示上のシート名で書いてきたから変更がめんどいのと、
上記の動作が異なるメカニズム自体を知っておきたくなって。

Sheet1はクラス、Sheets("sheetname")はWorkSheetオブジェクト

又、オブジェクト指向の話かww

>>455 だと、なんで>>452のようになるの？

>>455
Sheet1は事前バインディング、Sheets("テスト")は実行時バインディング

>>455
Excel2000(VB6.0)でも再現したからそれはない

>>459
vb6.0にクラスの概念がないと思っている人？

失礼、
>>458は>>452宛で

>>458　ありがとうございます。
Excel VBAでのオブジェクト指向の理解が足りないので
十分には理解できてませんが、教えた頂いたキーワードでググったら、
何が問題なのかはちょっとわかりました。

シートの参照は、どちらでもいい場合は
事前バインディングになるSheet1のほうがメリット多そうなので、
以後なるべくこちらを使うことにします。

>>460
>>455が暗黙のインスタンスのことを言っていると解釈した上でのレスだ

formsコレクション知ってるならいいよ。

>>464
ごめ。いみふだ。なしで。

Excel2003/XP

配列で質問させてください。

Dim myArray() As Variant
Dim r As Long

r = Range("C1").End(xlDown).Row
ReDim myArray(r)
myArray = Range("C1:C" & r)

MsgBox myArray(1)　'←ｴﾗｰ発生

End Sub

Msgboxでｴﾗｰとなるのですが、原因はmyArrayが2次元
配列になっているのが原因でした。

ｽﾃｯﾌﾟｲﾝで確認すると
myArray = Range("C1:C" & r)
の時にﾛｰｶﾙｳｨﾝﾄﾞｳの型で確認すると2次元になってしまいます。

何故配列myArrayは2次元になってしまうのでしょうか？


よろしくお願いします。

セル範囲を流し込んだから
仕様

>>467

仕様でしたか･･･

ﾚｽありがとうございました。

検索する時に検索値に変数を代入するにはどうしたらいいのでしょうか？
例えば、変数Aに「りんご」を代入し、ワークシート全体から「変数A」で検索して「りんご」を探したいのですが・・・

検索をマクロで記録して、　"" で囲まれてる文字列の部分を、
ダブルクオーテーション外して変数名にすれば良いのさ。

ユーザー設定ボタンをツールバーに組み込んでるんですが、
ボタンでトグル動作、例えば書式の太字や斜体みたいのやりたいのですが、
マクロ内でボタンが押される度に画像を変えて、状態を記録してってやらんとダメでしょうか？
プロパティとかでトグルボタンが設定できて状態が読めたりするとうれしいのですが

インプットボックスを使って20個の整数を入力して、大きい順に並べ替える
プログラムを作りたいんですが、簡単に作れますかね？？

VBAはほとんど素人で、今勉強を始めたばかりです。。
とりあえずコレは明日までに仕上げたいんですが、

>>472
割と簡単だけどズブの素人が明日までに仕上げるのは無理かも

>472

ｱｷﾗﾒﾛﾝ♪

ひんとやるわ
Sub test()
Dim lst As New Collection

lst.Add (InputBox("1:"))
lst.Add (InputBox("2:"))
lst.Add (InputBox("3:"))
lst.Add (InputBox("4:"))
lst.Add (InputBox("5:"))

For Each v In lst
'ここでソートしてね
Debug.Print v
Next
End Sub

>>472
作ってみたよ。

Option Explicit

Sub 整数を入力して大きい順に並べ替える()

Dim aaa As Integer

For aaa = 1 To 20

Cells(aaa, 1).Value = Application.InputBox(Prompt:="数値を入力してください", _
Title:="数値入力", _
Type:=1)

Next

Range("A1:A20").Sort _
Key1:=Range("A1") _
, Order1:=xlDescending _
, Header:=xlGuess _
, MatchCase:=False _
, Orientation:=xlTopToBottom _

End Sub

>>475

>>476


本当にありがとうございます。

お二人に神のご加護があらんことを！

今のところ、まだIF文とかfor文までしか理解できてないんで、２人の文にあった関数調べて頑張ります！


本当助かりました！

>>431
ヘルプは質問前に項目名で検索してみましたが、関係ない物ばかりで
目的の物は出てきません。

「スパテク○○系」というのが「ExcelVBAスパテク368」のことなら
読んできましたが載ってませんでした。

「スパテク○○系」というのがこれではなく、他に確実に載ってるものがあるなら
出来れば内容を教えて欲しいところですが、せめて正式な書籍名だけでも教えてください。

確実に載ってる書籍が無いなら、引き続きここで >>415 をお願いします。

>>471
application.commandbars.コントロール

じゃいかんかね

>>480
それをヒントに頑張ったらでけた
CommandBarButton.State にボタンのＯＮ−ＯＦＦがあった
ありがとう

すいません教えてください

FileCopy D:\aaa.txt, "C:\aaa.txt"
これでD直下にあるaaa.txtファイルをC直下にコピーするという事ですが

これだとどうしてもaaa.txtというファイル名を指定しなければなりません
これを
FileCopy D:\aaa.txt, "C:\"
みたいにaaa.txtをC直下にそのままの名前でコピーさせたい場合ってどうすればいいのでしょうか？

>>482
どんなシチュエーションかわからんけど
第一引数でファイル名を指定する必要がある以上ファイル名は既に分かっているはず

例えば
filename="aaa.txt"
FileCopy "D:\"&filename,"C:\"&filename
みたいなんだとダメなん？

あとはFileCopyじゃなくてFileSystemObject使うとか

>482
用途が分からんけど
Source = "D:\aaa.txt"
Destination = "C:\"

'Sourceからファイル名のみを取出す処理をここに記述

FileCopy Source, Destination & FileName

とすればいいんじゃない？

ファイル名のみを取出すのは、文字列関数なんかを使えば
できると思うけど......


んで 自分ならこうするってのを参考程度に
作ってみた(Dir関数を使用)

Dim Source, Destination, FileName
Source = "D:\aaa.txt"
Destination = "C:\"
FileName = Dir(Source)
If FileName <> "" Then
　　　　FileCopy Source, Destination & FileName
　　 Else
　　　　MsgBox (Source & "が見つかりません")
End If

EXCEL2003,XPsp2です。

次のコードが実行時エラー1004になります(2行目)。

c=5
Columns("3:" & c).Select

列選択の範囲を可変（実行時決定）にしたいのですが、
どうすればよいのでしょうか。

よろしくお願いします。

>485
なんかColumnsの使い方間違っているような
あんまし詳しくないんでなんとも言えないけど

Range使っちゃだめなケースなの？

>>486
レスありがとうございます。

3列からc列まで選択できれば、何でも結構です。
ちなみにRangeだと、どうすれば良いのでしょうか？

>>487

つﾏｸﾛの記録

>487
このケースは、VBAを使う上での基本中の基本だとおもうので
調べてくださいとしかいえません。

　>1 の★5 と★6　を熟読の事

>>488,489
レスありかどうございます。

マクロの記録には、

Columns("3:5").Selectと出てきます。

c=5
Columns(〜c〜)とは出て来ません（変数を使ったコードは出てこない）。

どうすれば良いのでしょうか？

>>490
>>（変数を使ったコードは出てこない）。

出てくるわけﾈｰﾀﾞﾛｗ

>>490
dim c as string

c = "5"

でどうでしょう？

>>487
ヒント

range ( , )
columns(3)
columns(c)
.select

>>493
492ですができました。
勉強になりました。
ありがとうございます。

マクロの記録をすると
Columns("C:E").Select
ってでてくるよ

>>492
"3:" & c
&は文字の結合だから

Columns("3:5").Selectって記録マクロでできるか？
Range("3:5").SelectとかRange("3:5").Selectならわかるが、Columns("3:5")は動かんなぁ。
記録マクロが動かんマクロになるわけないと思うが。

493で答え出とるがな

すまん、Range("3:5").SelectとかRows("3:5").Selectの間違い。

すいません。
僕のは間違えです。

>>495 へのレス
>>490 >>495 は同一人物だと仮定してレスします　別人だったらすみません。

　　>>490
　　　>マクロの記録には、
　　　>Columns("3:5").Selectと出てきます。

　　>>495
　　　>マクロの記録をすると
　　　>Columns("C:E").Select
　　　>ってでてくるよ

なんかレス番によってマクロの記録結果が違っているのですが....
Columns("3:5").Select って本当に記録された？

ヒント　列と行を広辞苑で調べてみようっ！

オブジェクトやプロパティやメソッドの検索の基本的なやり方を教えて頂きたいです。

オブジェクトブラウザ
インテリジェンス
ウォッチ
ヘルプ、MSDN、Google

等々ありますが、これらの強み弱み、表示できない事、表示できる事を、
上手くまとめて頂けないでしょうか。

ウォッチでは実行時のプロパティーは表示されるけど、
何故か一部のプロパティーが表示されないし、
メソッドは当然の如く表示できません。

オブジェクトブラウザやインテリジェンスは、
実行時系プロパティーが当然取れません。
隠しオブジェクトについては、表示する様にすれば表示できますが。

ヘルプは実行時系も隠しもメソッドも全てあると思いますが、
検索性に難ありで、網羅性や信頼性に疑いを持ってしまう所アリ。

間違いがあったり、足りない所があれば教えて頂きたいです。

アーリーバインディングやレイトバインディングとか、
その辺りとの関わりも良く分かって無いです、
教えていただけると助かります。

宿題は自分で頑張ってね。

>>502

ｸﾞｸﾞﾚｶｽ

質問です
一つ目
選択範囲のセルをオブジェクト変数に代入するにはどうすればよいでしょうか?
Dim aaa
aaa = Selection
としてもaaaにはvalueしか入らず、文字列の配列になってしまいます。

二つ目
選択範囲の全てのセルに対し、
長さが5じゃなければそのセルに文字列""を代入するというコードを書いてみましたが
aaa = ""
の行で「実行時エラー'10'
この配列は固定されているか、または一時的にロックされています」
というエラーが出ます。どういう風に書けばよいのでしょうか?
また、aaaの文字列の配列に直接値を入れたとしてもselectionに反映されません。これもどうすればよいのでしょうか?
勉強中に作ってみたものなので、特にこのコードを使って何かを処理するわけではありません。
コレクションをうまく使ってみたいと思っています。
よろしくお願いします。

Sub a()
Dim aaa
Dim m
aaa = Selection

For Each m In aaa
If Len(m) <> 5 Then
aaa = ""
End If
Next

End Sub

>>555

Sub test()

Dim rng

Set rng = Selection

For Each cell In rng
If (Len(cell) <> 5) Then
cell.Value = ""
End If
Next

End Sub

>>506
おお、すごい!ありがとうございました

>>505　はオブジェクト指向の考え方を一度学んだ方が良いと思う
今後も、できねー、なんで？を連発の予感

dimで宣言するなら型までだな

>>509
同意
更に option explicit を入れないと何となく動くけど、変なエラーが・・・になる

C使ってるとこの表現忘れがちになるな
俺だけかな

既に目を通してくれた方には煩わしいかもしれませんが
未解決のまま流れているので再投させていただきます。

オートシェイプに背景画像を挿入する場合についての質問です｡

手動でやる場合､
･オートシェイプの書式設定
　･塗りつぶし
　　･色
　　　･塗りつぶし効果
　　　　･図
　　　　　･図の選択
で､画像を挿入した際に､同ページに
　□図の縦横比を固定する
　□図形に合わせて塗りつぶしを回転する
というオプションがありますが､このオプションをVBAで変更する方法を教えてください｡

マクロの記録をしても､変更が記録されずに困っています｡

WindowsXP／Office2003

drawingobjectでどうだ

EXCEL2003です。

「アクティブなシート」の左隣りのシート（画面表示の左隣りのシート）の
名前を取得する方法を教えて下さい。

>>514

ヒント
　　Index
　　ヘルプの"Worksheet オブジェクト"

ググれカス

http://www.google.com/search?client=opera&rls=ja&q=excel+vba+%E9%9A%A3%E3%81%AE%E3%82%B7%E3%83%BC%E3%83%88&sourceid=opera&ie=utf-8&oe=utf-8

>>512
ここだと４つしかなさそうだが
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.chartfillformat.userpicture(office.11).aspx

expression.UserPicture(PictureFile, PictureFormat, PictureStackUnit, PicturePlacement)

VBAヘルプでUserPictureを検索しては

VBA用の難読化ツールないんかいな

>>515,516
レスありがとうございます

>>518
単純にパスワードを掛ければいいんじゃね

これがエラーになるんだが、原因おしえてもらえますか。

Sub 計算()

Const gensen = 0.15
Const risiwari = 0.05
Const tenbiki = 0.8

Dim i As Long

i = Range("C2")
Range("C4") = i
Range("C6") = Int(i / tenbiki * gensen)
Range("C7") = Int(i / tenbiki * risiwari)
Range("C5") = i + Range("C6") + Range("C7")

このように修正しましたが、まだエラーがでてきてしまいます。
先輩方　ご指導のほどおねがい　いたします。

Sub 計算()

Const gensen As Long = 0.15
Const risiwari As Long = 0.05
Const tenbiki As Long = 0.8

Dim i As Long

i = Range("C2")
Range("C4") = i
Range("C6") = Int(i / tenbiki * gensen)
Range("C7") = Int(i / tenbiki * risiwari)
Range("C5") = i + Range("C6") + Range("C7")


End Sub

よくわかんないけどエラー出ない

あと使うならsingle

Sub 計算()

Const gensen As Single = 0.15
Const risiwari As Single = 0.05
Const tenbiki As Single = 0.8

Dim i As Long

i = Range("C2")
Range("C4") = i
Range("C6") = Int(i / tenbiki * gensen)
Range("C7") = Int(i / tenbiki * risiwari)
Range("C5") = i + Range("C6") + Range("C7")

singleに修正しましたが、まだエラーです。

どの行で、どのようなエラーが発生するのか書きましょう

C2が文字列に一票

マクロが実行できませんとなります。

謎だな
どっかのろだにファイルあげるなら中覗いてみるけど現状ではなあ
バージョンは？

>>524

うちでもエラーでないよ!!

　　　>>マクロが実行できませんとなります。

って事は、マクロ内のコードがエラーとなっていると言うより
エラーメッセージの通り
マクロの コール(呼び出し)が失敗しているんでは？

このマクロをどの様に実行しているかを書いた方がいいかも？

このマクロ標準モジュールにあるんですよね？
あと
Sub 計算() に対する　End Sub　がないけど省略しているだけですよね

とりあえずExcelのバージョンから何から、必要な情報全て書け

未来予知！

　　　　　　　　∧∧
　　　　 　　ヽ(･ω･)/　 　ｽﾞｺｰ
　　　　 　＼(.＼ ノ
　　　　､ﾊ,,､

セキュリティ設定とか

>>529
endsub抜くとendsubが必要ですって出るからそれは大丈夫だろう

もしかすると保護されてるセルを変更しようとしたとかそんな感じ/

>>533
サンクス
たしかに 　^^;汗
いすれにしても情報が少な過ぎる

メッセージが出るってことは、中断中ってわけでもないしな

EXCEL2003,XPproSP2です。

２つのマクロにショートカットキー（[Ctrl]+[Shift]+[K],
[Ctrl]+[Shift]+[T]）を割り当てているのですが、
シートを表示した状態で、ショートカットキーを押しても
マクロが実行されないことが時々あります。
ファイルを閉じて、開くと、正常に動作します。
どういう時にショートカットキーが効かなくなるのでしょうか？

キーボード掃除してないとき

>>537
レスありがとうございます。

>キーボード掃除してないとき

どういう具合に掃除すれば良いのでしょうか？

いい加減にしろ

(;ﾟдﾟ)ｧ

えええぇー……

>>536
altかF10押してている、セルの編集中、他のマクロのデバッグ厨など
他はマクロそのものに原因があるんじやないかな

そんな事に悩むのは時間の無駄。ボタン化すればいいだけじゃない？

マクロの内容によってはその手は使えない

例えば選択したオートシェイプを操作するマクロ

オートシェイプを選択して、ショートカットキーでマクロを発動すると
Selectionで選択しているオートシェイプが取得できるが
ボタンでマクロを発動すると、Selectionで取得できるのは最後に選択していたセルになる

他にはシート範囲が広い場合

ウインドウ枠の固定を使っていて、左上にボタンが配置できるという好条件ならいいが
そうでない場合は、使いたいときにボタンが表示欄外という自体が起こる

まあメニューバーやツールバー、ユーザーフォームなど、上記のような場合も対策はあるが
「ボタン化すればいいだけ」とは限らないって事だけは覚えておこう

・・・

>>544
callで解決するだろカス

解決しないね

>>544
ほほう

Alt+F8

PCを窓から投げ捨てれば面倒な事が全て解決！

Instr関数を使って文字列の検索をしたいのですが、
半角数字が5つ続く場所の位置ってどうやったら調べれますか？
数字は具体的なものじゃなく、どんな数字でもいいから5つ連続です。
ご教授お願いします。

それはInstrじゃなくて、正規表現使うべきだな。

>544
朝見た時は絶句したが、反論はしないでおこう。使い分けは必要だからな。

>536
まずはボタンか画像にマクロ登録して、ショートカットキーによる問題なのか切り分け検証をしてみたらどう？意味無かったかな？
その上でSHIFTを抜くとか簡略化してみては？

>>551
半角数字が6つ続く可能性と、そのときの処理は銅考えるの？

6つ続く可能性はないという考えでお願いします

解ってない奴が多いな

#だっけ

dim s() as string
dim i as integer

redim s(1 to len(range("A1").value))
for i=1 to ubound(s)
s(i) = mid(range("A1").value, i, 1)
next i

for i=1 to (ubound(s)-4)
if isnumeric(s(i)*s(i+1)*s(i+2)*s(i+3)*s(i+4)) then
exit for
endif
next i

こんな感じ？

>>551
>>552

[0-9]{5}

便利だから覚えて損無し

vbaだとregexpだっけ

Excel2003なんですが、BeforeRightClickイベントみたいにアプリケーションキーでメニューを表示するときの
制御はできないんですか？

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub

Win2000、Excel2000で作成したシートのVBAマクロは、
そのままでもWinXP、Excel2003で正常に動作しますか？
『基本的には』大丈夫らしいのですが、保障が欲しいのです。

また、Excel2000と2003のVBAの互換性・変更点について書かれたページがあれば教えてください。
（セル操作関数(SUMとか)については、特に統計系の関数が強化されたとマイクロソフトサポートで書かれていましたが、
マクロについての互換性・変更点について書かれたページは見つかりませんでした）

MicrosoftOfficeObjectLibraryが9.0から11.0に変わったことで、オブジェクトが追加されたりもしたそうですが、
旧バージョンで作成したマクロが新バージョンで動かなくなるということはないと思うのですが。
（もちろん、新バージョンで作成したマクロが旧バージョンで動かなくなるということはあるでしょうが）

お仕事なら、自分でテストしろよ

というか、ここで大丈夫だって言われて保障になるのかと

大丈夫　保証します

(;ﾟдﾟ)ｧ

>>563
MSのサポート受けたか？
話はそれからだ。

>>561
右クリックじゃなくて、特定のキーを押した時の制御ってこと？
キー入力をバインドするワークシートイベントはなかったような
アクティブ時にAPIつかって恒常ループしたらいかがが


前略 GetAsyncKeyState Lib ”User32.dll”後略

sub a()
中略
if getasynckeystate(コード番号) 〈> 0 then
実行
end if

スリープ処理
後略

あれ、普通にkeypressとかkeypreviwも使えるかな？

ちなみにワークシートの右クリックメニューを表示するなら
application.comandbars(”cell”).showup

ああごめんショートカットメニューを表示させるわけじゃないんだよな

そしてshowpopupだ

>>542,547
レスありがとうございます

すいません、説明が全然足りませんでした。
例えば右クリックを押した時にシートや選択範囲の状況を見て削除や切り取りを制御しようとしたら
アプリケーションキーでメニューを表示した場合は制御できませんよね？
ブックのアクティブやディアクティブの時も制御を入れたいんで、セレクションチェンジや
シートアクティブのイベントだと対応できないんです…。

何か良い方法無いですかね？

やりたいことをズバッと書け

最近の名前にレス番入れてる奴、同一人物じゃね？
うざいよ。

>>573
>>569〜


>>575

え？

は？

えっ

＞＞５７３
もしかしてエクセルがアクティブじゃなくても処理したいってことなの？
方法は無くはなかったけど忘れたでもＡＰＩ使うんじゃね

すいません、初歩的な質問で申し訳ないのですが
ソルバーの制約条件で設定して、解をシートに書き込んでいくマクロを作ったとして
解が見つかった場合はシートに書き込んで、、仮の解が見つからなかった場合には
エクセルのシートに書き込まないという風にする場合は、どのようにしたら
良いでしょうか？
いくつか制約条件を設定した場合に、仮の解が見つからない場合は、いつもある制約条件が
破られてしまって困っております。

お手数ですが、もし教えてやっても良いという方がおりましたらよろしくお願いします。。。

連投してすいません。

具体的には、変数を３個使っております。
１、SolverAdd CellRef:="$N$6:P6", Relation:=3, FormulaText:="$G$48"
↑３つの変数は０以上とする制約条件

２、SolverAdd CellRef:="$E$62", Relation:=2, FormulaText:="$G$50"
↑３つの変数を合計１とする制約条件

３、SolverAdd CellRef:="$A$33", Relation:=1, FormulaText:="$X" & i
３、SolverAdd CellRef:="$B$34", Relation:=1, FormulaText:="$Y" & i
３、SolverAdd CellRef:="$C$35", Relation:=1, FormulaText:="$Z" & i
↑３つの変数を、それぞれ特定の数値以下になるようにする制約条件
iはループの（For　i　=　1　to　10）iです。

４、SolverAdd CellRef:="$E$8", Relation:=1, FormulaText:="$E$9"
↑これは３つの変数にそれぞれ違った数値をかけたものを、ある数値以下に制限するものです。

これらの制約条件を設定すると、１，２，４は守られるのですが、３は破られてしまいます。
４の制約条件を排除した場合は、１，２，３は守られるので、３の制約条件のプログラム自体は間違っていないと思うのですが・・・

制約条件をやぶるばあいは、結果にシートに記述しないという場合はどうしたらよいでしょうか？

ソルバーって使ったことないし基本的どころじゃない気がするが

結果を変数に格納して、条件合致した時だけ書き出せば？

その条件を合致させるというのに悩んでいるのです。
制約条件を４つ使って出した答えに、また４つの制約条件をクリアしているか
どうかを確かめるということでしょうか？

算出した答えを一回出した後、
If　制約条件４つ　then　Worksheets("matome").Cells(i, 6) = Worksheets("keisan").Cells(6, 6)
↑Cells(6, 6)が算出した解
みたいな感じということでしょうか？

制約・・・っていうかやりたいこと全部書いてみ
その↑で今やってることをかいてみ

では書かせて頂きます。現在やっていることはある物質をつくるために４種類の材料を使う比率を決定するということです。
その物質を作るためにはどの材料を使ってもよく、最終的にA+B+C+D＝１となれば問題ありません。
また、どの材料の比率はマイナスになってはいけません。以下がその制約条件です。
また、材料費がA、B、C、Dそれぞれ異なり、A、B、C、Dの材料費をそれぞれ1.1、1.2．1.3、1.4と設定して
物質を作る時に各制約条件をクリアしたなかでの「最小コスト」となるような線形計画問題です。そのセルはH１と設定しております。H1＝1.1×A1＋1.2×B1＋1.3×C1＋1.4×D１といった感じです。この場合の変数(それぞれの材料の量)はA1、B1、C1、D1です。
具体的には以下のプログラムです。
１、Solverok setcell:="$H$1", MaxMinVal:=2, ByChange:="$A$1:$D$1"
２、SolverAdd CellRef:="$E$1", Relation:=2, FormulaText:="$F$1"←セルE1はセルA1〜セルD1の合計(材料の量の合計です)
３、SolverAdd CellRef:="$A$1:$D$1", Relation:=3, FormulaText:="$G$1"、セルF1は1、セルG1は0が代入してあります。

しかし、A、B、C、Dはそれぞれ使える上限があり、その上限が変化していくのです。
例えば、AとBはいくらでも使えるが、C、Dは全く使えない等。上限の合計は１ではなく、２と設定しています。A、B、C、Dの上限の制約条件は以下の通りです。
４、SolverAdd CellRef:="$A$1", Relation:=1, FormulaText:="$W" & i
５、SolverAdd CellRef:="$B$1", Relation:=1, FormulaText:="$X" & i
６、SolverAdd CellRef:="$C$1", Relation:=1, FormulaText:="$Y" & i
７、SolverAdd CellRef:="$D$1", Relation:=1, FormulaText:="$Z" & i

そして最後に、物質をつくるときに材料によって排出される汚染物質の量がことなるので、排出される汚染物質の上限を定めました。
８、SolverAdd CellRef:="$I$1", Relation:=1, FormulaText:="$J$1"←セルI1は汚染物質の合計量で、セルA1〜D1に汚染物質係数をかけたものを合計したものです。セルJ1は排出しても良い汚染物質の量の上限です。

このようにして計算すると、制約条件が満たされなかった場合でも、無理やり解が算出されてしまいます。具体的には４、５、６、７の制約条件がいつも破られてしまいます。
制約条件を満たせなかった場合は解の記述を行わないということはできないでしょうか？

EXCEL2003です。

パソコンの画面にEXCELシートの1行目〜40行目まで表示されている状態から、
1001行目〜1040行目が表示されている状態にする方法があれば教えて
下さい（スクロールできなく、ジャンプする感じ）。
セルA1001をselectしたらできかと思ったら、できませんでした。

よろしくお願いします。

Application.Goto Range("A1001"), True

＞５８０
ちょっといろいろと確認してみるけど機体しないでくだしあ
かるくぐぐったけどこんなかんじかな？
http://efcit.co.jp/cgi-bin5/exqalounge.cgi?print+200902/09020005.txt

＞５８７
Range().selectで出来た木がするけども
まあ使うならScrollColumnかな

>>582,>>584,>>589さん
いろいろとアドバイスありがとうございました。とても参考になりました。
最終的に、最適解を算出した後に、その解が以下の制約条件をクリアしているかを
If文でもう一度検証するという形で、なんとかすることができました。

４、SolverAdd CellRef:="$A$1", Relation:=1, FormulaText:="$W" & i
５、SolverAdd CellRef:="$B$1", Relation:=1, FormulaText:="$X" & i
６、SolverAdd CellRef:="$C$1", Relation:=1, FormulaText:="$Y" & i
７、SolverAdd CellRef:="$D$1", Relation:=1, FormulaText:="$Z" & i

>>586
一方ロシアはテンポラリのターゲットセルを用意して
ＶＢＡで制約条件を判定の後に必要があれば本来のターゲットセルに書き出した

制約を破って解が見つかった　ってことかな
だとすると条件指定が不十分なのでは

解が見つからなかったかどうかは
solversolve(true)
の戻り値で0が解あり、1が解なし

片方の制約で動作するっていうことなら、２回実行して両方のsolversolve(true)を満たした場合のみ記述することは可能ぽくね

ってもう解決してるじゃん
音速が遅いな・・・

>>592
おお！そちらの方がずっと効率的ですね！
ありがとうございます。

Excel 2003 SP2で下記コードを実行すると（当然にも見えますが）エラーになります。

Dim cols As Range
Dim x As Range
Set cols = ActiveSheet.Columns 'アクティブなシートのすべての列を表す Rangeオブジェクト
Set x = cols.Item(3, 3) 'エラー

cols.Itemの正しい呼び出し方を知るには、
ヘルプのどの部分を見れば良いのか教えてください。

ヘルプから、Rangeコレクション → Itemプロパティの使い方を調べると、
expression.Item(RowIndex, ColumnIndex)
と記載されていますが、これは調べ方が間違っているということでしょうか？

>>595
調べ方は間違ってないけど、ヘルプに書いてあるのはあくまでも一つの例だから、応用しないといけない。
これを試してみれば、変数colsが何のコレクションになってるかわかると思う。

Dim cols As Range
Dim x As Range
Set cols = ActiveSheet.Columns
Set x = cols.Item(3)
x.Value = "abc"

>>596
ありがとうございます。
試行錯誤してみるしかない訳ですね。

予想は付くものの、ドキュメント化されていないというのはアレですね。

Windows98/Excel97　というとってーーも古い環境なのですが
相談にのって欲しい事があり質問させて下さい。
　あるユーザフォーム内のオプジェクト(実際には TreeViewオプジェクト)
で右クリックしたらポップアップメニューを出すようにしたんですが
　ポップアップメニューでフォーム内のプロシージャ(Publicな)を.OnAction で設定すると
実行時 Ｘアイコンのダイアログ表示( 表示内容は 400 としか出ない)となってしまうのです。

現在は、一度標準モジュールを経由する事でエラーを回避させているのですが
ポップアップメニューにてフォーム内のプロシージャを★直接指定★する良い方法はないでしょうか？
(フォーム内の処理はフォーム内で完結させたいので)

エラー時のポップアップメニュー
　　With CommandBars.Add(Name:="TestPopup1", Position:=msoBarPopup)
　　　　　With .Controls.Add(Type:=msoControlButton)
　　　　　　　　　.Caption = "データ更新"
　　　　　　　　　.OnAction = "frmTest.FUPD"　　　 'フォーム内のプロシージャ
　　　　　End With
　　End With

回避策ポップアップメニュー
　　With CommandBars.Add(Name:="TestPopup1", Position:=msoBarPopup)
　　　　　With .Controls.Add(Type:=msoControlButton)
　　　　　　　　　.Caption = "データ更新"
　　　　　　　　　.OnAction = "FX_UPD"　　　　　 '標準モジュールのプロシージャ
　　　　　End With
　　End With

標準モジュール
Private Sub FX_UPD()
　　Call frmTest.FUPD
End Sub

★FUｷﾗｯPD★

すいません、ソルバーを使う時に手動では精度を上げられるのですが
マクロでソルバーを使う場合に精度の上げ方がわかりません。

どなたかマクロでソルバーを使う際に精度を上げる方法を知っている方が
いらっしゃったら、ご教授ください・・・

>>588
レスありがとうございます

excel vbaの練習問題がたくさん掲載されているサイトまたはおすすめの本を教えてください

実践以上に経験値をつめるものはない。

環境:Excel2003、WindowsXp

Private Sub Userform1_Initialize()

Dim strWORK As String

Me.Listbox1.clear

ChDir ThisWorkbook.Path
strWORK=Dir("*表*",vbNormal)

While strWORK <> ""
ME.Listbox1.AddItem (strWORK)
strWORK=Dir()
Wend

End Sub


ユーザーフォームのリストボックス１にカレントフォルダ内の「表」という文字が入ったファイル名を追加したいんですが
一回目に実行した時に追加されたリストが更新されません。
おかしいと思いカレントフォルダを調べてみたところ、ChDir ThisWorkbook.Pathと入れているのにそこでカレントフォルダが変更されていませんでした。
上記のコードのどの辺に問題があるでしょうか？

保存してない、とか？

>>604
俺も同じ環境でChDirが効かないことが多かったんで
起動パス以外のファイル操作の時は、全部直接パス込みのファイル名指定してファイル開いてる

ドライブも変わったんじゃないの

>>607
はchDriveの話しね

ドライブ変更も並列するのはまあいいとして


なんでファイル名を一個しか取得しないのはなぜなんだぜ？

エスパー

フォルダに表なんとか1.xlsを作って試行
リストに追加されたﾔﾀｰ
フォルダに表なんとか2.xls以下を作って実行
1以外追加されてないじゃん!

>>609
dirは繰り返さないと
ヘルプ見ないといかんよ
>>610
さすがエスパー

つまり、本来ならループしてフォルダ内のファイルを取得しないと行けないのに、
一番初めのファイルだけを毎回取得してるのに気が付かず、
他のファイルがリストに出ないです>ｑ〈
ですな？

>>604
カレントフォルダが変更されていない件に関して

現在のドライブと ThisWorkbook.Path のドライブが異なっていませんか？
たとえば

カレントデレクトリが C:\My Documents
ThisWorkbook.Path が D:\HogeHoge
の時、

ChDir ThisWorkbook.Path
としても
カレントデレクトリは C:\My Documents　のままですよ


ChDir ThisWorkbook.Path
ChDrive "D"
として現在のドライブも変更して下さい。

ちなみに
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path
でもいいようです(HELPによると)

>>605-613
ありがとうございます。
みなさんが言われているとおりドライブが変更されていませんでした。
application.defaultfilepath=thisworkbook.path
と設定したら無事追加されました。

ちなみに>>609-612で指摘されている件に関してはググって出てきたサイトの通りにやっていて
そこは変更せずにいけたみたいです。
ただ私もよく理解できないんですがなぜ

strWORK=Dir("*表*",vbNormal)

While strWORK <> ""
ME.Listbox1.AddItem (strWORK)
strWORK=Dir()
Wend

これでファイル名がすべて取得できるのでしょうか？これだと2回目以降「表」の入ったファイルを取得できないと思うのですが
なぜかできました。

>>614
Dir関数は1回目に呼ばれた時にパラメータを覚えておいて、
2回目以降はパラメータ無しで呼ぶ、という設計になっているからです。
これを設計した人が何を考えていたかはわかりませんから、
理解するのではなく、そういう物だと暗記して使うしかありません。

extra spacial ぱーそん

前にソートの話出てたよな
文字列含むやつだっけ？
前スレ？

>>617

ggrks

このスレの話なのにわざわざぐぐらせんのかよう
文字列をコードに変換して並べ替え……そんな簡単なもんだっけ

Excel VBAの「XOR」について質問です。

http://www.ipa.go.jp/security/rfc/RFC2104JA.html
↑このページにあるHMACというメッセージダイジェスト（暗号化された文字列）の作成を、Excel VBAでやろうとしています。

c = a Xor b
という計算をしたいのですが、Xor は、bとcの型が文字型(String)だとエラーになりました。
bとcの型が数値型(ByteやInteger)だとエラーになりませんでした。

そこで、
文字列1 = 文字列2 Xor 文字列3
をやりたい場合、いったん文字型(String)の変数に格納しておいた文字列2と文字列3を、数値型(ByteやInteger)に変換してからXor計算をやることになると思います。

Xor計算をするために、前段階の準備として文字型を数値型に変換する場合、どんな数値型の変数を用意すればいいのでしょうか？

XORは２つの式を比べる
R＝ ［true/false］ XOR ［true/false］

だからやるならば
りざると ＝ (文字列1 ＝ 暗号1) XOR (文字列2 ＝暗号2)
のように記述する
戻りはtrue/falseしかないから、型を使うならboolean

括弧内の式が代入になってるが、真偽判定に読み替えてくれさい

>>621-622
いまいち分からなかったXORの意味がよく分かりました。
どうもありがとうございます！

質問します。
Windows XP
Excel 2003 SP3

ある値の範囲に対して標準偏差を取りたいのですが、
範囲が固定ではなく、変動する場合に算出する方法が分かりません。

サンプルプログラム
Sub Test()

Dim wInt1 As Integer
Dim wInt2 As Integer
Dim wInt3 As Integer
Dim wStr As String
Dim wStDevp As Double

wInt1 = 10
wInt2 = 20
wInt3 = 30

wStr = Str(wInt1) & "," & Str(wInt2) & "," & Str(wInt3)

wStDevp = WorksheetFunction.StDevP(wStr)　　←ここでエラー

End Sub

上記のようなプログラムを作成しましたが、矢印の箇所でエラーとなりました。
サンプルのため、値は３つと固定していますが、
範囲が変動する場合においても算出する方法はありますでしょうか？
よろしくお願いします。

>>624

StDevP()の引数を配列にしておけばいい。
動的配列にして、範囲がわかったところで再定義を行う。

Sub Test()

Dim wInt() As Integer 'とりあえず、要素数無しの動的配列で定義しておく
Dim wStDevp As Double

ReDim wInt(2) '範囲が確定したところで再定義

wInt(0) = 10
wInt(1) = 20
wInt(2) = 30

wStDevp = WorksheetFunction.StDevP(wInt)

End Sub

てｓ

てｓ

>>625
出来ました！ありがとうございます！

これまでは、
作業用のスペースに対象の値をコピー→標準偏差を算出
としていて、処理速度が遅かったのですが、教えて頂いた方法で処理速度が上がりました！

みなさん良い知恵を貸して下さい。
現在オープンされているブック(Addinも含む)の一覧を取得しようと
下記サンプルのようにしているのですが

'(book名とﾌﾟﾛｼﾞｪｸﾄ名を表示します)
Sub TEST()
'通常のブック
　　For Each Wk In Workbooks
　　　　Debug.Print Wk.Name, Wk.VBProject.Name
　　Next
'Addinブック
　　For Each ad In Application.AddIns
　　　　 If ad.Installed Then
　　　　　　　Debug.Print ad.Name, Workbooks(ad.Name).VBProject.Name
　　　　End If
　　Next
End Sub
これだとIsAddin=True が設定してあるBook(Addinへは登録していない)が
表示されていないのです。
色々調べて
　　For Each Wk In Application.VBE.VBProjects
　　　　　Debug.Print Wk.Name
　　Next
とするとオープンされている全てのブックのﾌﾟﾛｼﾞｪｸﾄ名を取得できる事は判明したのですが
ここから先(BooK名取得)で煮詰まってしまっています。

どの様にしたら全てのオープンされているブックのBooK名取得が出きるでしょうか？

スレ立てるまでもない質問スレで誘導されました。

表A
開始日　　　　終了日
--------------------
2009/9/1　　2009/9/2
2009/9/2　　2009/9/5
2009/9/2　　2009/9/3

表B
基準日　9/1　9/2　9/3　9/4　9/5
開始日　　1　　3　　　3　　3　　3
終了日　　0　　1　　　2　　2　　3


表Aの開始日と終了日をカウントして、基準日に該当する件数を書き出したいのですが、
関数はVLOOKUPを使えばいいのでしょうか？
件数は累計を表示したいのですが、どの関数を使えばいいのでしょうか？
本当に初歩的な質問ばかりですみません。。

>>630
DSUMとかDCOUNT、またはCOUNTIF

いずれもVBAとは無縁

すみません、説明が足りませんでした。
ワークシート関数ではなく、マクロを使用して作成したいのです。

'-----------------------------------------------------------------------------------------
Sub 進捗表を作成する()
進捗シートの有効範囲を調べる
If 下 < 9 Then '十分なデータがあるかチェックする
MsgBox "データが少ないので作業を続けれません", vbCritical, "進捗表作成"
Exit Sub
End If
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 進捗管理シートの有効範囲を調べる()
Sheets("進捗管理").Select
ActiveSheet.Unprotect 'シート保護解除
下 = Range("C3").End(xlDown).Row '項目の列の下端選択
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 開始日をカウントし､件数を表示する()
　Select Case <任意の数式または文字列>
　　　Case セルA1〜A15とセルD1の日付が一致する場合
　　　　　カウントした件数を表示
　　　Case セルB1〜B15とセルD1の日付が一致する場合
　　　　　カウントした件数を表示
　　　Else
　　　　セルが空白なら0を表示
End Select
End Sub

いろいろ調べてみたのですが、条件の書き方がわかりません。。
考え方がこれであってるのかも自信ないです。。

取引先に急遽頼まれて作成しているので、明日（というか今日）出来ていないと
まずいです。。
どなたかアドバイスをお願いします。

>>633
Countifの繰り返しじゃだめなの？

たぶんダメかもしれないですが、やってみます。。
COUNTIFの繰り返しはFor〜Nextを使えばいいんですか？

表Bの基準日行をforでまわして、表Aの開始日列と終了日列と比較すりゃいいだけ。

シートのコピーに関する質問です。

'シートをコピーし、一番後ろにシートを代入する
Sheets(Array(strCopySheetName1, strCopySheetName2)).Copy After:=Sheets(strCopySheetName2)

上記方法では、シート２の直後にシート１・シート２がコピーされます。
これを、シート１をシート１の直後に、シート２をシート２の直後にコピーするにはどうすればよいでしょう？

一枚ずつやれよ

シートの不可視列を削除して別ブックに保存していますが、下記の様に
列を削除してもUsedRange.Columns.Countの値が変わりません。

Dim wbk As Workbook, i as Long

Activesheet.Copy
Set wbk = Activeworkbook

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If ActiveSheet.Columns(i).Hidden Then ActiveSheet.Columns(i).Delete
Next

教えて頂けたら有難いです。

>>639
削除処理したい範囲と 実際の削除処理をしている範囲が違うから

For Eachでセル範囲を回した場合の質問です。

A列の1行目からデータ末行までループ処理するというのは、よくあることだと思うのですが、そんな場合データが5行なら
A1:A5範囲のRangeオブジェクトを取得してFor Eachでループを回すと思います。(For...Nextでも可能ですが)

そして、「A列の1行目からデータ末行まで」のRangeオブジェクトを取得する方法はいくつか有りますが
そのうちのひとつで不可解な現象(自分が無知なだで当然の現象なのかも知れませんが)が起きます。

それはUsedRange.Columns(1)と取得した場合です。これに対してFor Eachループを回すと、
ループせずに、ループ変数にA1:A5がそのまま入って、1回でFor Eachを抜けてしまいます。

Range("A1:A5")と直接指定した場合はもちろんのこと、Intersect(UsedRange, Columns(1))や
Range(Range("A1"), Cells(Cells.Rows.Count, 1).End(xlUp))などでは
ちゃんとA1〜A5まで5回のループが回ります。

UsedRange.Columns(1)でもそれ以外の正常にループが回る方法でも
TypeNameで見ればRangeですし、Addressプロパティも完全同一です。

なぜ完全同一範囲のRangeオブジェクトに対するFor Eachループが回ったり回らなかったりするのでしょうか？

以下、検証用コードを貼ります。

Const DataRange = "A1:C5"
Const Col1Range = "A1:A5"

Sub Test1()
　　Dim Result As String
　　With Worksheets.Add
　　　　.Range(DataRange).Value = "a"
　　　　Result = Result & Test2(.Range(Col1Range), "Range(""" & Col1Range & """)")
　　　　Result = Result & Test2(.UsedRange.Columns(1), "UsedRange.Columns(1)")
　　　　Result = Result & Test2(.Range(.Range("A1"), .Cells(.Cells.Rows.Count, 1).End(xlUp)), "Range(Range(""A1""), Cells(Cells.Rows.Count, 1).End(xlUp)")
　　　　Result = Result & Test2(Intersect(.UsedRange, .Columns(1)), "Intersect(.UsedRange, .Columns(1))")
　　　　MsgBox Result
　　　　Application.DisplayAlerts = False: .Delete: Application.DisplayAlerts = True
　　End With
End Sub

Function Test2(LoopRange As Variant, Explanation As String) As String
　　Dim LoopCell As Range, LoopCounter As Long, Result As String
　　Result = Result & "取得方法：" & Explanation & vbCrLf & vbCrLf
　　Result = Result & "型：" & TypeName(LoopRange) & " ／ " & "範囲：" & LoopRange.Address(0, 0) & vbCrLf & vbCrLf
　　
　　For Each LoopCell In LoopRange
　　　　Result = Result & LoopCell.Address(0, 0) & " "
　　　　LoopCounter = LoopCounter + 1
　　Next LoopCell
　　If LoopCounter <= 1 Then Result = Result & "範囲でループしせんでした" & vbCrLf _
　　Else Result = Result & "の" & LoopCounter & "個のセルをループしました" & vbCrLf
　　Test2 = Result & vbCrLf & String(20, "-") & vbCrLf & vbCrLf
End Function

長くてわけがわからんけど型を確認

>>643.
先にも書きましたが、型(TypeName)は全てRangeです。

UsedRange.Columns(1).Cellsを使え。

>>645
結果が得られなくて困っているわけではありません。
ですので「どうすれば良い、何を使え」という話は、失礼ながら求めておりません。

先にも書いた通り、完全同一範囲のRangeオブジェクトに対するFor Eachループが
回ったり回らなかったりする『理由』が知りたいのです。

なら、Columnsのヘルプを100回よめ。
複数のセル範囲を含む Range オブジェクトに対して Columns プロパティを使用すると、
選択範囲の中で最初に選択した領域の列が返されます。たとえば、Range オブジェクトで
A1:B2 および C3:D4 の 2 つのセル範囲が含まれているとき、Selection.Columns.Count を
実行すると 4 ではなく 2 が返されます。複数のセル範囲を選択している可能性があるときは、
このプロパティを使用する前に Areas.Count を実行し、範囲が複数選択であるかどうかを確認します。
複数選択の場合は、使用例の 3 番目のようにセル範囲の領域ごとにループします。

慇懃なだけでヘルプも読めないのか…
怠惰なのか無能なのか、その両方なのか
それとも努力してそうなったのか

>>647
そこに書いてあるのは「複数のセル範囲を含む Range オブジェクトに対して」、つまり

┌┬┬┬┬┬┬┬┬┬┬┬
│┏┯┓┼┼┼┼┼┼┼┼
│┠�@┨┼┼┼┏┯┓┼┼
│┗┷┛┏┯┓┠�B┨┼┼
├┼┼┼┠�A┨┗┷┛┼┼
├┼┼┼┗┷┛┼┼┼┼┼
├┼┼┼┼┼┼┼┼┼┼┼

のように2つ以上の矩形範囲を指定した場合の話ですよね？
この場合、Columns.Countは合計の6ではなく�@のみの2を返すから
全てを取得するにはAreas.Countを確認して、�@〜�Bまで領域ごとにループしろと。

rangeなのにvariantで引数してるのは問題ないの？

>>650
問題ないし関係もありませんよ。

Test2は第一引数がRange型であるという前提の関数ではないから型をVariantにしているだけです。
だからLoopRange As Rangeにしても結果は同じですし、更に言うなら、変数を挟まなくても結果は同じです。

ステップインしたらループ時の格納状態どうなってたの？

>>652
格納状態って、格納値のことなら結果の通りですが。
LoopRangeの型のことなら、4条件全てVariant/Object/Rangeです。

変なのが住み着いてるな〜


ﾔﾚﾔﾚ(-_-;)

>先にも書いた通り、完全同一範囲のRangeオブジェクトに対するFor Eachループが
>回ったり回らなかったりする『理由』が知りたいのです。

そのループは、お前が思ったものをループしてるんじゃないからな
 For Each LoopCell In LoopRange.Cells
だとお前の思うとおりのループだ
型と範囲表示してるとこに、LoopRange.Count表示させてみ

同じ範囲でも同じRangeオブジェクトだとは限らないってことだ


しかし実際はこれ何をループしてるか不明ｗ
Areas.Countは全部１だったりしてるし．．．
これ以上は俺は調べる気力がない

多分実際にコード書いて検証してるやつっていないんじゃね
理由はいろいろあるけど、態度が慇懃なだけじゃやっぱだめなんだよな、レスの初めか最後に
「１４歳ｊｃです＞＜」って書かないと

>>642,646
なんか人に物を尋ねる態度ではないですよ

>>655さんも言っている通り
.UsedRange.Columns(1) のカラム数は1だから　.UsedRange.Columns(1).count=1なのでは？

試しに　検証用コードに
.Range(DataRange).Columns(1)
.Range(Col1Range).Columns(1)

とした　２行のコードを追加したら　これも１回しかループしない

.UsedRange.Columns(1)
.Range(DataRange).Columns(1)
.Range(Col1Range).Columns(1)
この３つは Columns指定がある為、count=1　なので
forループも１回しか動作しないんではない？

>>656
すんません検証してしまいました

＞＞６５８
あなた良い人ですね＞＜

UsedRange.Columns(1)って列の集合だからループ回したって1回で終わりだね。
UsedRange.Columns(1).Cellsならセルの集合だからセルの個数だけ回る。
UsedRange.Resize(,1)でもセルの個数だけ回るけどね。

>>660で　簡潔でかつ的確な指摘がされているので
これ以上書くのもなんだけど

そもそも
For Eachループって
オブジェクトの各要素に対して一連のステートメントを１回実行するものだから
１０要素あるものは１０回ループするし
１要素しかなければ１回で終わるし
んで何要素あるかは Countプロパティ見れば分かると
１要素しかない状態ではどんな事やったって１回で終わる
どうしてもやりたけりゃ Cells なんかで要素を分解してやる

と小難しく書いてみました

VBとかFor Each　便利なんだけど、こういった勘違いが出るんだよな
宣言やプロパティを明示することで勘違いを防ぎやすくなる

660以外が駄文な件について
結果から直結する事由を、ただ長々と書き連ねてるだけw

>>660書いたの俺だが、他が駄文は言いすぎだな。

しむらけん「駄文だ」

なぜExcel VBAのスレがあるのにWord VBAのスレがないのかな。
というわけでスレチなんだが、VBAに精通したみなさんならいいコメントがいただけるような気がして投稿します。

FAX送信書をWordで作っています。

そのテンプレファイルに保存ボタンを作りたいのですが…
たとえば
"【FAX送信書】2009年8月28日1740_ABC株式会社.doc"
のような感じで自動的にファイル名を吐き出して保存したいと思います。

Excelではセルの文字列を参照するだけなので分けないのですが、Wordで会社名を任意の行から取ってきて代入する方法を誰か知りませんでしょうか。

Excelで作れよYO！ってことなのでしょうか。

>>666
word自体がそもそも使われないし、wordでマクロ使う機会が無い
マクロを記録で、ファイル名をつけて保存
後は任意の行はinputboxあたりで指定して、そのrowkvalueをファイル名として保存は出来ないの?

rowkvalue→rowのvalue
まぁ、使ったこと無いんで全然違ってたらｽﾏﾝ。とりあえずexcelに当てはめてみただけ

はじめまして 神様！

質問なのですが、
2つのExcel BOOKがあります。そのうち

例
商品名 商品コード 価格 ＊＊＊ ＊＊＊＊＊ ＊＊＊
ｾﾛﾊﾝﾃｰﾌﾟ KHUD027008 1560円 ****** ********** ******
ｽﾃｨｯｸ糊 HKPIF00028 1640円 ****** ********** ******
****** ********** ****** ****** ********** ******
****** ********** ****** ****** ********** ******
****** ********** ****** ****** ********** ******

BOOK2は各店舗ごとの売上げ商品一覧です
（店舗名、商品名、商品コード、販売日時、等）

例
店舗名 商品名 商品コード 販売日 ＊＊＊＊ ＊＊＊
新宿店 ｽﾃｨｯｸ糊 HKPIF00028 090728 ******** ******
銀座店 ｾﾛﾊﾝﾃｰﾌﾟ KHUD027008 090825 ******** ******
****** ******** ********** ****** ******** ******
****** ******** ********** ****** ******** ******

商品コードをキーに検索して、BOOK2からデータを引張って
BOOK1に店舗名を表示したいのですが

計算式が分かりましたら御教授お願い致します。

m( _ _ )m

すみません、上の方の例が BOOK1です

vlookup関数じゃだめなの？

>>699
この条件だけだと絞り込めない気がする
つか最初から教えてってのは無理があるよ
自分はこの様にしたけど　ここがうまくいかないんだけどって質問しないと

ところでこのスレは、Excel VBA質問スレなんだが　VBAで処理するのかな？

間違った >> 699 じゃなくて 　>>669ね

ODBCでSQL

Evaluateの中の3重・4重の"の意味がわかりません。
a = "hoge"
x = sheetName.Evaluate("sumproduct((D2:D5=""" & a & """)*(F2:F5))")
はOK、
x = sheetName.Evaluate("sumproduct((D2:D5=" & a & ")*(F2:F5))")
はNGになる理由をアフォにわかるように説明してください。

>>675
Cells(1, 1) = "abc"　→　セルの値は「abc」になる
Cells(1, 1) = "a""bc"　→　セルの値は「a"bc」になる
Cells(1, 1) = """abc"""　→　セルの値は「"abc"」になる

>>676　ありがとう、わかったかも。
はじめとおわりにつく"は文字列であることを表す記号で、
二重の""は正規表現の\\（エスケープ文字+\）みたいなものか。

それをいうなら\"でしょ

ちがうでしょ

Excel2007

書式→保護でロックのチェックを外し、シートに保護をかけた状態で
そのロックを外したセルに対して
Cells(10, 3).NumberFormatLocal = "yyyy/mm/dd"を実行すると

RangeクラスのNumberFormatLocalプロパティを設定できません。

というエラーが出ますが、これの回避策は無いのでしょうか？
※保護を解除した状態で実行すると何の問題も起きないんですが

>680
おもしろいことをおっしゃる方ですね。

>>680
ヒント
Unprotect メソッド
Protect メソッド
Protect UserInterfaceOnly:=True
詳細はHELP参照

>>682
有難う。調べてみます

Excel２００３

散布図でグラフを作りたいんですけど、

C列の上から
･･････-1.1、-0.5、0、1、2、5、･･･3、2、1、0、-0.2、-0.7、-1・・・
と並んでて、

それをマクロで0を探し出し、
0から始まって、0で終わる範囲でグラフを表示させたいんですけど、　

何関数で作ればいいのでしょう？

何せ2000行くらい並ぶので探し出すのが大変なので
マクロで自動的に0を探し出し、ついでにグラフにしてもらうプログラムを作りたいので
よろしくお願いします。

for next と if then

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

0　を探すのが大変なら、条件付書式で　値が０ならセルを真っ赤で塗りつぶし　にでもしたら一目瞭然
もしくは
>685さんのヒントで1個目と2個目のゼロのセル位置を探す。グラフ作成はマクロの自動記録をやってみて。

>>685-686

さんきゅ。

ループでやってみたけど本にも似たような記載がなかったので
あれこれやってみたけど中々うまくいかなかったんです･･･。

まだマクロ初めて2日目なんで(汗

＞プログラマとは､自分でプログラムを組みコードを書く人の事なので､

ええ、言葉をもっと選ぶべきでした。ソースを教えてという訳でなく、
関数さえ教えていただければ後は自分でやっていこうと投稿しましたんで(汗

マクロの自動記録ですか！その手もありましたんね、
さっそく明日会社でやってみます。

ずいぶん助かりました。ありがとうございますm(_ _)m

連投すみません。

>>686
＞値が０ならセルを真っ赤で塗りつぶし
下書きではないのでこの手は使えないんです・・・
品質記録で残すデータシートに移すやり方なんですね。

あと書き込むボタン押した後に気づいたんですけど、

>1個目と2個目のゼロのセル位置を探す。グラフ作成はマクロの自動記録をやってみて。

このやり方は0がランダムに出てもできます？
機械からプロットされたデータなんでセル番地は決まってないんですね('_';A

しね
For Each c In Range("c:c")
if(c.value=0) then
//グラフ処理.

end if
Next

>688
０は必ず２個しか存在しないのかな？
そもそもの「０から始まって次の０までのデータでプロット」というのがむちゃくちゃな感じがする。
何かの計測器からのデータなんだろうが、０のデータが１個もない場合、０が続けてあった場合、
３個以上あった場合はどうすんだろ。

とりあえず
CELLS(縦位置、横位置).VALUE　で当該セル位置の値を取得できる。
縦位置は行そのもの、横位置はＡ列なら１、Ｂ列なら２、Ｃ列なら３という具合。

横位置は３、変数Ｘに初期値０を設定のうえ、
縦位置　を１(もしくは適当な値)から６５５３５(もしくは適当な値)までの　FOR〜NEXT　で回して
最初に（かつ、変数Ｘが０だったら）セルの値が０になった縦位置を変数Ｘに保存
次に（かつ、変数Ｘが２以上だったら）セルの値が０になった縦位置を変数Ｙに保存してFOR〜NEXTループを抜ける。

グラフ作成はマクロの自動記録で生成されたコードの　データ範囲の行位置の部分　を変数Ｘ、変数Ｙで
置き換える。

>>689
しなないぜ！(･∀･)

すみません、ヒントをありがとうございますm(_ _)m

>>690
そうなんですよー必ず2つって訳ではないんですぅ､､､

会社ついてよっしゃーやるぞー(ﾜﾟｰ
と、データ見たら０がいくつか出てそこから数字が上がり始めるんですよ（汗
荷重をかけるデータなので必ずマイナスから始まり、０も必ずあるんですね。
うかつでした。
IF関数でいろいろやったけど、うまくいかず。。。


結構四苦八苦したけど何とか光が見えてきそうです(^^)

データ持ち帰ることが出来ないのでまた明日挑戦になりますが('_';A

ともかく、多大なるアドバイス本当にありがとうございます。

>691
実際になにか散布図グラフを見たことありますか？
描画範囲の中に点を表すためには、縦軸・横軸の数字が必要です。
これまでのやりとりでは、数字はＣ列にあるだけ。もうひとつのパラメータはないんですか？
「荷重」云々とあるので、荷重データとそれに伴う何かの計測値の２種類の数字データがあるはず。
本当にデータの一部分（最初の０から次の０まで）だけでグラフを作っていいんですか？

０以下から正の値になるセルを探す
正の値から０以下の値になるセルを探す
あとは>>690さんのやりかたでＯＫっしょ

もしくはグラフのプロット範囲の下限を０にするんじゃいかんのかい？
見た目は０以下の数値はカットされるよ
−＋−＋−＋と繰り返すデータなら複数まとめてプロットされるけど

エクセル2007だと自分で作ったツールバー(アドインタブのユーザー設定のツールバー)で、
操作するのにわざわざリボンのタブを切り替えないといけないんですが、これを改善する方法ってあるのでしょうか？
どなたかご教授下さい。

>>692
さすが、するどいなぁ(^^;A

もちろんもう一つのパラメータありますよ(^^)

自力で何とかすることを前提のスレだとゆーことを念頭に置いてましたんで
あえて１つの列でコメントしてたんですね('_';A

>>693
あ、確かそういう機能もありましたね
普通の操作で軸の設定できますね、盲点でした('_';A

でもグラフがＮ型になるようにしますんでうまくいき､､､そうですねｗ
試してみます(^^)

Sheet1が Protect userInterfaceOnly := Trueの状態で

Sheet1に、
Sub ソートのテスト()
Range("A1").CurrentRegion.Sort Key1:=Range("B1")
End Sub

'Sheet2に、
Sub test()
ComboBox1.Clear
ComboBox1.AddItem "ソートする"
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.Value = "ソートする" Then
Sheet1.ソートのテスト
End If
End Sub

で、コンボボックスでソートするを選んだらエラーになる（Excel2003）。
コンボボックスからの変更は、
userInterfaceからの変更と見なされるの？

すみません、Sub test()は余計でした。

>>696
厳しいようですが 本当に解決したいのなら
"エラーになる"だけでなく
どのようなメッセージが出たかぐらいは書いて下さい!!

テストしたけど当方の環境下では、
(メインＰＣは他で使用中の為、かなり古いノートＰＣ(Excel97)でテストした)

プロテクトしていない状態でもエラーになるようですが
プロテクトしていない状態でテストしましたか？

>>689の
For Each c In Range("c:c")

が顔文字に見える

それが何か問題でも？

誰が問題があるなんて言った

>>701
誰もあると言ってないから、あるかどうか聞いてるんじゃないのかな

まてまて
ないかどうかを聞いていないのだから一方的にあるだけに言及するのは危険じゃあないか

（´ω｀）

ないあるよ

あるあ・・・ねえよ、ね・・いやあるあるｗｗ

にほんごにふじゆうなかたですか？

access vbaですが、質問スレがなかったので、失礼いたします。。

親フォームの中に子フォームがあり、
検索ワード(コンボボックスの中の値)を入力し、検索ボタンを押すと、
子フォームの対象フィールドの値と検索ワードが同じレコードのみを抽出するvbaを組んでいます。

Private Sub btn_検索_Click()
Dim stSQL As String
stSQL = "SELECT * FROM [クエリ名] WHERE [フィールド名] = '[コンボボックス名]'"
Forms!親フォーム!サブフォーム.Form.RecordSource = stSQL
End Sub

実行すると、エラーこそ起こらないものの、1件も表示されません。
構文としてはsqlに不備があるのかな、と思うのですが、いかがでしょうか・・

どうか、よろしくお願いいたします。

失礼されても答えようが無いわ

わすれた

>>708
Access VBA全くやった事無いんで
全く的はずれかもしれないけれど　気になった点を

stSQL = "SELECT * FROM [クエリ名] WHERE [フィールド名] = '[コンボボックス名]'"
をSQL文だけにすると

SELECT * FROM [クエリ名] WHERE [フィールド名] = '[コンボボックス名]'
ってことで

= '[コンボボックス名]'
ってなっているのって正しい構文なの？　例えばコンボボックス名が ComboBox1なら
= 'ComboBox1'
ってことでしょ？ なんか 対象フィールドから ComboBox1というワードを検索している
ようにも思えるのですが

鋭いな

該当テーブルに「[コンボボックス名]」っていうデータを入れて抽出されるならそういうことなんだろうな

FROM [クエリ名]はFROM [テーブル]の希ガス

[フィールド名] = '[コンボボックス名]'は
[フィールド名] = [コンボボックス名]が正しかったりして

データソースはクエリも可能だったはずだはず

>>708
上で指摘されているが、
stSQL = "SELECT * FROM [クエリ名] WHERE [フィールド名] = '[コンボボックス名]'"
これは
stSQL = "SELECT * FROM [クエリ名] WHERE [フィールド名] = '" & Me!コンボボックス名.Value & "'"
こうしなければ求める結果にはならないだろうな。

あとは、サブフォームにSourceObjectが指定されているということはない？
そうであれば、サブフォームの元となるクエリのSQLをDAOで書き換えた後に、
With Me!Forms!親フォーム!サブフォーム.Form
　　.SourceObject=.SourceObject
End With
こんな感じでセットし直す必要があったはず。

手元にAccessないからうろ覚え

まあスレチ

Excel VBAを習得したいのですが、一般的に何年くらいかかりますか？

目的は、Excelで株の自動売買システムを作ることです。


環境；WindowsXP、Excel2007

ググレばひっかかるよ。
素人でもすぐできんじゃない？

>>717
その手の参考書は最近いろいろ出てきている

株の自動売買システムを構築するのに、わざわざExcel VBAを選ぶところが変態。

> Excel VBAを習得したいのですが、一般的に何年くらいかかりますか？
それは人それぞれの頭の出来次第だし、頭の出来が一般的以下な君には、
「一般的に何年かかるか」の統計値が有ったとしても何の参考にもならないだろ

> 目的は、Excelで株の自動売買システムを作ることです。
Excelで作るべき物ではないな

そのものずばりの参考書が出てる　買った？

おまえらマルチに親切だなｗ

はわわ〜

他の板で、ＶＢＡを使用すると日々の業務が驚くほど効率的になる。といものを見て、興味がわいた者です。

しかしながら、自分の行う業務がＶＢＡで行えるのか全くわからないので、
こうしたものも行えるのであれば、学びたいと思っています。

いつもの流れ。
エクセルデータをもとに、単純平均・加重平均を求めるのが基本。
ただしその際、
１．すべての項目に回答のないものについては集計対象としないため、除外する。
２．オートフィルタを使い、共通の分類にわけ、同じ作業をする。
３．２の作業をする際はシートを何枚も増やす。
４．上記で求めた値を別のエクセルファイルの様式に落とし込む。

といったものです。
わかりにくくて恐縮なのですが、このような業務はＶＢＡで対応することができるでしょうか？

>>725
vbaはおまえさんができないことも出来るよ　ﾜﾗ

>>725
作業の全貌がよくわからないけど、たぶんできる。
VBAのプログラムを作るのにちょっと手間がかかるだろうけど、
完成すればほぼ一瞬で集計からファイル出力までが終わるようになる。

>>725

VBAで簡単に出来る。

但し、それが実現するかどうかは>>725の努力次第 w

>>725
君のやりたいことはクロス集計だろ？
ピボットテーブル覚えたほうがいいよ。
試しにやってみたけど、
テスト用データの準備に1分ほど、平均求めるのは10秒くらいで完成した。

まずは自分がやっている作業をマクロに記録してみよう

次に服を脱ぎます

>>731
無駄な操作多すぎて反省してしまう・・・

>>718-722
お答えありがとうございます。
参考になりました。

参考書は今日ポチりました。

>>734
エクセル自動売買の本だけど
最終的に完全自動売買（ＰＣつけっぱで金が増えるｗ）まで解説してあると思いきや
実はオフラインのシステム（終値でシグナル出すだけ）を作るトコまでしか解説してなかったりすることがあるので注意
少なくともパンローリングの森田の本はそうだったぜ
なんか騙された感じだった

オレはしゃーないからネットで調べてシコシコ作った

>>735
ネット通販が主流になりつつあってもやっぱり立ち読みで内容確認って大事だよな

>>717
100時間もやれば、VBAの基礎はわかると思う。

Excel2007

関数の処理内でerrorが発生したかどうか、下のようにErr.Numberプロパティの値を関数の戻り値にしようと思ったのですが、

Function testd(Byval 〜) As ????

testd = Err.Number
End Function

ヘルプを見ても

エラーを指定する数値を設定します。値の取得も可能です。Number プロパティは、
Err オブジェクトの既定プロパティです。値の取得のみ可能です。

とあるだけで、その型は何なのか判りません。longで返せば良いのか、integerなの
かはたまた他の型なのか教えてください。

>>738

困った時はﾊﾞﾘｱﾝﾄで宣言。
んでﾌﾟﾚｰｸして型を見ればよい。

>>739
レス有難うです
それでちょっとやってみます。

そんな面倒なコトしなくても、オブジェクトブラウザで定義見れば一目瞭然だろ？

Err.NumberのNumberにカーソル当てて、Shift+F2、もしくは右クリックして「定義」

Property Number As Long

>>741
738です。ありがとう！

外部の1000行ほどあるCSVデータを読み込んで、ルールに沿ってそれぞれのセルにデータを入れたいです
CSVデータは　"月","日","お店コード","分類コード","伝票番号","金額"の順にならんでおり、月と日以外は1バイトごとに右詰めでセルに格納したいです
またそれを25行ずつで2列でデータを反映していき、50行を超えたものに関しては新しいシートで同じ様式で繰り返したいのですが、どうやったらできますか？
昨日アマゾンでVBAの本をポチったばっかりで丸投げな質問ですがどうかよろしくお願いします

ここへアップロードした形式で展開したいです、パスはvbaです
http://www1.axfc.net/uploader/Sc/so/34756

>>743

>>1★5

ですよね、すみません
外部のファイルを変数に読み込むにはどうしたらよいですか？

>>745

教えるだけ無駄。

>>717
株やってるエクセラーは基地外が多い。
顧客にどのような対応してるか心配なやつがいたな。

>>746
何でですか？

>>743
ファイルをオープンして、リードして、変数に代入すればよい

>>749
phpとperlとbashは使えるのでそれはわかるんですよ
具体的に関数名を教えてもらえるとありがたいです、もしくは理解しやすいウェブページか関数が網羅された本などあったら教えてもらえると助かる
ここにいるプロの方とは違って独学なんで当たり前の事がわかってないので申し訳ない

>>750
http://www.bing.com

へ、へるぷ・・・

>>743
　ttp://www.asahi-net.or.jp/~ef2o-inue/top01.html
　
　俺はここで大体理解できたぞ

FileSearchオブジェクト使ってファイルの有無確認とかしてたんだが、
2007から使えなくなってエラーで落ちてしまうらしい。

代わりにDir関数を使おうと思うけど、これなら2007でも平気？
確認できる環境がなくて…。

おｋ

.ReadAll と　split 使え

FSOで再帰検索

>>753
ありがとうございます、配列や変数の扱いはなんとなくつかめますね

実務でやりたいことが説明されているページや本がなかなかみつからないので
いまいちなんとなくわかるけど、やりたいことが全然できずに前に進まない感じです

>>751
意味不

> 実務でやりたいことが説明されているページや本がなかなかみつからない
バカかおまえw
そんなものがピンポイントであるわけないだろw

サイトや書籍は「実務でやりたいこと」を実現するために必要な機能を個々に説明しているもので
「実務でやりたいこと」はそれらを組み合わせて自分で実現するものだ

そもそも、君がやろうとしている程度の低レベルな処理なら、付属ヘルプだけで十二分だろ
必要なのはファイル内容の取得と文字列操作およびセルへの入力くらいで、
あとはそれらを簡単な条件分岐とループで制御すりゃ良いだけの話だし

>>759
そんなつまらん事をわざわざ安価つけて講釈垂れるなよ

まぁphp,perl,bashに関しては俺も上から目線でそう言いたくなる事もあるが
実際にそんな物言いじゃぁ糞の役にもたたん、管理能力やコーチング能力の欠片も見当たらんわな
>あとはそれらを簡単な条件分岐とループで制御すりゃ良いだけの話だし
これは他の言語扱える時点で理解してると言ってるだろ

>必要なのはファイル内容の取得と文字列操作およびセルへの入力くらいで
これがやりたいと具体的に言ってんだから糞みたいなレスつけるまえに少しはためになるレスつけろや、でなきゃレスすんな

(;ﾟдﾟ)ｧ

760はなりすましだろうが、743はコーチングに値しないからなあ。

ｸﾏｰ

php,perl,bashでの能力も大したことなさそうｗ

私の話で盛り上がってるようですね。
さっき本が届いたので独習しますわ。

>>764
まぁなんとでも言って笑ってください。
本業とは別でサイトを複数運営してましてしょぼいプログラムですが月の収入で40万〜50万（経費抜き）程度しか稼げてません。
ここにいるプロの方々には全然及びませんが自分なりに生活には困らないので満足しています。

見苦しい･･･

ってかこんな問題に本がいるの？？？

PHPでCSVに展開して、Excelに読み込んでコピペで終了。

> >必要なのはファイル内容の取得と文字列操作およびセルへの入力くらいで
> これがやりたいと具体的に言ってんだから糞みたいなレスつけるまえに少しはためになるレスつけろや

つまり、
・ファイル内容の取得
・文字列操作(関数)
・セルへの入力
程度のことが、ヘルプで検索できないレベルの頭ってことか？

いやはや、こりゃまいったねw

よくわかんないけどかわいそう


どっちも

スルー耐性なさすぎて笑えるわ
まったく意味不明な回答よこすやつとヘルプで足りるとか言いはるヘルプ厨しかいねーのなｗ

>>765
ここの回答者は質問者にえらそうなんだ。無知のくせにしてな。
ところでCSV読みたいんだっけ？
外部データの取り込みすれば、VBA使わなくても読めるよ。

必死だな