●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

482:デフォルトの名無しさん
07/07/29 23:51:52 0
>>480

>>477に便乗で悪いんだけど、

０～１１までの数字をランダムに、かつかぶらないように代入したい

て時に俺は

Dim RndNum As Long
Dim NumCnt As Integer
'抜き出す数字の個数
NumCnt = 3
Set Dic = CreateObject("Scripting.Dictionary")
RndNum = Int(Rnd * 12)
Dic.Add RndNum, RndNum

Do While Dic.Count < NumCnt
RndNum = Int(Rnd * 12)
If Not Dic.Exists(RndNum) Then
Dic.Add RndNum, RndNum
End If
Loop

みたいなやりかたするんだけどダメ？

483:デフォルトの名無しさん
07/07/30 00:40:48
ダメではないけどDictionaryなんて使う必要ない

484:482
07/07/30 01:43:37
>>483
そか。
ちとランダムソートについて調べてみるよ

レスさんくす

485:デフォルトの名無しさん
07/07/30 02:31:58
全然詳しくないので質問させてください。
いつも仕事中にWebばかり見てる派遣クンが
「VBAがプログラムどおりに動かない原因を調べるのは僕の仕事ではありません。」
と言っています。
彼のVBAプログラムが動かないのを調べるのは誰の仕事でしょうか？

486:デフォルトの名無しさん
07/07/30 02:39:18
プログラムが失敗作と確定してるのだったら
そういうやつは辞めてもらえ

487:デフォルトの名無しさん
07/07/30 03:17:02
>>485
契約内容に因る
派遣ではなく業務請負なら間違いなくそれも彼の仕事のうちだけどね

一般的にはその派遣クンが悪いように見る人が多いかも知れないけど
契約内容によっては正しいことを言ってるかも知れない
それとこの質問において｢Webばかり見てる｣なんて情報は全く持って不要
彼の印象をなるべく悪くしようとしているようで浅ましい限りだ

488:デフォルトの名無しさん
07/07/30 10:34:02
vba　おすすめ参考書は？

489:デフォルトの名無しさん
07/07/30 19:54:34
参考書とは言えないかもしれんが「Excel VBA 実用サンプルコレクション」
異常にオブジェクト偏重なサンプル集だけどこの考え方は持っておくべきだと思う。
完全な入門ならちょっと敷居が高すぎるだろうけどね。

>>485って日本語の問題？動く物を作れで終了なんじゃw

490:デフォルトの名無しさん
07/07/30 19:59:21
セル範囲を画像化して保存する方法はありますでしょうか？

491:デフォルトの名無しさん
07/07/30 20:29:53
あるよ

492:デフォルトの名無しさん
07/07/30 22:57:49
素人な聞き方でｽﾏｿ
たとえば、
セルD1に「=A1&B1&C1」と入力したら「あいう」と表示されるとします。
（A1, B1, C1 にそれぞれ、あ、い、うが入っている）
セルD1 をセルD2に、paste spacial → values（＊英語エクセルです）で
コピペしたら、セルD2には「あいう」というテキストが入ります。
このpaste spacial → values の作業を省略できるような関数があったら教えてください。
例えば、A1の値を「わ」に変えるだけで、自動的に「わいう」というテキストの入ったセルを
ゲットできるようにしたいのです。

493:デフォルトの名無しさん
07/07/30 23:07:07
質問させてください。

UserForm上にComboBoxを配置して
Initializeで初期値とRowsourseによってリストを与えるようにしています。

ComboBoxのリストを開くと最初は一番上のリストの値から順に表示され、
一度リストから値を選択してComboBoxに入れ、
再度リストを開くとその値があらかじめ選択されており、
その値の前後が表示されるようになってます。
（ 1 ～12月がリストにあり、5月を選び再度リストを開くと 5月が選択された状態で
リストをスクロールせずとも 3～ 7月の値が選択可能な範囲にある
　ような状態です。）

最初からComboBoxの初期値の付近のリストを表示させるようにしたいのですが、
方法はありますでしょうか？

説明が不十分で分かりにくいかと思いますが、宜しくお願いします。

494:492
07/07/30 23:19:05
自己解決しそうです。
PASTE.SPECIAL 関数っていうのがあるみたいですね。
でも手元にある 2003 のエクセルにはないみたいですが・・・
調べてみます。

495:492
07/07/30 23:27:31
やっぱり分からなかった。
たぶんマクロでやるんですかね。素人レベルには難しいことならば諦めます。

496:デフォルトの名無しさん
07/07/30 23:28:20
Private Sub UserForm_Initialize()
ComboBox1.Value = "5月"
End Sub

497:デフォルトの名無しさん
07/07/30 23:30:30
>>496
ただ単にValueで値を持たせてもできないのですが・・

498:デフォルトの名無しさん
07/07/30 23:31:24
>>492
d2に=d1じゃだめなん？

499:デフォルトの名無しさん
07/07/30 23:34:48
>>497
五月になってない？

500:デフォルトの名無しさん
07/07/30 23:43:09
>>499
正確には1～12の値のみで初期値に5を入れて
ComboBoxの値は5になっている状態でリストを見ても
1(リストの一番上の値)から5くらいまでが表示された状態になってます。

要は値は入っていてもリスト上は何も選択されていない状態です

501:デフォルトの名無しさん
07/07/30 23:45:30
>>500
それは値は入っていても値は入っていない状態だからお手上げだな

502:デフォルトの名無しさん
07/07/30 23:55:44
>>501
お手上げですか

なにか手はないものでしょうか・・

503:デフォルトの名無しさん
07/07/31 00:03:14
>>498
はい。
家計簿を作ってるんですが、
1～12月までの費目別合計の推移を DSUM 関数で出しています。
=DSUM('1'!A:H,'1'!F1,分類!A1:A2) ←１月
=DSUM('2'!A:H,'2'!F1,分類!A1:A2) ←2月
=DSUM('3'!A:H,'3'!F1,分類!A1:A2) ←3月
（以下12月までつづく）

>>492 の例に当てはめると、セルD1に
=DSUM('1'!A:H,'1'!F1,分類!A1:A2)
と表示されています。
この数式を使えるようにするために、paste spacial → values の作業をしています。
「A1:A2」の部分だけを何度も変更できるように、
セルD1は複数のセルを＆でつないでおり、「A1:A2」の位置には特定のセルを指定し、
そのセルに好きなセル範囲を書くだけでいいようにしています。

504:デフォルトの名無しさん
07/07/31 00:16:55
>>502

Private Sub UserForm_Activate()
Me.ComboBox1.DropDown
Me.ComboBox1.Value = 5
End Sub

こうゆうこと？

505:503
07/07/31 00:51:56
当初考えていたやり方じゃないけど解決しました。
有難う御座いました。

506:デフォルトの名無しさん
07/08/01 13:38:16
Excelからメールを送ろうとCDOで組んだのですが宛先があっていれば普通に送れるのですが、アドレスが間違っていて存在しないアドレスに送っていてもエラーが帰ってきません。

このエラーを得る方法はありますか？

507:デフォルトの名無しさん
07/08/01 18:43:08
あります
でもExcelの話じゃないので､ここでは聞かないでね

508:デフォルトの名無しさん
07/08/01 19:06:24
CSVをADOの「Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=～」で扱うのは
office2000以上だと標準で利用できますか？
参照設定の設定も不要でいいんでしょうか？

509:デフォルトの名無しさん
07/08/01 19:07:12
当然参照設定は必要

510:デフォルトの名無しさん
07/08/01 19:15:24
>>509
マジ？なんも設定しなくても使えたんだけど・・・
ちなみに何を設定すればいいんですか？

511:デフォルトの名無しさん
07/08/01 19:18:37
もしかしてCreateObjectで参照してる？

512:デフォルトの名無しさん
07/08/01 19:28:25
Private Sub CommandButton1_Click()
Set rs = CreateObject("ADODB.Recordset")
Con = ""
Con = Con & "Driver={Microsoft Text Driver (*.txt; *.csv)};"
Con = Con & "DBQ=C:\Documents and Settings\Administrator\デスクトップ\新しいフォルダ;"

strSQL = "select * from test.csv"
rs.Open strSQL, Con, 0 '0=adOpenForwardOnly

cols = rs.Fields.Count
Do Until rs.EOF
Line = ""
For i = 0 To cols - 1
Line = Line & rs(i) & vbTab
Next
Debug.Print Line
rs.MoveNext
Loop

End Sub

513:デフォルトの名無しさん
07/08/01 19:29:32
こんなん書いて　今家でも試したけど出来た

CreateObjectだね

CreateObjectだと参照設定しなくても出来るということでおｋ？

514:デフォルトの名無しさん
07/08/01 20:05:43
>>506
URLﾘﾝｸ(www.asahi-net.or.jp)
ググったら見つけました

515:デフォルトの名無しさん
07/08/01 22:14:09
エクセルを開こうとするといきなりインストールしだしてエラー表示がでました。
プロパティを開いてプログラムを見ると不明なアプリケーションとなっております。
これは何故でしょう？
またこれを解決する方法はどうすればいいのでしょうか？

516:デフォルトの名無しさん
07/08/01 22:17:30
>>513
そうだよ。それが遅延バインディング。
欠点として、参照設定してきちんと型を指定して使う早期バインディングより
速度が遅いと、確かヘルプに書かれているはず。

517:デフォルトの名無しさん
07/08/01 22:18:02
初心者です。
if,do,for等の分岐式や繰り返しコードを使うと必ずバグが出ます。
バグが出ないように皆さん何か心がけている事ってありますか？

518:デフォルトの名無しさん
07/08/01 22:21:59
参照設定しないと遅いのもあるけど、コーディングしにくくない？

519:デフォルトの名無しさん
07/08/01 22:55:03
参照設定ってexcelファイルにするの？
ｅｘｃｅｌ環境にするの？

520:デフォルトの名無しさん
07/08/01 23:05:13
ブック単位だな。
ちなみに、普通のVBだとプロジェクト単位。

521:デフォルトの名無しさん
07/08/01 23:47:31
>>515
VBA関係ねえ

522:デフォルトの名無しさん
07/08/01 23:53:15
>>520
㌧

523:デフォルトの名無しさん
07/08/02 07:40:47
ADOで
csvテーブル（Microsoft Text Driver接続）と
Excelシートテーブル（Microsoft Excel Drive？接続）の
SQLでの連結ってできる？

524:デフォルトの名無しさん
07/08/02 18:21:00
VBAでListViewとかTreeViewを組み込んで OLEDragDropとか使うのは、
VBがある環境じゃないとライセンス違反とか聞いたんだけど、ほんと？
なんかMSのページ見に行ってもどこに情報があるのか良くわからん。。

使えるのに使っちゃダメとかなんだったらひどい話だよなあ。

525:デフォルトの名無しさん
07/08/02 18:24:58
vbaでSQLite使う方法ある？

526:デフォルトの名無しさん
07/08/02 18:28:46
あるよ

527:デフォルトの名無しさん
07/08/02 18:33:07
どうやるのか教えて

528:デフォルトの名無しさん
07/08/02 21:21:54
>>524
> ライセンス違反とか聞いたんだけど、ほんと？
うん､ライセンス違反だよ

ListViewとかTreeViewはVB6ランタイムを入れるとVBAからも使えるようになるが､本来VB6ランタイムというのは有料ソフトの付属品
VB6で作ったソフトを動かす為に必要なので､特定条件下で無料再配布が許可されているが､当然､使用はライセンスに縛られた範囲になる

で､使用して良い範囲が､VB6を持ってない人(VB6ランタイムを借りてる人)ではVB6で作られたソフトからの利用のみで
VB6を持ってる人(VB6ランタイムを購入した人)は自分の環境内で好きなように使って良くて
VB6Proなどを持ってる人(VB6ランタイムとその再配布権を購入した人)は自環境内で好きなように使って良いのに加えて
自作ソフトに同梱して配布することも出来る

無料で配布されているとは言え､VB6を持ってない人には有料ソフトの一部を条件付きで貸してるだけということをお忘れなく

> 使えるのに使っちゃダメとかなんだったらひどい話だよなあ。
世の中､出来るけどやっちゃいけないことで溢れかえっているけど､こんな事にも気付いてないほどお子ちゃまなの？
おそらくピッキングが出来れば君の家にある君が所有権を持つ物品類を盗むことも｢出来ること｣だが
この｢出来ること｣をやっちゃダメだと法的に定めるのはひどい話なのかな？
君の所有物に対して､所有権において他者の使用を制止･制限出来るのと同じで
MSの著作物に対しても､著作権において他者の使用を制止･制限してるだけのことなんだけど

529:デフォルトの名無しさん
07/08/02 21:47:51
>>528
> 特定条件下で無料再配布が許可されているが､
おー、そういうからくりなのか。ぜんぜん知らなかった。
勉強になるなあ。ありがとう。

> 世の中､出来るけどやっちゃいけないことで溢れかえっているけど､
> こんな事にも気付いてないほどお子ちゃまなの？
お子ちゃまレベルなのは認めるよ。
趣味でスクリプト組んでいるんであって、
プロで開発やってるわけじゃないもん。

もうちょっと「だめであること」がわかりやすくなっていても
いいんじゃないか？と思ったよ。だめならだめでさ。

530:デフォルトの名無しさん
07/08/02 21:56:24
それを言うなら鍵あいてた家のトイレでウンコしていいかとかそんな所だろ。
どっちもどっちだし窃盗みたいにものすごく悪いって程ではないけど、一応ダメ。
見つかって話がこじれたり目に余るような有様だと裁判沙汰にもなるわなw

531:デフォルトの名無しさん
07/08/02 23:37:16
>>529
技術や知識レベルとかプロ意識の問題じゃなかろう
約束やルールを守れないのは子どもだってこと

ただまあ524がそこまで言われるようなことかと言うと
「そういうもんなんだから諦めな」で済むような気もする

532:デフォルトの名無しさん
07/08/03 00:20:16
そんなことよりvbaからSQLite使う方法教えろ

533:デフォルトの名無しさん
07/08/03 04:43:19
ググれカス！

534:デフォルトの名無しさん
07/08/03 21:25:19
vba sqlite odbc でぐぐって判らんかったら諦めれ

535:デフォルトの名無しさん
07/08/03 21:26:25
ブレークポイントでプログラム中断した時、変数にマウスポインタあてると
内容が表示されるのが表示されなくなりました
設定とかいじってないのに何ででしょう？

536:デフォルトの名無しさん
07/08/03 22:14:43
VBAを記述中にカーソルが勝手に戻ったり、コメントを記入中に勝手に変換確定されるのですが
どうすれば回避する事が出来るのでしょうか？

例えば

Sub　｜　←このような時に　Sub｜　←このようにカーソルが戻ってしまうんです。
わーくしー　←このように入力中に勝手に確定されるのです。

よろしくお願いします。

537:デフォルトの名無しさん
07/08/03 22:29:04
スペースが全角だから自動で半角になってるんじゃないか

538:106
07/08/04 07:49:36
'Sub　｜

539:デフォルトの名無しさん
07/08/04 10:42:33

助けてください。２列目以降をソートしたいのですが、

Range("A1").Sort _
Key1:=Columns("B") _
, Order1:=xlAscending _
, Header:=xlGuess _
, Orientation:=xlTopToBottom

だと、
実行時エラー'1004'
RangeクラスのAutoFilterメゾットが失敗しました｡

Range("A1:L100").Sort _
Key1:=Columns("B") _
, Order1:=xlAscending _
, Header:=xlGuess _
, Orientation:=xlTopToBottom

だと、
エラーはでませんが、まったくソートがされません。
F8を叩くと、セルはA1を指しています。
同じファイルをマクロで実行したソースを貼っても駄目でした…。
よろしくお願いします。

540:539
07/08/04 10:45:32
↑すいません。

○RangeクラスのSortメゾットが失敗しました｡
×RangeクラスのAutoFilterメゾットが失敗しました｡

です。

541:デフォルトの名無しさん
07/08/04 15:47:25
決められた範囲内(セル内)のデータをcsvファイル形式でセーブしたいのですが…
どんなプログラムになるでしょうか？

542:デフォルトの名無しさん
07/08/04 16:10:48
>>542
マクロ記録でSaveAs...してみれば判ると思う。

543:542
07/08/04 16:11:49
>542は>>541ね。

544:536
07/08/04 19:19:49
最初にOption Explicitを入れたので、原因はそれっぽいのかな。
まだ、検証してませんが

545:デフォルトの名無しさん
07/08/04 19:51:05
>Option Explicitを入れたので、原因はそれっぽいのかな。

Option Explicitは常に入れているが、そんな話聞いた事が無い。

546:デフォルトの名無しさん
07/08/04 23:56:25
Sheet1
□ りんご
□ みかん
□ いちご
□ ぶどう

Sheet2
┌───┐
│りんご　　　 │
│みかん　　　│
└───┘

図のようにシート1にあらかじめ入力されているデータを選択し
シート2にあらかじめ作成しておいた表の特定のセルに自動転記され
表が完成する。　という動作を行いいたいのですが
まずシート1でチェックボックスで選ばれた項目だけを
表に反映させるというのがわからないです。。

547:デフォルトの名無しさん
07/08/05 00:43:42

くそ天皇　くそ天皇　くそ天皇　くそ天皇

いい加減死ねっつってんだろ屑ニートくそ天皇が

相変わらず病的な粘着っぷりだな屑ニートくそ天皇が

毎日毎日毎日粘着出来て良いでちゅねくそ天皇

くそ天皇さっさと死にやがれゴミが

東京に在住している精神病珍米糞ニートくそ天皇君の末路

さっさと精神病院逝くか首吊って逝くか選べや糞天皇が

早く死ねよ糞ニート天皇が

粘着精神病屑ニート天皇君は自らニートくそ天皇であると公言しました
さっさと死ねやくそ天皇が

早く死ねっつってんだろ屑ニートくそ天皇が

お前みたいなゴミクズ天皇は息してるだけで空気が汚れるからさっさと死ねや

とっと死に晒せや糞ニート天皇が

548:デフォルトの名無しさん
07/08/05 01:09:41
>>546
Sheet1.CheckBox1でプロパティ値にアクセスできるし
changeイベントもあるからお好きなように

549:デフォルトの名無しさん
07/08/05 16:42:45
タスクみたいなタイマーで2時間に1回プログラムを実行させるにはどーすればいいの？

550:デフォルトの名無しさん
07/08/05 20:56:56
タスクを使えばいいんじゃね?

551:デフォルトの名無しさん
07/08/06 03:44:01
OSはVistaです。

エクセルで完成させた表を印刷しようとするとエラーになります。
通常のインターネットなどのページを印刷するのは可能なのですがエクセル・ワードだけはエラーがでてしまいます。
パソコンでプリンターの状態を見たら「アイドル」になったままで何をしても変わりません。

だれか助けてください。

552:551
07/08/06 03:45:26
ｽﾏｿ。
板違いだった。
総合相談所スレにいってきます。

553:デフォルトの名無しさん
07/08/06 15:13:05
お世話になります。

accessからodbcを利用してプロシージャを実行させようとしているのですがエラーになって実行できません。

--ソースの一部----------------------------------
　Dim tmp_qd As QueryDef

　SQL = "exec プロシージャ_hoge"

　tmp_qd.SQL = SQL

　Set tmp_rs = tmp_qd.OpenRecordset()
------------------------------------
vbは良く分からない（初めて３日くらいです）のでこれでソースが足りるか分かりませんが、
上記の「tmp_qd.OpenRecordset()」でエラーが発生しています。
内容は
　「　ODBC--呼び出しは失敗しました。　」
とダイアログに表示されます。

エラーの原因がなんだかわかりません。
お手数ですが、お願いいたします。

554:デフォルトの名無しさん
07/08/06 15:28:04
動いたら奇跡

555:デフォルトの名無しさん
07/08/06 15:53:57
>>554
他のコードです。
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset

Set db = CurrentDb()
qd.Connect = glcnst_ODBCConnect
qd.ReturnsRecords = True
qd.ODBCTimeout = 0

SQL = "exec pro_hoge"

qd.SQL = SQL

Set rs = qd.OpenRecordset()

何か文法等間違っている箇所があるのでしょうか？
お願いします。

556:デフォルトの名無しさん
07/08/06 17:39:57
currentdbはaccessでしか使えないし
sqlが何かわかってないし
どこが間違ってるかとかいうよりも
ちょっとずつしっかり勉強したほうがいいよ

557:デフォルトの名無しさん
07/08/06 18:58:04
>>556
了解しました

558:デフォルトの名無しさん
07/08/06 19:44:23
初めてカキコします。
スキルもないのに仕事を押し付けられた入社1年目の者です。
日報なのですが、日付を入力したら、その日の売上、仕入を表示できるようなプログラムはあるのでしょうか？
ご教授お願い致します

559:デフォルトの名無しさん
07/08/06 19:47:29
作ろうと思えば作れる。
ここは、そういうものを作る側のスレッド、板。

560:558
07/08/06 20:37:56
>>559
期限はないので勉強して作ってみます。
ありがとうございます

561:デフォルトの名無しさん
07/08/06 20:49:01
そんなん関数でやればいいじゃない

562:デフォルトの名無しさん
07/08/06 21:56:57
>>561
>日付を入力したら、その日の売上、仕入を表示できるようなプログラム

を関数で出来んのか？

563:デフォルトの名無しさん
07/08/06 22:20:15
>>562
横からだけど
関数で引っかかるのはどこだろう？
セルに日付を入れると別のシートにある売り上げと仕入れ
VLOOKUPでは駄目なのだろうか？

564:デフォルトの名無しさん
07/08/06 22:54:58
VBAを使って自分自身にジェクトのロック・アンロックをかけたいのですが
可能ならば教えてください

565:デフォルトの名無しさん
07/08/06 22:55:40
>>564
プロジェクトのロック・アンロックでした

566:デフォルトの名無しさん
07/08/07 09:43:03
>>564
可能だけど､それを自分で調べられないレベルの奴は
プロジェクト自体やモジュールをコードで弄るのはやめた方がいい
あと､やるならプロジェクトへのアクセス許可出さないとだめだからね

567:558
07/08/07 19:02:10
VLOOKUP関数で出来ました！
検索値を日報の日付の部分にしたら解決しました。

568:デフォルトの名無しさん
07/08/07 19:12:56
初めて質問させていただきます。

XML文書の妥当性チェックをXMLスキーマで行うため、以下のようにXMLSchemaCacheにaddしようとしたところ、②の段階でエラーが発生します。

①スキーマキャッシュオブジェクトの生成
Dim objScm As New MSXML2.XMLSchemaCache
②スキーマをキャッシュに追加
objScm.add "urn:bookList","C:\book.xsd"

実行時エラー　スキーマのルート要素に対する定義が無効です。

どのようにすれば＠ITの記事を参考にしてやっているのですが、どのようにして回避できるのかわかりません。環境はExcel2000, MSXML2.6を使用しています。よろしくお願いします。

569:デフォルトの名無しさん
07/08/07 20:55:54
MSXML2使うなら､これはExcelとは関係ないものなのでスレ違い

570:デフォルトの名無しさん
07/08/07 21:22:30
>>569
小さい野郎だな、静かにしろ

571:デフォルトの名無しさん
07/08/07 21:47:36
何でも斜に構えて､規律なんて糞食らえ､俺は大きな人間さ
というスタンスで居るのがカッコイイと思ってる年頃ってあるよねw

572:デフォルトの名無しさん
07/08/07 22:00:20
ゆとりはもう一度文章を読み返してから書き込もうぜ

573:568
07/08/07 22:01:44
>>569
XML総合と迷ったのですが、Excelマクロを用いてのXML操作ということで、ここはひとつお目こぼしを。

>>570
わたしのほうもスレ違いと言われて当たらずとも遠からずかもしれません。原因の一端は確実にわたしにありますので、あまりお責めにならないよう。

>>571
そういう時期は確かにありました。実際にカッコイイことはないと思うのですが、根拠レスに自分で自分をカッコイイと思える平和な時期だったのだと思います。

574:デフォルトの名無しさん
07/08/07 22:18:13
>>566
そー言わずになんかヒントちょうだい

575:デフォルトの名無しさん
07/08/07 22:25:08
>>573
だまってろカスブタ

576:デフォルトの名無しさん
07/08/07 23:25:53
Dim a, b
dim r as range

a = Split(Replace(r.Value, "＠", " "), " ")

b = Split(Replace(r.Value, "a(0)", "*"), "*")

bはaで分割した最初の文字列を＊に変換、＊で分割といった感じにしたいのですが、
素人でよく分りません。よろしくお願いします。

577:デフォルトの名無しさん
07/08/07 23:30:25
"a(0)"　-＞　a(0)
じゃだめか？

578:デフォルトの名無しさん
07/08/07 23:44:11
>>577

おお、できましたぁ！！！ありがとうございます～ペコリ

579:デフォルトの名無しさん
07/08/07 23:56:01
ただ、それだったら
a = "*" & mid$(r.Value,instr(r.Value,"@"))とかのが何ぼか軽いんじゃない？
(注：offsetの誤差は考慮してない)

580:デフォルトの名無しさん
07/08/07 23:57:13
あ、*でsplitしてるのか、ごめん勘違い

581:デフォルトの名無しさん
07/08/08 09:40:48
>>573
> Excelマクロを用いてのXML操作ということで
それはVBAの範疇じゃない
VB言語で[A]pplication(Excel)を操作するからVBA
これからAを取ったらVBなので､Excel付属のVBE使ったとしてもVBの分野

582:573
07/08/08 12:00:35
>>581
わかりました。他スレで質問させていただくことにします。お騒がせしました。

583:デフォルトの名無しさん
07/08/09 21:09:41
excelのvbaを使ってます。

ユーザーフォームで作成した複数のtextboxについて、コードを入力するとき

例えば
if textbox1 = ～ then
end if
if textbox2 = ～ then
end if
if textbox3 = ～ then
end if
などとせず
textboxの連番をうまいこと使ってまとめることってできないでしょうか？

584:デフォルトの名無しさん
07/08/09 21:21:27
あらかじめオブジェクト配列にでもセットしておけば？

585:デフォルトの名無しさん
07/08/09 21:21:57
>>583
～の内容とThenからEnd Ifの間次第なのに肝心な所を略してどうするの。

for i = 1 to 3
if Controls("textbox" & i） = ～ Then Stop
next

こういう事？

586:デフォルトの名無しさん
07/08/10 02:31:18 BE:703008239-2BP(218)
SolverAdd CellRef:=constraintCell.Address, Relation:=2, FormulaText:="1.00"

これで　拘束条件が　追加されないびょん
しかも、あるブックだけ・・・
どいうこと？

587:デフォルトの名無しさん
07/08/10 02:35:35 BE:390559853-2BP(218)
しかも、同じブックの　その他のSolverAddは　動作するし・・・　なんなの？　いやがらせ？　＞　Excel 2003

For Each r In changeRange
SolverAdd CellRef:=r, Relation:=3, FormulaText:=0.0002
SolverAdd CellRef:=r, Relation:=1, FormulaText:=0.9998
Next r
は　動作するｗ

588:デフォルトの名無しさん
07/08/10 04:29:33 BE:1458089478-2BP(218)
"1.00" の代わりに　"R1C10" にすると追加されたｗ
なんで0.0002や0.9998は問題ないのやら？ｗ

589:デフォルトの名無しさん
07/08/10 04:44:49 BE:104149722-2BP(218)
"1.00"の代わりに 1 や 1# でも追加されないびょんｗ　0.999は追加されたｗ
変な　ブックｗ

590:デフォルトの名無しさん
07/08/10 04:48:30 BE:416596782-2BP(218)
"1.00"の代わりに"0.999"にしたら追加されたｗ　そんなに　１が嫌いなのか！

591:デフォルトの名無しさん
07/08/11 01:19:24
あまりにも単純な質問で申し訳ありませんが質問させてください。

VBAでユーザーフォームのテキストBOXにセルの内容を表記
させる事は普通には出来るのですが、セル内容が時刻の場合
上手くいきません。

セル（A1)がActiveとして10：00と入力されています。
それをtexｔtbox1に表記させるため

Userform1.textbox1.value = Activecell

とすると、表示されるのは「0.416666666666667」という不可解な
表記なんです。

「10：00」と表記させる方法をご教示下さい。

592:デフォルトの名無しさん
07/08/11 01:46:00
>>591
Userform1.textbox1.value = Activecell.Text

593:デフォルトの名無しさん
07/08/11 02:59:16
>>592
> >>591
> Userform1.textbox1.value = Activecell.Text

ありがとう御座います。セル側にtext指定するとは気がつきません
でした。本当に助かりました。

594:デフォルトの名無しさん
07/08/11 17:42:24
すみません、質問です。

マクロの閲覧などをロックしても、ある種のツールで解除出来たりしますが
これを回避する方法は、他のツールソフトなどを利用するしか、
手段は無いのでしょうか？

その場合、出来ればフリーで良いツールは有りませんか？

595:デフォルトの名無しさん
07/08/11 18:00:28
変数名をランダム＆グローバルにして
クラス使わずすべて標準モジュールに記述
標準モジュールもランダムな名前で１００個ぐらい作る
関数も全く関連性のないものを各々１０個ぐらい用意
さらに関数もgoto文多用で1000ステップ
このくらいやれば自分も解析する気にならない
マジおすすめ

596:デフォルトの名無しさん
07/08/11 18:54:45
>>594
VBAプロジェクトの保護は､初心者の不用意な改変を防ぐ｢ロック｣であって
閲覧や漏洩を阻止する｢セキュリティー｣ではありません

そもそも､Excelは開発環境ではないのでソースの漏洩を防止しようとすること自体が間違い
Microsoftは強固なセキュリティーを付けることよりも､万が一パスワードを紛失しても､
膨大な時間を掛けて製作したマクロコードを失う結果に繋がらないように配慮しました
開発環境ではないExcelでは､ソースを書いたモジュール自体が､パスを付ける対象に組み込まれているので
モジュールのエクスポートなどをしていない状態でパスを紛失してパス外しが出来なかったら
コードを全て失うことになってしまうからね

その結果､普通にパスを掛けただけはもちろん､パス解除防止ツールでロックしても､
ちょっと面倒になるだけでパス外し自体は出来るようになっています
君が言う｢ある種のツール｣はコレ( URLﾘﾝｸ(passmaster.fujigoma.com) )
じゃないかもしれないけど､コレで｢VBAパスワード保護｣した程度ならちゃんと外せます
因みにコレくらいならVBAでも作れますよ

そして､コードが漏洩しない形でアドインなどを作りたい人には専用ソフトを用意しています
(Visual Studio Tools for Office)

あとは､専用ソフトを使ってでもセキュリティーを付けたいか､専用ソフトを使うくらいなら､
解除できる状態でも良しとするかはあなた次第なので､どうぞお好きなように

597:デフォルトの名無しさん
07/08/11 20:41:21
質問させてください。

会社で、エクセルを使って報告用紙の作成を命ぜられたのですが、
エクセルの知識は一般常識的なものしか持ち合わせていないので、
どなたかご教授願います。

C1の値が、A1～A5のいずれかの値と一致したならば、
E1に、その一致したA1～A5のいずれかのセルの右隣のセルに入力されている値（B1～B5のいずれか）
を表示する。

というような内容の関数を作りたいのですが、ネットで検索して１日悩みましたが、結局分かりませんでした。
私の予想では、ＩＦ関数とＯＲ関数を使うような気がするのですが。。。
ちなみに関数は今まで使ったことがありません。プログラムの知識もありません。

どうぞ宜しくお願い致します。

598:デフォルトの名無しさん
07/08/11 20:54:08
>>597
E1に式を突っ込むだけでできると思うのだが。よって、スレ違い。

599:597
07/08/11 20:58:50
>>598
この板ははじめて来るので、よく分かりませんでした。
どこで質問すれば良いでしょうか？

600:デフォルトの名無しさん
07/08/11 21:12:30
>>599
さぁ? Excelの使い方の質問ができるのならどこでもどうぞ。
#あ、鼬害か。

601:597
07/08/11 21:21:27
他の板で聞いて解決しましたのでｗｗｗ
お前らダッセｗｗｗ

602:デフォルトの名無しさん
07/08/11 22:49:41
セルに関数入れるのを
プログラムと呼べなくもないような

603:デフォルトの名無しさん
07/08/11 22:51:42
>>602
それでもスレ違いであることには変わりない。

604:デフォルトの名無しさん
07/08/11 23:55:49
>>596
質問した香具師じゃないが
ＶＳに何故VBAの開発環境があるんだ？と不思議に思ってたが
そーゆー事なのかぁ、ためになった

605:デフォルトの名無しさん
07/08/11 23:57:38
>>604
VBAと書いたが、確か違う名前だったね

606:デフォルトの名無しさん
07/08/12 19:08:40
質問です。
エクセルで、印刷ダイアログを表示させて、そのときの印刷のページ範囲を任意で決めたいのですが、VBAで制御できますか？

一応、PrintOutメゾットは知っているのですが、このメゾットを実行させると印刷が自動的に行われてしまうようで、今回の利用の用途には合いませんでした。
あらかじめページ設定に印刷の範囲を指定できればいいのですが・・・　ご教授願います。

607:デフォルトの名無しさん
07/08/12 19:16:56
printpreview

608:デフォルトの名無しさん
07/08/12 22:02:15
>>607
いや、それだとダイアログが出ないから合わないんです。

詳しく書くと
1．何かしらの計算をして、ページ範囲（ページの枚数：１～３ページまでとか）が既に決まっている。
2．印刷する前にダイアログを出す。
3．ページ範囲は、1．より範囲を代入する。
4．ダイアログから印刷プレビューを出す。
5．印刷をする。

この場合、PrintOutメゾットだとFromとToで範囲を決めれたけど、このメゾットだと自動的に印刷までいくので、今回の目的に合わなかったわけです。
一応printpreviewもやってみたけど、このメゾットだと範囲をあらかじめ決めれないらしいので、どうしたものかと困ってしまってます。

609:デフォルトの名無しさん
07/08/12 22:25:21
>>606-608
Application.Dialogs(xlDialogPrint).Show ～

610:デフォルトの名無しさん
07/08/12 22:56:53
>>609
おおなるほど、これなら思い通りに行けそうです。　ありがとうございます！

611:デフォルトの名無しさん
07/08/13 17:34:19
教えて下さい。

マクロで、「エクセルのメニューを操作（開いてる）」という状態を
判断する方法って有りますか？

612:デフォルトの名無しさん
07/08/15 01:03:01
InputBoxとかでとりあえず何かを入力させて、
その中にある文字列が入っているかで
分岐させるのはどうすればいいんですか？

ある文字列が入っているか調べる関数とかあれば教えてください。

613:デフォルトの名無しさん
07/08/15 01:08:29
>>612
InStr関数

ある文字列の位置を返す関数だが
含まれてなければ0を返すので､0が返ったか1以上が返ったかで
含まれてるか否かを判断できる

614:612
07/08/15 01:27:20
>>613

ありがとうございます。参考にします。

615:デフォルトの名無しさん
07/08/15 03:12:18
散布図のグラフで、Y軸の範囲を1つ右の列にずらすVBAを作りたいのですが
方法がわかりません。例で示すとY軸の値
=Sheet1!$B$2:$B$11
を
=Sheet1!$C$2:$C$11
=Sheet1!$D$2:$D$11
=Sheet1!$E$2:$E$11
:
と実行するたびにずらしていくマクロです。

固定値でよければ、Y軸を指定するには
　ActiveChart.SeriesCollection(1).Values = "=sheet1!R2C2:R11C2"
などとすればよいことがわかりましたが、相対移動のためにたとえば、
　ActiveChart.SeriesCollection(1).Values =　ActiveChart.SeriesCollection(1).Values.Offset(0,1)
とはできません。

調べたところ、.Values を参照するとバリアント型で配列が返るところまではわかったのですが、
そこで力尽きました。。

616:デフォルトの名無しさん
07/08/15 05:28:39
自己レスです。

その後、検索したところ指定範囲が .SeriesCollection(1).Item(1).Formula で
文字列で得られることがわかりました。ですので、文字列処理をひたすらやって、
.SeriesCollection(1).Values
に突っ込むことでなんとかできるようになった感じです。
お騒がせしました。
# 結局、これで徹夜になったなぁ。

617:nanashi
07/08/15 14:09:52
以下のことがしたいのですが、VBAで対応可能でしょうか？
シート１で文字列を検索して、検索した文字を違うシート２のB1セルに貼り付けます。
続いて検索した文字の一つ上のセルを違うシート2のA1に貼り付けます
さらに検索した文字の一つ下のセルを違うシート2のC1に貼り付けます。
検索された文字をA2,A3．．．と貼り付けていくようなものをつくりたいです。
できればシート１でのセル情報（セルの色や取り消し線）もあわせてもってこれると
うれしいです。
よろしくお願いします

618:デフォルトの名無しさん
07/08/15 14:57:08
>>617
マクロの記録結果見て考えろ

619:デフォルトの名無しさん
07/08/15 14:58:51
充分可能ですね｡

620:デフォルトの名無しさん
07/08/15 15:46:47
phpでいうところの変数展開「var_dump()」みたいなものって、vb(vba)にはないのでしょうか？

PHPは2年ほど触っているのですが、仕事でvbaをしなければならなくなりました。
質問自体はそれほど難解なことではないのですが、なにしろ、基本的な知識をぶっ飛ばして作成に入っているため、つまらないことで躓いています。
よろしくお願いいたします。

621:デフォルトの名無しさん
07/08/15 16:05:41
ウォッチ式のことかね

622:デフォルトの名無しさん
07/08/15 17:27:02
>>620
PHPと違ってデバッガがあるので、それを使えばvar_dumpなんぞ不要。
ブレークポイント、ウォッチ式、イミディエイトウインドあたり調べてみ。

623:デフォルトの名無しさん
07/08/15 17:34:42
>621さん
簡潔なお答え、ありがとうございます。笑
(上段はさておき、そんな言葉すら知りませんでした。)

頂いたヒントをもとに調査した結果、「現在変数に入っている値を見る方法」がわかりました。
「ローカルウインドウ」なるものの存在を知ったので、たぶん、問題は解決。

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

624:デフォルトの名無しさん
07/08/15 17:38:01
>622さん

立て続けに申し訳ありません。
解決しましたので、そのご報告です。

ずっとphpを触ってきたので、すっかりvar_dumpのトリコになっていました。
開発をしていると値の内容を知ることが重要で、それをもたらしてくれるvar_dump、なんて素敵な関数なんだろう、と感動していたところです。

よくよく考えると、結果を表示する画面というのもエクセルにはなく（たぶん、ないですよね）、結果、ローカルウインドウを使うことに決めました。

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

625:デフォルトの名無しさん
07/08/15 22:11:00
Debug.Printをフラグ管理して、イミディエイトウインドに値を表示させるのもひとつの手かと
コードは多少汚くなるけど、必要な値だけ取り出せる。

626:デフォルトの名無しさん
07/08/15 22:28:10
すいません、VBA初心者なんですが、２点程質問があります。
どなたか教えて頂けたら幸いです。

１、Application.GetOpenFilenameにてファイル名を取得するんですが、
　　この時、「ファイルを開く」ダイアログボックスに自分が指定した
　　フォルダが最初から開かれているようにしたいんですが、可能なのでしょうか？

　　例えば　C:\test　のフォルダを指定したら、ダイアログボックス
　　を開いた時に、testフォルダ内のファイルが見れている状態です。

２、１つの列にロックをかけた場合、他のセルの右クリックの「挿入」、
　　「削除」、「セルの書式設定」と言ったメニューが使えず、
　　制限されてしまうんですが、その列をロックをしたまま、上記メニュー
　　を使えるようにする事は可能なのでしょうか？

自分で解決できなかったので、
どなたかご存知の方いましたら、宜しくお願いします。

627:デフォルトの名無しさん
07/08/15 22:57:19
>>626
ChDrive()やChDir()でカレントフォルダを変更。
ただし、例外の処理をちゃんとしないとうまく動かない。

別に、Application.GetOpenFilenameをやめてWindowsAPIを使う方法もあるが、
ややスキルが必要。

>>１つの列にロックをかけた場合、

これ意味不明。kwsk。

628:デフォルトの名無しさん
07/08/15 23:17:33
>>627さん
ありがとうございます。

今までカレントフォルダを変更しただけで、例外の処理をしてませんでした。
ちょっと例外処理とAPIについて自分で調べてやってみます！

>>１つの列にロックをかけた場合、

というのは、例えばB列のセルの内容を編集をできないようにロックした場合、
という意味です。（B列のセルをダブルクリックしたら編集不可のメッセージが出ます。）
このB列をロックしてしまうと、他の編集可能なセルにも影響が及んでしまうんです。

編集可能なセルだけ、通常の右クリックのメニューを使えるようにする
事はできるのでしょうか？

629:デフォルトの名無しさん
07/08/16 00:15:03
>>628
「ロック」というのはデフォルトで全部のセルにチェックがついてる。
おまえさんが言ってるのは「シートの保護」のことか？

630:デフォルトの名無しさん
07/08/16 01:10:49
無理してShellコントロールでやってみたがSetdirectoryしてからダイアログ呼ぶ方が綺麗で簡単だわな

'Shellを使うには Microsoft Shell Controls And Automation をインクルードしておくこと
Dim objShApp As Shell
Dim strPath As String
Dim objFld As Folder2
Set objShApp = New Shell

Set objFld = objShApp.BrowseForFolder(0, "フォルダを選択してください", _
BIF_SHAREABLE + BIF_NONEWFOLDERBUTTON + BIF_NEWDIALOGSTYLE + _
BIF_RETURNFSANCESTORS, ThisWorkbook.Path)
If objFld Is Nothing Then
Exit Sub
End If

strPath = objFld.Items.Item.Path
MsgBox strPath

Set objFld = Nothing
Set objShApp = Nothing

631:デフォルトの名無しさん
07/08/16 02:58:56
かなりの初心者です
セルに格子の表を作りたいのですが、メッセージボックスなどで表示・入力させて、毎回、表の大きさを自由に変えられるような、マクロは作れますか？

"A1:J10"と指定して表作れとかなら、何とかわかるのですが・・・

ご指導、よろしくお願いします

632:デフォルトの名無しさん
07/08/16 03:33:11
マルチページやタブストリップで、ページの背景をかえても、
タブがグレーのままなのです。
タブにも背景色を設定することは出来ないでしょうか

633:デフォルトの名無しさん
07/08/16 06:01:24
>>631
REFEDITコントロールを使うとか

634:デフォルトの名無しさん
07/08/16 11:05:41
>>631
言ってる事判んないけど、例えば次のような感じなら簡単だと思う

1　マウスで左上のセルを指定

　***　ここからマクロ　***
2　inputbox関数で大きさを指定。例えば、5-10
3　マクロで5行10列の格子を引く
　***　マクロ終り　***

635:631
07/08/16 11:51:07
>>633-634

これから、やってみます
本当に有難うございました

636:デフォルトの名無しさん
07/08/16 12:32:47
>>631
以前、同じことやろうとして、判らなかった。
自分しか使わないマクロだったんで、
マクロ起動前に、処理したいセル範囲を選択しておく、という方法にしてしまった。
お望みの解ではないですが、参考まで。

637:デフォルトの名無しさん
07/08/16 13:39:16
inputbox関数じゃ無くinputboxメソッド使えばいいじゃん？

638:デフォルトの名無しさん
07/08/16 13:50:51
inputboxメソッドで始点（左上）と終点（右下）をマウスで指定すれば、
キーボードで入力しないでも出来そうな気がするのだが．．．。

639:デフォルトの名無しさん
07/08/16 18:46:59
できた（力作）
Sub セルに格子の表を作りたいと思った時のマクロ()
Const colwidth = 3 '枠の幅0-
Const colcount = 9 '枠の列数1-
Const RowHeight = 4 '枠の高さ0-
Const rowcount = 3 '枠の行数1-
Const セル = "C7"
topline = ""
bottomline = ""
centerline = ""
charline = ""
topline = "┌" '***
For i = 1 To colcount
For m = 1 To colwidth
topline = topline & "─"
Next
If i < colcount Then topline = topline & "┬"
Next
topline = topline & "┐" '***
centerline = "├"
For i = 1 To colcount
For m = 1 To colwidth
centerline = centerline & "─"
Next
If i < colcount Then centerline = centerline & "┼"
Next
centerline = centerline & "┤"

640:デフォルトの名無しさん
07/08/16 18:47:43
For i = 1 To colcount '***
charline = charline & "│"
For m = 1 To colwidth
charline = charline & "　"
Next
Next
charline = charline & "│"
bottomline = "└" '***
For i = 1 To colcount
For m = 1 To colwidth
bottomline = bottomline & "─"
Next
If i < colcount Then bottomline = bottomline & "┴"
Next
bottomline = bottomline & "┘"
myspread = topline
For i = 1 To rowcount
For m = 1 To RowHeight
myspread = myspread & vbLf & charline
Next
If i < rowcount Then myspread = myspread & vbLf & centerline
Next
myspread = myspread & vbLf & bottomline
Set rf = Range(セル).Font
rf.Name = "ＭＳゴシック": rf.FontStyle = "標準": rf.Size = 11
rf.Parent = myspread: rf.Parent.ColumnWidth = (2 + colwidth * colcount) * 3
rf.Parent.RowHeight = (2 + RowHeight * rowcount) * 15
End Sub

641:デフォルトの名無しさん
07/08/16 23:51:00
vlookupの関数でできると思います。
詳細はHELPを参照してください。

642:デフォルトの名無しさん
07/08/17 22:54:06
とりあえず、客の名前と住所が入力されたシートがあるんですが、
膨大な数が入力されてます。

例えば、

「東京都新宿区西新宿」

などと住所を入力したら、その文字が含まれる列、行だけが
表示される、みたいな事って出来ますか？

643:デフォルトの名無しさん
07/08/17 23:55:20
できます。

644:デフォルトの名無しさん
07/08/17 23:56:45
>などと住所を入力したら、
どこに入力するの？
複数該当する時はどうするの？
もっと詳しく具体的に！
ってゆうか目的は何ですか？

いずれにしても、VBAじゃないと出来ないと思う

645:デフォルトの名無しさん
07/08/18 00:05:36
目的はわかるだろｗ

646:デフォルトの名無しさん
07/08/18 00:50:13
顧客リストから自分の土地勘のある場所に住んでいる客を抽出して、ストークするんですね?

647:デフォルトの名無しさん
07/08/18 12:03:37
何故Accessを使わない

648:デフォルトの名無しさん
07/08/18 21:18:47
何故オートフィルタを使わない

649:デフォルトの名無しさん
07/08/19 13:39:36
一つの列に順に大量のデータ（人名）を入力していくのですが
その際、遊びで一人分入力するのにかかる時間を計るタイマーを
ユーザーフォームで表示するというマクロを作っています
タイマー部分はOnTime関数を使って基本はできたのですが
セルに入力中はタイマーの時計表示が止まってしまいます
入力中はマクロの実行自体が止まってるようなんですが
これを動かし続けることはできませんか？
（入力して確定「後」にかかった時間を表示するのはできました）

650:デフォルトの名無しさん
07/08/19 14:14:45
Excelから切り離して動かせばいい
操作はウィンドウメッセージを使うことになるがそう面倒でもあるまい
VBAの範疇を出る話なので､あとはご自分で

651:デフォルトの名無しさん
07/08/19 14:16:25
ユーザーフォームから入力すれば良いかも？

652:デフォルトの名無しさん
07/08/19 18:50:37
Dim time As Variant
Function settime() As Variant
time = Timer
End Function
Function gettime() As Double
gettime = Timer - time
End Function
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mytime = Format(gettime, "####.00")
ThisWorkbook.Application.Caption = mytime
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
settime
End Sub

653:649
07/08/19 21:34:16
>>650
ありがとうございます。Excelから切り離すってことはＶＢかなんか使って別アプリにしてしまう
ということですよね？ＶＢＡ以外やったことないんですが・・・これを機に勉強しようかな
>>651
ありがとうございます。
あくまで入力作業中のおまけというかアクセサリ的なものとして表示させておくつもりだったので
その発想はなかったです。試しにやってみたらフォーム上のtextboxへの入力中ならちゃんと
タイマーを表示するマクロも動き続けますね。とりあえずこの方法でやってみます。
>>651
わざわざコードまで書いてもらって恐縮です。
言葉足らずで申し訳ありませんでしたが、入力確定後にかかった時間を表示するだけじゃなく
入力中もかかってる時間を表示させ続けたいのです。

次ページ