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/
★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）
それにしても前スレ最後の方ときたら次スレ案内どころか、くだらない喧嘩でスレを埋め尽くすんだから、
やっぱVBAは厨房言語と言われても仕方が無いほどの民度の低さを実感する
そんなに悔しかったのか？
>>4
何で蒸し返すかなぁ･･･
そういうのが呼び水になるんだって気付けよ
お前も同罪
それはむしろ>>5だろ
フォームに名前、番号、部署を入力して、登録ボタンをクリック。
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
>>5
> Do While ActiveCell Like ""
ここ
「もし入っているならば」になってない
いろいろ突っ込み所満載だが
とりあえずWhileをUntilにすれば問題は解決すると思う
>>5
>>13
わかりました！
ありがとうです！
ほんともういい加減にしてくれない?
大概うざいんですけど。
Do While 〜、Do Until 〜、Loop While 〜、Loop Until 〜
は一切使わない
必ず
Do
If 〜 Then Exit Do
Loop
を使う
While & Untilで出来ることは全て出来る
While & Untilには出来ないことも出来る
わかりやすい
修正しやすい
条件内容によっては速い
良いことずくめ
好きにしたらええがな
これ詳しく教えてください。
どういうときに速くできるのですか?
つい数レス前の質問で間違いがあった部分の話題じゃん。
もしかして前スレからの下劣なケンカにご執心で
それ以外の質問回答とか目に入ってないのか？
いや、質問の内容と一切関係ない話だろ
コーディングスタイルの話なんか不毛だし荒れるだけ
すいません、>>18さんのレスはVBA初心者としては関心ある話題なのですが･･･
同じく初心者としては興味ある
DOとLOOPの2つと
それにwhileかuntilのどちらかの3つがセットなのかと思ったんだけど違うのか
Do Loop だけで成立しますよ。
ただ、そのままだと無限ループなので何らかの脱出条件は必要ですから
通常はおっしゃるとおりにUntilやWhileを組み合わせる訳ですよね。
で、>>18さんはIf文で脱出条件を設定することを推奨されていて、
私はその手法自体は知ってたのですが、
そのほうが速くなる状況というのが分からないのでぜひ知りたいと思いました。
Exit Doするコードを書くほうが良い、ってことじゃね？
機械的に適用するのは頭が固すぎると思うが。
DO ifで書きなおして無事動きました。
確かにこっちのほうがわかりやすい気がします！
ありがとうです！
For Next なら Exit For だな
明示しておけば（自分にとって）判りやすいという理由だけど
それって速度は変わらなくないですか?
自分でちょっと考えたのは脱出条件でAndを使うときに
UntilやWhileだとAndしかだめだけどIf文だとIfのネストで書けるから
(本当にほんのちょっとだけ)速く出来るかも、ということです。
ドッカン
ｍ ドッカン
＝＝＝＝＝） ）) ☆
∧_∧ | | ／ ／￣￣￣￣￣￣￣￣￣￣￣
（ ）| |＿＿＿＿＿ ∧＿∧ ＜ おらっ！出てこい>>18
「 ⌒￣ | | || （´Д｀ ） ＼＿＿＿＿＿＿＿＿＿＿＿
| / ￣ | |/ 「 ＼
| | | | || || /＼＼
| | | | | へ//| | | |
| | | ﾛ|ﾛ |／,へ ＼| | | |
| ∧ | | | |／ ＼ / （ ）
| | | |〈 | | | |
/ / / / | / | 〈| | |
/ / / / | | || | |
/ / / / =-----=-------- | |
成りすましは勘弁してください
私は31じゃないです。
>明示しておけば（自分にとって）判りやすいという理由だけど
意味がわからん。
Do While 〜 Loop も Do ... Loop Until 〜 も、「〜」で充分明示的だと思うが。
まあ、ループ中で読み込みとかの処理をして、EOF ならぬけて、そうでなければ
読み込んだデータの処理をして最初に戻ると言うような処理は、それなりにあるから
Do: ... : If 〜 Then Exit Do: ... : Loop も使うけど、それに限定するのは >>27 の
言うようにちょっと頭固すぎと思う。
でも>>29は同じ条件判断を2箇所に書く（2回やる）ってことでしょ？ それはないわー。
ActiveSheet.ShowDataForm
マジオススメ
>でも>>29は同じ条件判断を2箇所に書く（2回やる）ってことでしょ？ それはないわー。
さすがにそれはないと思うが...、修正面倒だし、
そもそも他人が見たときヘタすると意図汲み取れないと思う。
使ってみたのですが、よく意味がわかりません。
起動時にフォーム呼び出しっぽいのですが、何もおこらないのですが
どういう効果があるのですか？
聞く前にググれ
.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 & "'"
のように対処しています。
よろしくお願いします。
dicが見えていないって事なんじゃないか？
式は評価しないんだろ
> val = dic("foo")
> .OnAction = "'testfunc " & val & "'"
これで対処できるって事は
.OnAction = "'testfunc " & dic("foo") & "'"
で済む話のような気もするが…まさかな
評価されるよ
OnActionに式が設定されて評価されてるわけではないと思うが
このレベルのことで意見割れるとかあり得ねぇw
いや所詮草ガキだから
1個の場合、複数でも連続でもないから、実は草ではない
さすが小学生だな
目のつけどころが違う
それは単草といって草の一種なのよ
ダイアログおｗ表示させた時に初めての保存ならマイドキュメント、２回目以降なら前回のフォルダーを
表示されるようにするにはどうすればいいでしょうか？
よろしく御願いします。
まず仕様をしっかり確定させないとプログラミングはできないぞ
初めてかどうかはどうやって判別するんだ？
前回のフォルダはどこにどうやって保存するんだ？
これが答えられない（わからない）ってなら、もうちょっと詳しく状況を書かんとなんとも言えん
初めての保存→直接Excelを起動しての作成
２回目以降→既存のBookを呼出し修正保存
意味はこれで合っている？
１年１組成績表フォルダの１月成績結果というBookを呼出して新規作成を選んだ時の保存先もやはりマイドキュメント？
或いは２月成績結果にBook名に流用変更して保存する場合は？
残念、ハズレ
というか、そもそも「単草」なんてないから
草=複数の連続する"w"
数が複数と定義されているので、単数を表す接頭語を付けることは無い
芝="w"そのものであり数は関係ない
数が定義されていないので、数を表す接頭語を付けることもある->単芝、複芝
「単草」ってのは君と同じく、単芝と草を混同した勘違い君が
思いつきで口にするだけで、定義としては存在していない
どっちでもええやん
言葉とはそういう勘違いから定着するもんだよ
正しい日本語は〜と言ってる学者連中はただの馬鹿だぞ
もう広まってる用法ってのは正しいものとしていかんと
そもそも「草」とか「芝」とかが定義されてるってどこで?
少なくとも非ネットの日常生活においてｗを草とか芝とか言わない訳だが。
単にネット上のコミュニティーで認知されてると「君個人が認識してる」だけでしょ。
だったら「単草」だっておｋじゃないの？
その辺の線引きが曖昧すぎだよ
ちなみに>>53ではありません。
草とか芝の定義とやらにも興味ないです
これは僕はレス乞食ですって自己紹介をしてるだけなんだからｗｗｗｗ
いい訳必死だな
あのさ、誤用と、新語や新たな言い回しを一緒くたにしてないか？
別に既存の日本語以外は使っちゃだめとは言わないけど、
間違いを内包する言葉までまとめて「定着すればそれは正しい」なんて言うのはただの馬鹿だぞ
wを芝と呼ぶのは良いが、wをエックスと呼ぶのは明らかな間違いだろ
>>59
> 「w」の文字が並ぶ様子が「雑草が生えているように見える」というところから、
~~~~~~
> 「w」を多数並べて笑いを表現する行為を「草を生やす」と呼ぶ場合がある。
~~~~~~~~~~~~~
> 草 - ネットスラングでｗｗｗｗｗｗｗのこと。
> 草：インターネットスラングのひとつ。（笑）の略であるｗを多数書き連ねることで蔑笑を表したもの。
~~~~~~~~~~~~~~~~~
どこを見ても、「並ぶ」「多数」「書き連ねる」と複数であることを説明し、例としても7連のものが上げられている
因みに上記は独断と偏見入り交じる個人サイトの記事ではなく、ウィキペやニコペなど大手の手がける辞典の記事ですよ
スルーしとけ。
それは信頼してWikipediaをバカにする男の人って本質がわかってないってゆーか、頭悪いよね
広辞苑が個人の判断で作られてるって、これまた
頭悪い以前のアホが来たな。
レス、ありがとうございます。
返事が遅くなってすみません。
ユーザーフォームに保存用のボタンを貼って、保存しようとしています。
保存を行った時に保存先フォルダーの記憶用変数を用意して、その変数が
空なら初めての保存、空白以外なら保存用ダイアログを表示した時にそのフォルダーが
表示したいという事でした。
変数に取り込めれば、フォームを閉じる際にiniファイル等に保存して次回以降は
フォルダー選択の手順を省けると思いました。
よろしく御願いします。
保存先記憶用変数が空の場合は、保存先ダイアログ表示時の
フォルダーはExcel任せでも良いです。
よろしくお願いします。
まぁ単純にテキストファイルのオープンで読み込み書き込みでも出来なくはないだろうけど
で、何がわからないの？
chdir 前回保存先
名前を付けて保存ダイアログ表示
今回保存先を選択
非表示シートにcurdir（今回保存先）を書きみ保存
名前を付けて保存
非表示・バックグラウンドでブックを開くにはどうしたら良いのでしょう？
ググったりしていろいろ試してみたのですが、どうしても一瞬表示されてしまいます。 マクロは
Application.ScreenUpdating = False
Set _ActiveSheet = ActiveSheet
Set book = Workbooks.Open(PATH)
book.Windows(1).Visible = False
Call _ActiveSheet.Activate()
Application.ScreenUpdating = True
というようにしています。
また、ブックのオープンに時間がかかっているため、非同期でブックをオープンしてそれをキューに放り込んで行きたいのですが、
こういったことはどうやってやれば良いのでしょう？
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
> Application.ScreenUpdating = False
> Set _ActiveSheet = ActiveSheet
> Set book = Workbooks.Open(PATH)
> book.Windows(1).Visible = False
> Call _ActiveSheet.Activate()
ActiveWorkbook.Close
> Application.ScreenUpdating = True
B1セルに10が入っていたらA1セルに100と返し、
〃 11か12、13のいずれかの数字が入っていたらA1セルに200と返し、
〃 14が入っていたらB1セルに300と返し、
〃が空欄もしくは、10.11.12.13.14以外の数字が入っていたら100と返す
数式を組みたいのですがIFとORを組み合わせてもうまくいきません。
どなたかご教授頂けますでしょうか。
いえ、違います。
エクセル上で上記の数式を完成させたいだけです。
だったら
Excel総合相談所 100
http://toro.2ch.net/test/read.cgi/bsoft/1325935411/l50
ちょっとこっちで質問してみます。
プログラムとは…
自分が思った通りに動く物ではない
自分が書いたとおりに動くのである
つまり結果が自分の希望に反して不定になるのは書き方が悪い。はっきり言えば間違ってる
よく見直せ
セルの内容で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
DBはMySQLをODBCで使用しています
Updateのところでエラーが発生します
実行時エラー '-2147217864 (80040e38)':
行が見つからなかっため、更新できません。列の値は最後に読み込まれた後で変更された可能性があります。
OpenしてからUpdateまでただ項目をセットしているだけでカーソルを移動させていません
項目のセット処理を削除するとエラーは出ません
ただの ○○=×× という処理でカーソルが移動するとは思えないのですがどんな問題があるのでしょうか？
その例で言えば
crs.Execute updateのsql文
という書き方でいつもExcelからmysqlに対してやってる
そのやり方ではどうなの？
まぁ続けるとスレ違いと騒ぎ出す野郎が多そうだから
mougのDB板で聞いてみたら？
レスどうもです
>crs.Execute updateのsql文
この方法でやってみます
もし上手くいかなかったらDB板で聞くことにします
ありがとうです
なるほど。ありがとうございます。
>>86
ワロタ
「初項（セル B3 の値）と公差（セル C3 の値）を元にして， セル範囲 B5:G5 に等差数列の値を入力する
マクロ「等差数列」を定義せよ」
という課題があるのですが、何から手を付ければいいのか分かりません。
よろしければご教授お願いします。
見せて
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
専門スレはないのでここで聞いてみる
Word(ワード)総合相談所 Part21
http://toro.2ch.net/test/read.cgi/bsoft/1319313721/
場違い承知・まともな回答返ってこない前提でここかパワポVBAスレッドで聞いてアレンジするか
ググって見つかる掲示板利用するしか
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
最近の若者はUNIX/LINUXを使えなさ過ぎる (375)
NetBeans Part6 (694)
iモード携帯電話用Java(iアプリ) Part22 (766)
コンピュータプログラミングの概念・技法・モデル (261)
iモード携帯電話用Java(iアプリ) Part22 (766)
言語ってObjective-Cだけでよくね (630)
--log9.info------------------
青い鳥 -L'oiseau Bleu- 第十一章 (918)
【織田裕二】真昼の月 part２【常盤貴子】 (855)
【コマサ】実録・西部警察を斬る【爆破】 (932)
101回目のプロポーズ †††第3楽章††† (445)
【木10榮倉】蜜の味〜A Taste Of Honey〜19【菅野】 (347)
セーラー服反逆同盟 ユニオン映画 (416)
【日テレ】火曜サスペンス劇場を語る ３【火サス】 (563)
マジすか学園／マジすか学園２【テレ東・AKB48】 (449)
ハゲタカ〜ROAD TO REBIRTH〜 Part36 (801)
【祝ＤＶＤ化決定】西部警察を語ろう PART２９ (396)
【TBS愛の劇場】天までとどけ1〜8【丸山一家】 (697)
塩カルビ (212)
はいすく〜る落書き (203)
あばれはっちゃく【スレその２だ○秘作戦】 (792)
ポニーテールはふり向かない (527)
【LIAR GAME】ライアーゲーム 総合スレ (444)
--log55.com------------------
酔っぱらいスチュワーデス、検査で見つかり乗務員交代。国内線４便が遅れる
京都土産の八つ橋って不味いだろ
名無し雑談20200104〜
高齢者がauでスマホ契約 microSDカードを購入させられ定価より高くぼったくり 128GBで3万 ★2
特救指令 ソルブレイン
タイ人新聞記者「日本人が海外で犯罪を犯すと、日本の評判が下がるのを理解できないのかな」
同僚は見た！ ラブホテルに入る「社内不倫」カップル…会社に通報してもいい？
塩村あーあ！やか「お金がなければ新生児が命を落とす国でいいの？民進党幻の公約にヒントがある」
