Excel VBA 質問スレ Part23

1 ：12/01/29

01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/
17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/
18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/
19 http://hibari.2ch.net/test/read.cgi/tech/1305754555/
20 http://hibari.2ch.net/test/read.cgi/tech/1312435844/
21 http://hibari.2ch.net/test/read.cgi/tech/1316931607/
前スレ：
Excel VBA 質問スレ Part22
http://toro.2ch.net/test/read.cgi/tech/1322400978/

2 ：12/01/29

ExcelのVBAに関する質問スレです
★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）

3 ：12/01/29

>>1 乙

4 ：12/01/29

>>1乙
それにしても前スレ最後の方ときたら次スレ案内どころか、くだらない喧嘩でスレを埋め尽くすんだから、
やっぱVBAは厨房言語と言われても仕方が無いほどの民度の低さを実感する

5 ：12/01/29

なんで終わった話蒸し返すかなぁ。
そんなに悔しかったのか？

6 ：12/01/29

>>1乙
>>4
何で蒸し返すかなぁ･･･
そういうのが呼び水になるんだって気付けよ

7 ：12/01/29

>>6
お前も同罪

8 ：12/01/29

>>7
それはむしろ>>5だろ

9 ：12/01/29

ID付けない辺りが民度の低さだろ

10 ：12/01/29

vba初心者です。
フォームに名前、番号、部署を入力して、登録ボタンをクリック。
A2に値が入っていない場合はその列に項目を追加。
もし入っているならば、次の行へ移動してもう一度条件分岐開始。
というプログラムをつくろうと思ったのですがうまくいきません。
どこがおかしいのでしょうか。初歩的な内容ですがヒントください。
Private Sub 登録_Click()
If TextBox1 = "" Then
MsgBox ("名前が記入されてない")
ElseIf TextBox2 = "" Then
MsgBox ("番号が記入されてない")
ElseIf TextBox3 = "" Then
MsgBox ("部署が記入されてない")
Else

Cells(2, 1).Select

Do While ActiveCell Like ""
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value

Me.Hide
End If

11 ：12/01/29

>>8
>>5

12 ：12/01/29

>>10
> Do While ActiveCell Like ""
ここ
「もし入っているならば」になってない

13 ：12/01/29

>>10
いろいろ突っ込み所満載だが
とりあえずWhileをUntilにすれば問題は解決すると思う

14 ：12/01/29

>>11
>>5

15 ：12/01/29

相当悔しかったらしい。(w

16 ：12/01/29

>>12
>>13
わかりました！
ありがとうです！

17 ：12/01/29

>>4-8、>>11、>>14-15
ほんともういい加減にしてくれない?
大概うざいんですけど。

18 ：12/01/29

俺は
Do While 〜、Do Until 〜、Loop While 〜、Loop Until 〜
は一切使わない
必ず
Do
　　If 〜 Then Exit Do
Loop
を使う
While & Untilで出来ることは全て出来る
While & Untilには出来ないことも出来る
わかりやすい
修正しやすい
条件内容によっては速い
良いことずくめ

19 ：12/01/29

いきなりなんだ
好きにしたらええがな

20 ：12/01/29

>条件内容によっては速い
これ詳しく教えてください。
どういうときに速くできるのですか?

21 ：12/01/29

いきなりじゃないじゃん。
つい数レス前の質問で間違いがあった部分の話題じゃん。
もしかして前スレからの下劣なケンカにご執心で
それ以外の質問回答とか目に入ってないのか？

22 ：12/01/29

>>21
いや、質問の内容と一切関係ない話だろ
コーディングスタイルの話なんか不毛だし荒れるだけ

23 ：12/01/29

>>22
すいません、>>18さんのレスはVBA初心者としては関心ある話題なのですが･･･

24 ：12/01/29

>>18
同じく初心者としては興味ある
DOとLOOPの2つと
それにwhileかuntilのどちらかの3つがセットなのかと思ったんだけど違うのか

25 ：12/01/29

相変わらずスレチの話題で伸びてるな

26 ：12/01/29

>>24さん
Do Loop　だけで成立しますよ。
ただ、そのままだと無限ループなので何らかの脱出条件は必要ですから
通常はおっしゃるとおりにUntilやWhileを組み合わせる訳ですよね。
で、>>18さんはIf文で脱出条件を設定することを推奨されていて、
私はその手法自体は知ってたのですが、
そのほうが速くなる状況というのが分からないのでぜひ知りたいと思いました。

27 ：12/01/29

無理やりWhile/Untilの条件をでっち上げる位なら、
Exit Doするコードを書くほうが良い、ってことじゃね？
機械的に適用するのは頭が固すぎると思うが。

28 ：12/01/29

>>10のコードを
DO　ifで書きなおして無事動きました。
確かにこっちのほうがわかりやすい気がします！
ありがとうです！

29 ：12/01/29

俺もDo Until の中に必ず If Then Exit Do End Ifを付けてる
For Next なら Exit For だな
明示しておけば（自分にとって）判りやすいという理由だけど

30 ：12/01/29

>>27
それって速度は変わらなくないですか?
自分でちょっと考えたのは脱出条件でAndを使うときに
UntilやWhileだとAndしかだめだけどIf文だとIfのネストで書けるから
(本当にほんのちょっとだけ)速く出来るかも、ということです。

31 ：12/01/29

　　　　　　　　ゴガギーン
　　　　　　　　　　　　　ドッカン
　　　　　　　　　ｍ　　　　ドッカン
　　＝＝＝＝＝）　）)　　　　　　　　　☆
　　　　　 ∧_∧ |　|　　　　　　　　　／　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　　　（　　　）|　|＿＿＿＿＿　　　　∧＿∧　　　＜　　おらっ！出てこい>>18
　　　　　「　⌒￣　|　　　|　　　　||　　　（´Д｀　）　　　　＼＿＿＿＿＿＿＿＿＿＿＿
　　　　　|　　　/ ￣　　　|　　　　|/　 　 「 　　　＼
　　　　　|　　　|　|　　　　|　　　　||　　　 ||　　 /＼＼
　　　　　|　　　 | |　　　　|　　　　|　　へ//|　　|　　| |
　　　　　|　　　 | | 　　　ﾛ|ﾛ　　　|／,へ ＼|　　|　 | |
　　　　　|　∧　| |　　　　|　　　　|／　　＼　　/　（　）
　　　　　|　|　|　|〈　　　　|　　　　|　　　　　|　|
　　　　 / /　/ / |　　/ 　|　　　 〈|　　　　　|　|
　　　 / /　 / /　|　　　　|　　　　||　　　　　 |　|
　　　/ /　/ /　=-----=--------　　　　 |　|

32 ：12/01/29

>>31
成りすましは勘弁してください
私は31じゃないです。

33 ：12/01/29

>>29
>明示しておけば（自分にとって）判りやすいという理由だけど
意味がわからん。
Do While 〜 Loop も Do ... Loop Until 〜 も、「〜」で充分明示的だと思うが。
まあ、ループ中で読み込みとかの処理をして、EOF ならぬけて、そうでなければ
読み込んだデータの処理をして最初に戻ると言うような処理は、それなりにあるから
Do: ... : If 〜 Then Exit Do: ... : Loop も使うけど、それに限定するのは >>27 の
言うようにちょっと頭固すぎと思う。

34 ：12/01/29

冗長に書いた方がわかりやすいと感じる人は結構いるっぽいね。
でも>>29は同じ条件判断を2箇所に書く（2回やる）ってことでしょ？　それはないわー。

35 ：12/01/29

>>10
ActiveSheet.ShowDataForm
マジオススメ

36 ：12/01/29

>>34
>でも>>29は同じ条件判断を2箇所に書く（2回やる）ってことでしょ？　それはないわー。
さすがにそれはないと思うが...、修正面倒だし、
そもそも他人が見たときヘタすると意図汲み取れないと思う。

37 ：12/01/30

>>35
使ってみたのですが、よく意味がわかりません。
起動時にフォーム呼び出しっぽいのですが、何もおこらないのですが
どういう効果があるのですか？

38 ：12/01/30

>>37
聞く前にググれ

39 ：12/01/31

Test

40 ：12/01/31

2003/2007で質問です。
.OnAction で文字列を使うときにはどうすれば良いのでしょうか？
例えば、キー "foo" を持つ "dic" というディクショナリを引数とする関数を
.OnAction に指定したい場合、
Sub Menu()
　Dim CB
　Set CB = Application.CommandBars("Cell").Controls.Add()
　With CB
　　.Caption = "テスト"
　　.OnAction = "'testfunc dic(""foo"")'"
　End With
End Sub
のようにしてもうまく動きません。
仕方が無いので、
　　val = dic("foo")
　　.OnAction = "'testfunc " & val & "'"
のように対処しています。
よろしくお願いします。

41 ：12/02/01

OnActionの実行されるスコープでは、
dicが見えていないって事なんじゃないか？

42 ：12/02/01

OnActionに指定するのはマクロ名
式は評価しないんだろ

43 ：12/02/01

OnActionは罠が多いよな…

44 ：12/02/01

>>40
>　　val = dic("foo")
>　　.OnAction = "'testfunc " & val & "'"
これで対処できるって事は
.OnAction = "'testfunc " & dic("foo") & "'"
で済む話のような気もするが…まさかな

45 ：12/02/01

&を使わずに書きたい、ってことじゃない？

46 ：12/02/01

>>42
評価されるよ

47 ：12/02/02

式を評価した結果の文字列をOnActionに設定してるだけで、
OnActionに式が設定されて評価されてるわけではないと思うが

48 ：12/02/02

バカ多すぎw
このレベルのことで意見割れるとかあり得ねぇw

49 ：12/02/02

詳細な仕様を知っている>>48がいると聞いて

50 ：12/02/02

>>49
いや所詮草ガキだから

51 ：12/02/02

草=複数の連続する"w"
1個の場合、複数でも連続でもないから、実は草ではない

52 ：12/02/02

>>51
さすが小学生だな
目のつけどころが違う

53 ：12/02/02

>>51
それは単草といって草の一種なのよ

54 ：12/02/02

マクロから別名保存のダイアログを出して、ユーザーにブックを保存してもらおうとしているのですが、
ダイアログおｗ表示させた時に初めての保存ならマイドキュメント、２回目以降なら前回のフォルダーを
表示されるようにするにはどうすればいいでしょうか？
よろしく御願いします。

55 ：12/02/03

>>54
まず仕様をしっかり確定させないとプログラミングはできないぞ
初めてかどうかはどうやって判別するんだ？
前回のフォルダはどこにどうやって保存するんだ？
これが答えられない（わからない）ってなら、もうちょっと詳しく状況を書かんとなんとも言えん

56 ：12/02/03

>>54
初めての保存→直接Excelを起動しての作成
２回目以降→既存のBookを呼出し修正保存
意味はこれで合っている？
１年１組成績表フォルダの１月成績結果というBookを呼出して新規作成を選んだ時の保存先もやはりマイドキュメント？
或いは２月成績結果にBook名に流用変更して保存する場合は？

57 ：12/02/04

>>53
残念、ハズレ
というか、そもそも「単草」なんてないから
草=複数の連続する"w"
　　　数が複数と定義されているので、単数を表す接頭語を付けることは無い
芝="w"そのものであり数は関係ない
　　　数が定義されていないので、数を表す接頭語を付けることもある->単芝、複芝
「単草」ってのは君と同じく、単芝と草を混同した勘違い君が
思いつきで口にするだけで、定義としては存在していない

58 ：12/02/04

>>57
どっちでもええやん
言葉とはそういう勘違いから定着するもんだよ
正しい日本語は〜と言ってる学者連中はただの馬鹿だぞ
もう広まってる用法ってのは正しいものとしていかんと

59 ：12/02/04

>>57
そもそも「草」とか「芝」とかが定義されてるってどこで?
少なくとも非ネットの日常生活においてｗを草とか芝とか言わない訳だが。
単にネット上のコミュニティーで認知されてると「君個人が認識してる」だけでしょ。
だったら「単草」だっておｋじゃないの？
その辺の線引きが曖昧すぎだよ
ちなみに>>53ではありません。
草とか芝の定義とやらにも興味ないです

60 ：12/02/04

ネタ解説に釣られ杉wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

61 ：12/02/04

言い負かされるとネタで逃げる奴

62 ：12/02/04

かまうなよ
これは僕はレス乞食ですって自己紹介をしてるだけなんだからｗｗｗｗ

63 ：12/02/04

>>58
いい訳必死だな
あのさ、誤用と、新語や新たな言い回しを一緒くたにしてないか？
別に既存の日本語以外は使っちゃだめとは言わないけど、
間違いを内包する言葉までまとめて「定着すればそれは正しい」なんて言うのはただの馬鹿だぞ
wを芝と呼ぶのは良いが、wをエックスと呼ぶのは明らかな間違いだろ
>>59
> 「w」の文字が並ぶ様子が「雑草が生えているように見える」というところから、
　 　 　 　 　 　 ~~~~~~
> 「w」を多数並べて笑いを表現する行為を「草を生やす」と呼ぶ場合がある。
　 　 　 ~~~~~~~~~~~~~
> 草 - ネットスラングでｗｗｗｗｗｗｗのこと。
> 草：インターネットスラングのひとつ。（笑）の略であるｗを多数書き連ねることで蔑笑を表したもの。
　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 ~~~~~~~~~~~~~~~~~
どこを見ても、「並ぶ」「多数」「書き連ねる」と複数であることを説明し、例としても7連のものが上げられている
因みに上記は独断と偏見入り交じる個人サイトの記事ではなく、ウィキペやニコペなど大手の手がける辞典の記事ですよ

64 ：12/02/04

荒らすなら他へ行け、馬鹿

65 ：12/02/04

こういう話題しかレスできないんだろ。
スルーしとけ。

66 ：12/02/04

wikiが定義ってアホかと

67 ：12/02/04

広辞苑だって出版された当時のスラングを個人の独断で大量に収録してんのに
それは信頼してWikipediaをバカにする男の人って本質がわかってないってゆーか、頭悪いよね

68 ：12/02/04

反射的に wiki を馬鹿にする奴もどうかと思うが、
広辞苑が個人の判断で作られてるって、これまた
頭悪い以前のアホが来たな。

69 ：12/02/04

wikiをバカにしてるんじゃなくて、wikiがネットスラングの定義だって言ってるやつをバカにしてるんじゃないかな

70 ：12/02/04

まあ結論は出たみたいだから、もう終わりにしようぜ。

71 ：12/02/04

>>55-56
レス、ありがとうございます。
返事が遅くなってすみません。
ユーザーフォームに保存用のボタンを貼って、保存しようとしています。
保存を行った時に保存先フォルダーの記憶用変数を用意して、その変数が
空なら初めての保存、空白以外なら保存用ダイアログを表示した時にそのフォルダーが
表示したいという事でした。
変数に取り込めれば、フォームを閉じる際にiniファイル等に保存して次回以降は
フォルダー選択の手順を省けると思いました。
よろしく御願いします。

72 ：12/02/04

書き忘れました。
保存先記憶用変数が空の場合は、保存先ダイアログ表示時の
フォルダーはExcel任せでも良いです。
よろしくお願いします。

73 ：12/02/04

iniファイルへの書き込みや読み込みはAPI使うっての知ってますか？
まぁ単純にテキストファイルのオープンで読み込み書き込みでも出来なくはないだろうけど

74 ：12/02/04

>>72
で、何がわからないの？

75 ：12/02/04

>>71
chdir 前回保存先
名前を付けて保存ダイアログ表示
今回保存先を選択
非表示シートにcurdir（今回保存先）を書きみ保存
名前を付けて保存

76 ：12/02/04

複数のブックの一部を読み取っていくマクロを書いているのですが
非表示・バックグラウンドでブックを開くにはどうしたら良いのでしょう？
ググったりしていろいろ試してみたのですが、どうしても一瞬表示されてしまいます。　マクロは
Application.ScreenUpdating = False
Set _ActiveSheet = ActiveSheet
Set book = Workbooks.Open(PATH)
book.Windows(1).Visible = False
Call _ActiveSheet.Activate()
Application.ScreenUpdating = True
というようにしています。
また、ブックのオープンに時間がかかっているため、非同期でブックをオープンしてそれをキューに放り込んで行きたいのですが、
こういったことはどうやってやれば良いのでしょう？

77 ：12/02/04

>>71
ini ファイルじゃなくて、ブック自体に覚えさせることもできるよ。
Option Explicit
Const PropertyName As String = "SavedFolder"
Sub Macro1()
　Dim SavedFolderProperty As DocumentProperty
　Set SavedFolderProperty = Nothing
　Dim Index As Integer
　With ActiveWorkbook.CustomDocumentProperties
　　For Index = 1 To .Count
　　　If .Item(Index).Name = PropertyName Then
　　　　Set SavedFolderProperty = .Item(Index): Exit For
　　　End If
　　Next
　End With
　With Application.FileDialog(MsoFileDialogType.msoFileDialogSaveAs)
　　.FilterIndex = 2
　　If SavedFolderProperty Is Nothing Then
　　　.InitialFileName = ""
　　Else
　　　.InitialFileName = SavedFolderProperty.Value
　　End If
　　.Show
　　If SavedFolderProperty Is Nothing Then
　　　ActiveWorkbook.CustomDocumentProperties.Add PropertyName, False, MsoDocProperties.msoPropertyTypeString, .SelectedItems.Item(1)
　　Else
　　　SavedFolderProperty.Value = .SelectedItems.Item(1)
　　End If
　　.Execute
　End With
End Sub

78 ：12/02/05

>>76
> Application.ScreenUpdating = False
> Set _ActiveSheet = ActiveSheet
> Set book = Workbooks.Open(PATH)
> book.Windows(1).Visible = False
> Call _ActiveSheet.Activate()
ActiveWorkbook.Close
> Application.ScreenUpdating = True

79 ：12/02/05

エクセルの関数について質問です。
B1セルに10が入っていたらA1セルに100と返し、
　　〃　11か12、13のいずれかの数字が入っていたらA1セルに200と返し、
　　〃　14が入っていたらB1セルに300と返し、
　　〃が空欄もしくは、10.11.12.13.14以外の数字が入っていたら100と返す
数式を組みたいのですがIFとORを組み合わせてもうまくいきません。
どなたかご教授頂けますでしょうか。

80 ：12/02/05

それをVBAでやりたいってことかな？

81 ：12/02/05

＞80
いえ、違います。
エクセル上で上記の数式を完成させたいだけです。

82 ：12/02/05

>>81
だったら
Excel総合相談所 100
http://toro.2ch.net/test/read.cgi/bsoft/1325935411/l50

83 ：12/02/05

あ、スレ違いでしたね。
ちょっとこっちで質問してみます。

84 ：12/02/06

同一コードなのに、コードのキャッシュでもされてるのか、結果不定で「?」なときがあると思いますが、そんな時の対処方法はありますか？

85 ：12/02/06

構文エラーを起こす

86 ：12/02/06

>>84
プログラムとは…
自分が思った通りに動く物ではない
自分が書いたとおりに動くのである
つまり結果が自分の希望に反して不定になるのは書き方が悪い。はっきり言えば間違ってる
よく見直せ

87 ：12/02/06

Excel2003です
セルの内容でDBに更新を行う処理です
Set crs = New ADODB.Recordset
crs.CursorType = adOpenDynamic
crs.LockType = adLockOptimistic
crs.CursorLocation = adUseClient
crs.ActiveConnection = cn
'
sSQL = ""
sSQL = sSQL & "SELECT *"
sSQL = sSQL & " FROM WSEL"
sSQL = sSQL & " ORDER BY WSEL.Chusyutu"
crs.Source = sSQL
crs.Open
'
Do Until crs.EOF
　　：
　　DBの項目にセット処理
　　：
crs.Update　　　　　←エラー発生
crs.MoveNext
Loop
crs.Close
1/2

88 ：12/02/06

2/2
DBはMySQLをODBCで使用しています
Updateのところでエラーが発生します
実行時エラー '-2147217864 (80040e38)':
行が見つからなかっため、更新できません。列の値は最後に読み込まれた後で変更された可能性があります。
OpenしてからUpdateまでただ項目をセットしているだけでカーソルを移動させていません
項目のセット処理を削除するとエラーは出ません
ただの　○○=××　という処理でカーソルが移動するとは思えないのですがどんな問題があるのでしょうか？

89 ：12/02/06

ADOのUpdateコマンドではなくSQLのupdate文を
その例で言えば
crs.Execute updateのsql文
という書き方でいつもExcelからmysqlに対してやってる
そのやり方ではどうなの？
まぁ続けるとスレ違いと騒ぎ出す野郎が多そうだから
mougのDB板で聞いてみたら？

90 ：12/02/06

>>89
レスどうもです
>crs.Execute updateのsql文
この方法でやってみます
もし上手くいかなかったらDB板で聞くことにします
ありがとうです

91 ：12/02/07

>>85
なるほど。ありがとうございます。
>>86
ワロタ

92 ：12/02/07

それ主キーがないとかで行を特定できてないだけじゃないのか

93 ：12/02/07

質問です。
「初項（セル B3 の値）と公差（セル C3 の値）を元にして， セル範囲 B5:G5 に等差数列の値を入力する
マクロ「等差数列」を定義せよ」
という課題があるのですが、何から手を付ければいいのか分かりません。
よろしければご教授お願いします。

94 ：12/02/07

公式にぶちこめ

95 ：12/02/07

>>93
見せて
Option Explicit
Private Sub マクロ等差数列()
　　Dim 初項 As Double
　　Let 初項 = Application.ThisWorkbook.ActiveSheet.Range("B3").Cells(1, 1).Value
　　Dim 公差 As Double
　　Let 公差 = Application.ThisWorkbook.ActiveSheet.Range("C3").Cells(1, 1).Value
　　Dim 数列1番目 As Double
　　Let 数列1番目 = 初項
　　Application.ThisWorkbook.ActiveSheet.Range("B5").Cells(1, 1).Value = 数列1番目
　　Dim 数列2番目 As Double
　　Let 数列2番目 = 数列1番目 + 公差
　　Application.ThisWorkbook.ActiveSheet.Range("C5").Cells(1, 1).Value = 数列2番目
　　Dim 数列3番目 As Double
　　Let 数列3番目 = 数列2番目 + 公差
　　Application.ThisWorkbook.ActiveSheet.Range("D5").Cells(1, 1).Value = 数列3番目
　　Dim 数列4番目 As Double
　　Let 数列4番目 = 数列3番目 + 公差
　　Application.ThisWorkbook.ActiveSheet.Range("E5").Cells(1, 1).Value = 数列4番目
　　Dim 数列5番目 As Double
　　Let 数列5番目 = 数列4番目 + 公差
　　Application.ThisWorkbook.ActiveSheet.Range("F5").Cells(1, 1).Value = 数列5番目
　　Dim 数列6番目 As Double
　　Let 数列6番目 = 数列5番目 + 公差
　　Application.ThisWorkbook.ActiveSheet.Range("G5").Cells(1, 1).Value = 数列6番目
End Sub

96 ：12/02/07

すみません、ワードのVBAについてはどこか質問スレってありませんでしょうか？

97 ：12/02/07

>>96
専門スレはないのでここで聞いてみる
Word(ワード)総合相談所 Part21
http://toro.2ch.net/test/read.cgi/bsoft/1319313721/

98 ：12/02/07

ない
場違い承知・まともな回答返ってこない前提でここかパワポVBAスレッドで聞いてアレンジするか
ググって見つかる掲示板利用するしか

99 ：12/02/07

(*ﾉﾉ）ｲﾔﾝ

100read 1read

1read 100read

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

「Cでプログラミングするには人生は短すぎる」か？ (310)
日本語プログラミング言語『なでしこ』スレ5 (736)
FORTRAN �W (954)
【モダン推奨】Perlについての質問箱 50箱目 (162)
Pythonについて（アンチ専用） (781)
日下部陽一著 作ってわかるCプログラミング(第6版) (524)
--log9.info------------------
私立医学部医学科karte:190 (558)
高知大学医学部医学科12 (142)
【法文教育理】愛媛大学Part33【医工農SSC】 (736)
【合格発表】徳島大学part21【9時から】 (300)
九州大学医学部その２ (942)
【常に気力と】神戸大学海事科学部9【体力を】 (981)
【医薬看】名古屋市立大学 part21【人経芸】 (572)
熊本大学Part20 (338)
【青山】青山学院大学part43【相模原】 (503)
北海道大学医学部医学科#2 (712)
【福大】福島大学Part7 (823)
【血清】北里大学【相模大野】 (616)
東京医科歯科大学 part18 (438)
埼玉大学Part70 (379)
【東大】東京大学 文科総合part57【文系】 (1001)
【つるぶんぶん】 都留文科大学 40 【かだいがく】 (570)
--log55.com------------------
退団3年以内のOGスレッド★194
【ズコー】歌が下手なジェンヌ 2１【ボエー】
ジェンヌの男性関係 Part.4
☆★★星組スレッド見参！★★★PART353
雪組について語りましょ＊Part313
宝塚最新情報 part1619
宝塚 娘役について語るスレッド 239 http://lavender.2ch.net/test/read.cgi/siki/1536053733/
心の闇スレッド３６６