Excel VBA質問スレ Part6

Excel VBA質問スレ Part6 at TECH

[前50を表示]
750:デフォルトの名無しさん
08/05/10 11:44:56
>>749　できました！　ありがとうございます

751:デフォルトの名無しさん
08/05/10 11:50:35
あとは
A15の縦の長さを　常時コメントと同じ高さにあわせるように応用するだけか・・・

752:デフォルトの名無しさん
08/05/10 12:04:27
A15の高さ＝コメントの行数x18ピクセルになるマクロを組み込むには…どうすればええやろ。

753:デフォルトの名無しさん
08/05/10 18:48:39
いい加減、マクロの記録に気づけよ

754:デフォルトの名無しさん
08/05/10 23:53:59
ボタンのテキストをマクロで書き換える方法についての質問です。
フォームのボタンの場合は、
Dim s As Shape
Set s = ActiveSheet.Shapes("Button 5")
s.TextFrame.Characters.Text = "ほげほげ"
のようにすれば書き換えられます。

では、コントロールのボタンはどのようにして書き換えればいいのでしょうか？
同じように書くと、s.TextFrame.Characters.Textの行を実行するときに、
　オブジェクトは、このプロパティまたはメソッドをサポートしていません
と叱られます。

755:デフォルトの名無しさん
08/05/11 01:33:18
EXCEL2003のVBAで、シートの再計算を強制的に実行するにはどうすれば良いでしょうか？

756:デフォルトの名無しさん
08/05/11 04:35:17

・資金ゼロでも優秀な開発者は一千万円の特別賞あり、デモトレードなのに優勝したら三百万円の賞金

●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催
URLﾘﾝｸ(system-trading.jp)
[シストレFXグランプリとは]
クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。
お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。

●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。
　　デモトレードの優勝者には賞金三百万円がプレゼントされます。

▼トレード部門
初期資産500万円で、デモ取引のトレード収益を競っていただきます。
●URLﾘﾝｸ(www.fx-gp.com)

▼賞金総額
■社長特別賞（シストレソフト買取価格） 10,000,000円
●シストレソフト部門賞　1位300万円　2位100万円　3位50万円
●トレード部門賞　1位300万円　2位100万円　3位50万円
●前期MVP賞　50万円
●後期MVP賞　50万円

757:側近中の側近 ◆0351148456
08/05/11 11:02:55
>>754
(っ´▽｀)っ
ActiveSheet.CommandButton1.Caption = "ddddd"

758:側近中の側近 ◆0351148456
08/05/11 11:04:56
>>755
(っ´▽｀)っ
Calculate メソッド

計算対象　　　　　　　　指定例
すべてのブック　　　　Application.Calculate または Calculate
特定のワークシート　Worksheets(1).Calculate
指定されたセル範囲　Worksheets(1).Rows(2).Calculate

759:デフォルトの名無しさん
08/05/11 12:11:02
>757
ありがとうございました。できました。

以下、俺様メモ。
VBAのオブジェクトブラウザを使って
クラスSheetXのメンバをオブジェクト名（たとえばCommandButton1）で探すこと。
ボタンのクラスはCommandButton

760:デフォルトの名無しさん
08/05/11 19:04:23
>748
>→パスワードを入れる

でけた。ありがと。

761:デフォルトの名無しさん
08/05/12 14:27:05
Dim StrData(1 To 13, 1 To 2) As Variant
これってどういう意味ですか？

762:デフォルトの名無しさん
08/05/12 14:50:23
>>761
イメージ的にはA1:B13みたいな縦13*横2の二次元配列。
変数名からしてString型にした方がいいと思うが。

763:デフォルトの名無しさん
08/05/12 15:59:00
>>762
ありがとう、把握しました。

後、マクロを無効にしないとエディターで編集が出来ないんですが、これはどうすればいいんでしょう。
csvを読み込んで配置するマクロを編集してるのですが、無効にするとデバッグ出来ません。

764:デフォルトの名無しさん
08/05/12 19:29:24
一週間以上たったが>>630はできなかったみたいだな。ＤＱＮが消えてこのスレも健全化するだろう。

765:デフォルトの名無しさん
08/05/12 20:10:15
VBAで測定器の制御(GPIB)を行っています。
あるデータを取得する関数の戻り値がString限定なのですが、中身がバイナリ直のDoubleで
どう変換するべきかつまっています。

全体のデータは
#XXX{Data double 8byte}{Data double 8byte}{Data double 8byte}.....
の様な形で {data}の部分は8byte double形式で書かれています。
最初に"#"
その後にデータの数の桁数
その後ろがデータの数
その後は8byte Doubleの数が並んでいます。
例：
#212{data}...({data}が12個)
　＾個数を表す数字が2桁の意味
　　＾{data}が12個あると言う意味

関数はCall ibrd( ID as Int , buf as String , count as long ) にてメモリからデータを
countのByte数だけbufに取り込める仕様です。
ibrd( id , buf , 1) '#の部分取得
ibrd( id , buf , 1) '桁数取得
ibrd( id , buf , N) '上記の桁数分だけ取得
for i = 1 to Num step 1 '上記の数分だけ{Data}を取得
　ibrd( id , buf , 8) '8Byteづつ取得する
next
この時、8byteづつ取得すると
変数 buf には String 形式で本来Doubleのバイナリ値がそのままつっこまれてしまいます。(ウォッチウィンドウで見ると空白など）
数字の1などが入っていればCdbl(buf)でいけるのでしょうが、
型がStringで中身のバイナリがDoubleになってる状況で、これをDoubleに直して数字を取得したいのですが
何か助言もらえないでしょうか？

766:デフォルトの名無しさん
08/05/12 21:00:48
RtlMoveMemoryとか使えばいいでね？

767:デフォルトの名無しさん
08/05/12 22:04:34
後はいちいち蒸し返すDQNが居るだけだな

768:デフォルトの名無しさん
08/05/13 01:36:36
>>764
甘いな

769:デフォルトの名無しさん
08/05/13 08:28:32
不正アクセスから、マクロ及びデータを守りたいのですが
パスワードの不正解析されても、データ等を守る方法はない？

770:デフォルトの名無しさん
08/05/13 12:27:06
不正解析というか、バイナリエディタで、パスワード上書きされたら終わりだしな。

771:デフォルトの名無しさん
08/05/13 12:34:14
本体から読み込む形にして、不正処理があったらOSから終了させれ
不正アクセスと断定できるなら、偽装データを渡したり

どこまで相手にするかにもよるけど、ある程度以上のｸﾗｯｶには対策立てられぬ
そもそもマクロ無効で覗かれたらエクセルじゃどうしようもないし、エクセルのパスは飛ばせる裏技あったような

772:765
08/05/13 18:42:38
>>766
遅くなりました。
情報ありがとうございます。
試してみます。

773:デフォルトの名無しさん
08/05/13 22:45:12
>>771
URLﾘﾝｸ(www.google.com)

774:デフォルトの名無しさん
08/05/14 02:04:38
>>769
できるよ。
以上。
↓次どうぞ

775:デフォルトの名無しさん
08/05/14 11:51:19
XP、EXCEL2003です。
シート上の図（Shape）を、すべて削除する方法を教えて下さい。
よろしくお願いします。

776:デフォルトの名無しさん
08/05/14 13:26:15
モジュールのインポートを一つずつやるのがめんどくさいんだけど、
これって、フォームとかと一緒にまとめられないの？

777:番組の途中ですが名無しです
08/05/14 15:48:05
>>775
forループで↓をActiveSheet.Shapes.Count分回せばいいかも
ActiveSheet.Shapes(i).Select
Selection.Delete
※iはループカウンタ

778:デフォルトの名無しさん
08/05/14 15:53:29
ループの必要はないよ
ActiveSheet.Shapes.Delete

779:775
08/05/14 18:14:41
>>777,778
レスありがとうございます。

780:デフォルトの名無しさん
08/05/14 19:09:02
>>778
ふーん、いろいろあんだねぇ

781:デフォルトの名無しさん
08/05/14 22:20:07
ＶＢＡを学ぶのにオススメの書籍などはありますか？
目的は、ある外部のデーターベースから、
ブックを開いたときに、選択した情報を効率的に
集めてくるみたいなものをつくりたいのですが。
因みにプログラムの経験はＶＢＡが2週間で、他の言語は知りません。

782:デフォルトの名無しさん
08/05/14 22:47:08
>>781
ごめん。まったく何を言ってるのかわからない。
みんなはわかるの？

783:デフォルトの名無しさん
08/05/14 22:48:32
データベースとの連携を中心にしたものなら、例えば

仕事に役立つ　Excel & Access データベース連携テクニック Softbank

といったものがあるけど、
これはある程度VBAを知っている事が前提なんで、やはり最初に入門を中心に勉強してからの方が良いんじゃね？

784:デフォルトの名無しさん
08/05/14 22:52:55
>>781
ExcelのVBAなんか覚えるよりデータベースの方が役に立つだろう？

785:781
08/05/14 22:57:39
ソフトバンクからでてる初めてのＶＢＡという本の内容は一応マスターしました。
>>783さんの挙げてくださった書籍の姉妹本だと思います。
しかし、Ｄｉｍが出てこなかったりして、結局出来るようになったことは
セルに色をつけたり足し算したりシートの名前を変えたりといったレベルです。
もっとレベルの高いＶＢＡを勉強したいです。
わかりにくくて申し訳ございません。

786:デフォルトの名無しさん
08/05/14 23:01:30
>>784
仕事で大量のデーターを扱うので、データーベースはきちんと扱えるようになりたいです。
ＳＱＬとかを勉強したほうがいいのでしょうか？
仕事とは別にＶＢＡを打てるようになって、ゲームとか作りたいです。
現時点のレベルは低すぎるわけなのですが・・・

787:デフォルトの名無しさん
08/05/14 23:09:09
>>786
仕事はデータベース
VBAは趣味のゲームで

788:781
08/05/14 23:12:13
>>787
すいません、ド素人なのでよくわからないのですが
データーベースという、ＶＢＡみたいなジャンルがあるのでしょうか？

周りにパソコンに詳しい人がいなくて困っています。
セクハラ酷いし。あぁ会社行きたくない・・・

789:デフォルトの名無しさん
08/05/14 23:14:35
>>788
自分でデーターベースからブックを開くと言ってたじゃないか。

790:デフォルトの名無しさん
08/05/14 23:25:06
visual basic6ぐらいのデータベース連携の本買って
vbaに関してはエクセルのヘルプよく読め

791:デフォルトの名無しさん
08/05/14 23:26:11
無料のRDBが沢山有る現在でも、周囲に詳しい人間が居ない状況でデータベース勉強するのはしんどいぞーーーー

792:デフォルトの名無しさん
08/05/14 23:44:05
VBAでゲーム作る奴は変態

793:781
08/05/14 23:45:46
なるほど、自分がやるべきことがわかってきました。
親切に答えてくれた方々、ほんとうにありがとうございました。

794:デフォルトの名無しさん
08/05/14 23:48:05
>>792
しかしVBAの正しい利用方法だ。

795:デフォルトの名無しさん
08/05/15 07:44:28
>>789
お前、馬鹿

796:デフォルトの名無しさん
08/05/15 07:55:47
>>788
年上のお姉さんに当てられたり、美少女の後輩にまさぐられたりする職場なんですね、俺と変わってくれ

797:デフォルトの名無しさん
08/05/15 08:00:39
データベース/SQL使うんなら、
ExcelVBAより先にAccessのクエリー/マクロ/レポートを覚えた方が金になるぞ

798:デフォルトの名無しさん
08/05/15 08:15:17
このスレではVBAでソートを作る方法を質問するといいよ。

799:デフォルトの名無しさん
08/05/15 09:46:13
Vista、EXCEL2007です。

EXCEL2003(XP)で作成したマクロを動かすと動作が異なっています。

<コード>
Range("A5").Select
ActiveSheet.Pictures.Insert( _
"D:\abc\pic1.JPG").Select
Range("A21").Select
ActiveSheet.Pictures.Insert( _
"D:\abc\pic2.jpg").Select

<現象>
(1)Vistaでは、pic2の画像が、A21の個所でなく、A5の個所に挿入されます
　　(pic1の上に重なって）
(2)Vistaで、セルを選択して、画像挿入する操作をマクロ記録すると
Range("A21").Selectは記録されてますが、
ActiveSheet.Pictures.Insert("D:\abc\pic2.jpg").Selectが
　記録されていません。

上記プログラムで、pic2をA21の箇所に挿入できるようにするには
どうすれば良いのでしょうか。
よろしくお願いします。

800:番組の途中ですが名無しです
08/05/15 14:03:07
Excel2003のVBAでcontinue forが使えないのは仕様ですか？

801:デフォルトの名無しさん
08/05/15 16:56:49
>>799
スクロールの問題……じゃないよな

802:デフォルトの名無しさん
08/05/16 15:32:49
Excel2000

シート上に
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
で生成したチェックボックスのみを削除するプログラムを
実行すると

アプリケーション定義またはオブジェクトの定義エラーです

というメッセージが出ます。 s.FormControlType のところで
エラーが出ているのですが、どうやったら動くようになるのでしょうか？

Dim s As Shape

For Each s In Sheets("sheet1").Shapes
If s.Type = msoOLEControlObject Then
If s.FormControlType = xlCheckBox Then
s.Delete
End If
End If
Next

803:799
08/05/16 17:00:43
>>801
レスありがとうございます。
スクロールの問題ではありません。
(1)の現象になったので、
マクロと同じ操作をして、マクロ記録してみたら
(2)になりました。

804:デフォルトの名無しさん
08/05/16 18:30:33
>799
WorkSheet.Shapes.AddPicture(...)　かな？

試してないけど
ActiveSheet.Pictures.Insert( "D:\abc\pic1.JPG").Top = Range("A5").Top
ActiveSheet.Pictures.Insert( "D:\abc\pic2.jpg").Top = Range("A21").Top

805:799
08/05/16 20:29:24
>>804
レスありがとうございます。
うまくいきました。

806:デフォルトの名無しさん
08/05/16 20:37:24
30125なら上位3桁だけとって、ﾞ30100ﾞから100刻みで表示させたい。
0.002354ならﾞ0.00235ﾞから0.00001刻みでグラフの軸に表示したいのです。
何かよい方法はありませんでしょうか？

807:799
08/05/16 20:47:07
>>804
別質問ですけど、
804で挿入したオブジェクトのnameは、
どのようにすれば取得できるのでしょうか。

808:デフォルトの名無しさん
08/05/16 23:37:41
仕事でマクロを使って制御のシミュレーションをしたいのですが
１つのプロシージャ内でループ演算をしつつ、他のプロシージャを実行して
変数を変更したいと考えています。
複数のプロシージャを並列処理できる方法はないのでしょうか？

809:デフォルトの名無しさん
08/05/17 00:12:29
ActiveX　EXEを作れば可能。
Win32APIのスレッドも使えるかもねー

810:デフォルトの名無しさん
08/05/17 01:15:28
既出だったらすみません。

excel2000＋winXpで開発してるんですが、
処理を走らせるとメモリの使用率がたまる一方で
解放されている気配を感じません。

しまいにはメモリが足りませんとエラーになり
落ちてしまいます。

助けて！！１

DAO3.6使ってるんですが関係しますかね？
メモリを解放する方法ってありますか？？

811:デフォルトの名無しさん
08/05/17 06:59:32
>>810

DoEvent とか
動的配列を使ってるなら必ずeraseするとか

812:デフォルトの名無しさん
08/05/17 08:39:43
>806
刻み幅等を計算する方法を知りたいというのが主旨かな？

30125の常用対数は、log(30125)/log(10) =4.47892705558292
切り上げて、5
上位３ケタだけ取るので、刻み幅は、10^(5-3)=100

切り上げは、round(x-0.5)+1　という感じかな。

813:デフォルトの名無しさん
08/05/17 10:29:50
>807
古い環境が無いんで試せてないけど
Dim　Pic1　As　Picture
Dim　Pic2　As　Picutre

Set　Pic1　=　ActiveSheet.Pictures.Insert(　"D:\abc\pic1.JPG")
Pic1.Top　=　Range("A5").Top　
Range("A4").Value　=　Pic1.Name
Set　Pic2　=　ActiveSheet.Pictures.Insert(　"D:\abc\pic2.jpg")
Pic2.Top　=　Range("A21").Top　
Range("A20").Value　=　Pic2.Name

814:デフォルトの名無しさん
08/05/17 14:03:34
>>808
複数のExcelインスタンスを起こして、マルチプロセスでやれば？
これならWin32APIなんか使わずにできるが

815:デフォルトの名無しさん
08/05/17 19:17:01
timer使え

816:デフォルトの名無しさん
08/05/18 14:10:29
ループの中でたのプロシージャを呼び出せばいい
灰次

817:デフォルトの名無しさん
08/05/18 23:31:42
マクロでNORMDISTを使いたいんですが、エラーが出てしまいます。

マクロではどのように記述すればNORMDISTは使えるのでしょうか？

誰か教えてください

818:デフォルトの名無しさん
08/05/19 11:05:13
Excel2000上で動的に配置したチェックボックスにイベント処理を追加したいのですが
方法がわかりません。ヒントだけでもいいのでお願いします。

819:デフォルトの名無しさん
08/05/19 16:39:14
>>818
classモジュール使えばできるよ

820:デフォルトの名無しさん
08/05/19 16:46:45
>>817
ヘルプの例で言えば、

42　対象となる値
40　分布の算術平均(相加平均)
1.5　分布の標準偏差

WorksheetFunction.NormDist(42, 40, 1.5, True)

で、いいんじゃない？

821:デフォルトの名無しさん
08/05/19 20:24:01
実行時エラー'1004'が出ます。
コマンドボタンで、
Workbook Open "C:\-.xls"
Worksheets("a").Select
Range("A20").Select

と入力し別ファイルのシートのセルを選択したいのですが、
どのように直せばいいか、教えていただきたいです。
よろしくお願いします。

822:デフォルトの名無しさん
08/05/19 21:26:10
>>821
ちゃんと目的のbookが開いているなら、シート名「a」のシートがあれば問題ないよ

823:デフォルトの名無しさん
08/05/19 21:55:45
>>821-822
シート上に置いたコントロールツールボックスのコマンドボタンならそんなんでまともに動くわけねーよ。
シートや範囲をちゃんとブックから明示しないと。

824:822
08/05/19 22:04:21
>>823
なるほど、シート上に置いたコントロールツールボックスのコマンドボタン
おまい天才！
スレ汚しｽﾏｿ

825:デフォルトの名無しさん
08/05/20 20:21:39
>>823のなかなかのエスパーぶりに嫉妬

826:デフォルトの名無しさん
08/05/20 21:28:05
別に>>823は普通だろ？
Formのコマンドボタンなら>>821でも動くだろうが、どこに書いても同じように動くコードを書かんとね。

827:デフォルトの名無しさん
08/05/20 23:30:47
>>826
どこに書いても同じように動くコードを書く必要はない
コードを書いたクラスでまともに動けば問題ない

828:デフォルトの名無しさん
08/05/21 00:21:17
質問させて頂きます。

デジタル署名付のVBAプロジェクトで、
ブックオープン時にオラクル接続をし、
オートシェイプで線を引くという処理をしております。
処理後、シートを見るとオートシェイプで描いた線の色がありませんでした。
プリンタで出力すると、線が描かれております。
原因と対処法を教えてください

【OS】windows XP pro
【EXCEL】2003

【処理内容】

Dim OraSession As Object
Dim OraDatabase As Object

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TNS", "USER/PASS", ORADB_DEFAULT)

Set OraSession = Nothing
Set OraDatabase = Nothing

ActiveSheet.Shapes.AddLine(98.25, 151.5, 150#, 159.75).Select

といったかんじです

829:デフォルトの名無しさん
08/05/21 01:40:10
>>828
オラクル関係なくね？
接続して閉じてるだけだろ？
それとも、オラクルに繋がなければ問題は解消されるの？

830:826
08/05/21 07:43:54
>>827
そりゃ確かにそうだね。
冗長な記述を避けるためにもMeとか書かんからね。
>>821のコードに関してはということ。

831:826
08/05/21 07:46:16
Me.を書かんことはちょっと違うか。
まどうでもよい。

832:デフォルトの名無しさん
08/05/21 07:59:09
書式設定指定したら？

833:デフォルトの名無しさん
08/05/21 17:42:10
XP、EXCEL2003です。

特定のディレクトリの直下にあるファイル（複数）のファイル名を
全て取得する方法を教えて下さい。
よろしくお願いします。

834:デフォルトの名無しさん
08/05/21 17:49:26
>>833
ちょこちょこ質問掲示板見てると週に1回は遭遇する質問
ググれば腐るほどコードがある
個人的にはfilesystemobjectを使うのが一番効率いいと思う

835:833
08/05/21 19:20:12
>>834
レスありがとうございます。
失礼いたしました。

836:デフォルトの名無しさん
08/05/21 21:22:28
fsoはネットワークドライブ相手だったりするとテキメンに
速度が落ちたりするから困る。
　あと、ワイルドカードが無いのはどーゆーことだ。

837:デフォルトの名無しさん
08/05/21 23:21:02
>>836
独り言はチラシの裏に書け

838:デフォルトの名無しさん
08/05/22 06:44:14
�確かfsoは、クエリとってからのファイル追加や削除、内容変更に
伴う更新もかなりの直近まで自動的に更新してくれる中々の
優れモンだったという記憶が....
Kernel32.DLL のAPIを使って自分でクエリした場合は、
ファイル数が多く、激しく更新されるような場合は、取得情報と
実態の間に食い違いが発生してユーザーはパニくるのがオチなんだが
（これもチラ裏に書くべきだったか)

839:デフォルトの名無しさん
08/05/22 18:21:06
わざわざfsoやapi使わんでもDir()関数使えばよい

840:デフォルトの名無しさん
08/05/22 21:25:32
Dirだとパスの長さが255以上になると確かエラーになる。

841:デフォルトの名無しさん
08/05/23 13:23:12
sage

842:デフォルトの名無しさん
08/05/23 23:07:41
OS:win xp
excel:2007

初めて質問します。お願いします。

　・データ用のシート
　・処理用シート

の二つを用意します。

データ用シート
　　　　店舗→　Ａ　　　Ｂ　　　Ｃ
　商品↓
　りんご　　　100　　200　　300
　みかん　　　10　　20　　　30
　めろん　　　　1　　　2　　　　3

処理用シートのＡ１，Ｂ１のセルに店舗と商品を書き込むと、データ用のシートを参照して、
そのシートに書かれた数値（例えば、上記の表の「Ａ店（＝Ａ１）」の「みかん＝Ｂ１」だと「100」）が、
処理用シートのＣ１（「＝100」が）に入るようにしたいです。
店舗、商品は任意で追加していきたいので、データ用シートの列、行を検索していくようなやり方がいいのでは、
と考えています。

調べて、VLOOKUP関数を使えば…、というところまで来たのですが、二点のセルの値を見て、
表から一つの値を出力する、というところがわかりません。
何卒、ご指導の方、お願いします。

843:デフォルトの名無しさん
08/05/24 00:01:34
>>842
VBAに関係ないと思うのだが。
vlookup以外にもlookupやmatchもあるんだから何とかなるだろそれくらい。

844:デフォルトの名無しさん
08/05/24 00:16:49
なんとかするのがお前たちの仕事だろ。

あのな、上から目線もいいけどここはVBAに詳しくない奴らが
何をどうやったらいいかを聞きにきてるスレなわけ。
その手ほどきをしてやった上でそういうこと言うならいいけど、
回答も示さずにそういうこと言うのは荒らしとかわんねーんだよ。
こたえる気が無いなら質問スレから消えろよカスが。

↓じゃ、模範的回答を頼む

845:釣られてみる
08/05/24 00:26:30
いや、それだけの情報でVBAでどうしろと。

846:デフォルトの名無しさん
08/05/24 03:07:26
スレタイ読め。ここは質問スレであって回答スレではない。

847:デフォルトの名無しさん
08/05/24 03:09:22
>>846
こいつ頭悪そうだな（ゲラゲラ

848:デフォルトの名無しさん
08/05/24 07:33:50
>>842
いろんなやり方があると思うけど、私がスマートだと思うのを提案します。

データ用シートをこんなふうにする。
ID 店舗商品値段
Aりんご A りんご 100
Aみかん A みかん 10
Aめろん A めろん 1
Bりんご B りんご 200
Bみかん B みかん 20
Bめろん B めろん 2
Cりんご C りんご 300
Cみかん C みかん 30
Cめろん C めろん 3

IDの列は数式で作る。Aりんごのところに
=B2&C2
としてオートフィルで。

849:デフォルトの名無しさん
08/05/24 07:53:02
つづき

処理用シートで
C1には
=A1&B1

D1には
データ用シートはSheet1にあるなら
=VLOOKUP(C1,Sheet1!A:D,4,FALSE)
としてできあがり。

850:デフォルトの名無しさん
08/05/24 08:12:05
>>842
C1に
=index(「データの範囲」,match(B1,「商品名の範囲」),match(A1,「店舗名の範囲」))
と入れる

これVBAじゃないから、次からはEXCEL総合相談スレの方へ行ってくれ

851:デフォルトの名無しさん
08/05/24 10:55:08
VBA初心者ですが質問させて下さい。
Module1で宣言したパブリック変数をThisWorkbookで参照する事はできないのでしょうか。

状況を説明しますと、nullpo.xlsというマスターファイルがあります。
その中のModule1で処理を実行すると、public変数をインクリメントします。

"名前を付けて保存時"の保存ダイアログで、あらかじめ表示されるファイル名に
そのpublic変数を出したいのですがうまくいきませんでした…

852:851
08/05/24 13:22:46
ｸｽﾝ…終わらないと帰れないんです
みなさんの力を貸して下さい。

言い忘れましたがわたしは女です。

853:デフォルトの名無しさん
08/05/24 13:26:25
>852
俺が何でも答えますよ
もうちょっとしたら家に着くから待っててね

ところで今日は帰ったらどうするの？
汗かいちゃったってシャワーでも浴びるのかな？かな？

854:851
08/05/24 13:34:41
>>853
ありがとうございます。
彼氏と待ち合わせしてるんです。

855:デフォルトの名無しさん
08/05/24 13:39:32
ＶＢＡを自由自在に扱うために、ＶＢの勉強をしようかと思うのですが
ＶＢの種類が多すぎてどれを勉強したらいいのかわかりませんでした。
ＶＢＡのためにＶＢを勉強するには、どのＶＢを勉強すればいいのでしょうか？

856:853
08/05/24 13:41:43
死ね。お前に教えることは何もない
自分でどうにかするんだな

857:853
08/05/24 13:42:33
856は>854宛てな

858:851
08/05/24 13:59:41
そんな…

他スレで質問することにします。
すみませんでした。

859:側近中の側近 ◆0351148456
08/05/24 15:22:18
>>853
(っ´▽｀)っ
独身の女の子には優しいのね。最低☆

860:側近中の側近 ◆0351148456
08/05/24 15:23:00
>>855
(っ´▽｀)っ
VBAならVB6.0だね。

861:デフォルトの名無しさん
08/05/24 15:25:38
>>856
手のひら返しワロス

862:デフォルトの名無しさん
08/05/24 15:29:18
>>851
そのpublic変数値を返す、public関数でも作れば？

つか、ダイアログに値をいれて有効にする処理が出来てないだけの気がするが…

863:855
08/05/24 15:29:35
>>860
ありがとうございます。

864:デフォルトの名無しさん
08/05/24 15:39:20
>>860

VB6.0やVB.NETをVBAを使えない人に勧めちゃらめどちらも超ベテラン向けだよ
VBScript位しか残らないけど、VBAとはちょっと合わないかも知れないね。
やっぱしVBAはVBAで覚えるしかないのかな（鬱

865:デフォルトの名無しさん
08/05/24 16:18:52
VBAを覚えたいのにVBAを利用しない意味がわからない

866:デフォルトの名無しさん
08/05/24 21:16:49
>>842
商品と店舗の組み合わせが疎であるなら>>848の方法
組み合わせが密であるなら>>850の方法がいいだろうね。

ところで解決したのかどうか反応がほしいもんだね。
コミュニケーションしようや。

867:デフォルトの名無しさん
08/05/24 21:25:26
>>865
これほんとにその通り。
なんでVBAを覚えるためにVBを覚えたいなんて言うのかな。
VBを覚えたいんだって素直に言えばいいのに。

868:デフォルトの名無しさん
08/05/24 21:29:23
VBってMSDNライブラリ使えるの？

869:デフォルトの名無しさん
08/05/24 21:38:17
VBAを体系的に勉強するのにいい本とかありますか？

870:デフォルトの名無しさん
08/05/24 21:46:29
実戦力UP! Excel VBAドリル式問題集

871:デフォルトの名無しさん
08/05/24 21:47:13
ＶＢＡとはマクロの記録で泥縄式に覚えていくもんだ

872:デフォルトの名無しさん
08/05/24 22:46:45
エクセル２００３で上の行から数字が入ったセルだけをｍ個
選んで加えるＶＢＡをうちたいんですが、上手くいきません。

for a = 1 to 100
m = cells(3 , 3)
b = cells(1 + k + a , 1 )
k = 1
s=1
do while s =< m
if b <>"#na n/a" then
b = b + cells(1 + k + a + s , 1)
k = k + 1
s = s + 1
else
k = k + 1
loop
next

いまこんな感じで打ってるのですが、 if b <>"#na n/a" then
のところで止まってしまいます。
どこがおかしいのでしょうか？
また、もっといい方法はありますか？

873:デフォルトの名無しさん
08/05/24 23:21:29
>>872
「数字が入ってるセル」なら条件をb≧0にすれば？

874:デフォルトの名無しさん
08/05/24 23:33:33
負の数は数字ではないと？

875:デフォルトの名無しさん
08/05/24 23:38:47
kとsを+1しているがループするたびに初期値が1に戻るぞw
あと、b = cells(1 + k + a , 1 )の部分、1回目の処理でkの値が判らない。

876:デフォルトの名無しさん
08/05/24 23:39:42
application.run "abc"
msgbox "zzz"

abcマクロの完了の後に、ダイヤログボックスにzzzを表示したいのに、
即行でzzzが表示されてしまう。
同期をするようにするには引数か何かを入れるのでしょうか？

877:デフォルトの名無しさん
08/05/24 23:40:54
>>873
なるほど。そういう方法がありましたか。
ありがとうございます。

>>874
負の数は存在しないデータなので、大丈夫だと思います。

エラーがでた原因がわかる方はいらっしゃりましたら、お答えいただきたいです。

878:875
08/05/24 23:42:23
ごめん入れ子になってたんだな。最初のforしか見てなかった。

879:デフォルトの名無しさん
08/05/24 23:43:21
end ifが無いな

880:872
08/05/24 23:43:44
>>875
すいません初心者なもので、いまいち意味不明です。
勉強して理解したいとおもうのですが、参考までにどういった
勉強をすればいいか教えてください。
オススメの本、サイト等等・・・

881:デフォルトの名無しさん
08/05/24 23:46:56
>>877
<>"#na n/a"
エラー値でなければって条件と思っているのであれば間違い。
エラー値かどうかを調べたいのならiserrorを使う

882:872
08/05/24 23:47:24
for a = 1 to 100
　 m = cells(3 , 3)
　b = cells(1 + k + a , 1 )
　 k = 1
　s=1
　　do while s =< m
　　 if b > 0 then
　　　b = b + cells(1 + k + a + s , 1)
　　　k = k + 1
　　　 s = s + 1
　　 else
　　　k = k + 1
　　 end if
　　 loop
next

これで大丈夫でしょうか？

883:デフォルトの名無しさん
08/05/24 23:48:51
>>881
そういうことでしたか。
iserrorという存在を知りませんでした。
勉強不足でした。
ありがとうございます。

884:デフォルトの名無しさん
08/05/24 23:53:46
> if b <>"#na n/a" then
これエラーなんか出ないよ
意図したとおりには動かないかもしれないけど

885:デフォルトの名無しさん
08/05/24 23:57:29
根本的な間違いがあった

for a = 1 to 100
　 m = cells(3 , 3)
　b = cells(1 + k + a , 1 )
　 k = 1
　s=1
　　do while s =< m
　　 if cells(1+k+a+s-1 > 0 then
　　　b = b + cells(1 + k + a + s , 1)
　　　k = k + 1
　　　 s = s + 1
　　 else
　　　k = k + 1
　　 end if
　　 loop
next

すいませんでした。

886:デフォルトの名無しさん
08/05/25 00:18:54
まあなんだ
ちょっと落ち着け

887:デフォルトの名無しさん
08/05/25 12:04:28
シートコピーで悩み事があるので打開策を見つけられたらと思い書きこまさせていただきました。
どなたかお助けいただけたらうれしいです。
VBAにてシートコピーに要する時間が長くて（１０分以上）悩んでおります。

Bookの構成といたしまして標準モジュールに数式文字列を評価するものを
かいてあります。

Function Eval(ByVal expr As String)
Eval = Evaluate(expr)
End Function

・Sheet1には、様々な経理データを入れるようにしてあります。
そこに入れた値などを元にセル名を作るように書いてあります。

例）A1に”1”という値でB1に”2”という値が入っていればA2のセル名を”12”
とします。

・Sheet2には予めセルに=eval(12)の様な数式をいれ評価をしております。
これが１枚のシートに2000くらい数式が入っています。

Sheet1、2ともに特定条件のとき複製を何枚か作ります。
このときすごく時間がかかります。
原因は数式が大量にあるものをコピーすること及びセルに名前をふっているのが原因なのは分かりますが
コピー以外の動作が非常に快調なので変えたくないということとたぶんeval以外での解決策を模索するのはかなり時間を要しそうなのでコピーを何とかする方を選びたいです。
もちろん再計算の停止などはしてあります。
事前に特定条件を作りだしシートを非表示にしておき特定条件のときに表示させるのも
一つの手ではありますが何百枚もシートを隠しておくとファイルサイズがばかでかくなるという
難点もあって躊躇しています。
例えば=eval(@@@@@@)を多く入れたのが原因であれば標準モジュールを何らかの形でいったん無効にすれば早くなるのかとかスクリプトなどを使って別のブックからシートを移動させるなど・・・・他の代替案はありえないでしょうか？
何分わかりづらい質問で申し訳ありませんが、ご回答いただければ幸いです。
よろしくお願いします。

888:デフォルトの名無しさん
08/05/25 12:11:58
まず計測しろよ。んで、遅い原因を特定してから、もっとわかりやすい文章で再質問な。

889:デフォルトの名無しさん
08/05/25 12:58:21
自動計算やめてシートコピー

890:876
08/05/25 13:03:06
>>887
質問する方のレベルのものが下手なレスをつけるのもどうかと思うが、
設問説明に既に回答があるような･･･
経理処理なのでシート数が大量となるのはある程度やむを得ないでしょうが、
それにしても、１０分というのはかかりすぎというか、長いですね。
１　object.enablecalculation=falseを設定されていると言うことですが、
必要なシート全てにされているかどうか
２　通常、速度を速める常套手段の
application.screenupdating=false
application.visible=false
application.enableevents=false
で、どうなるか試してみたらいかがでしょう

私の質問は解決しました。
直列処理のはずが、並行処理になったのかとの疑問からでしたので。

891:デフォルトの名無しさん
08/05/25 16:55:25
>>887
どこかで見たような質問だな
何でそんなおかしなことするの？

892:デフォルトの名無しさん
08/05/25 16:59:47
>>887に回答する人は次を見てからにしてね
URLﾘﾝｸ(www.moug.net)

893:釣られてみる
08/05/25 17:02:02
>>887
別にここはブック提示禁止じゃないから晒してみたら?

894:デフォルトの名無しさん
08/05/25 17:05:09
' ただの荒らしのコピペじゃないかと疑い始めた

895:デフォルトの名無しさん
08/05/25 17:27:39
なんだ、二週間前の話じゃねーか。
第三者によるコピペの疑い濃厚だな。
しかし、誰もプロファイリングしろというアドバイスしないって、mougってどんだけ素人集団なんだよ

896:デフォルトの名無しさん
08/05/25 17:30:54
あー、ひょっとして、シートを一枚sheet.copyで10分かかるってことか？
だったら、プロファイリングも糞も無いな

897:デフォルトの名無しさん
08/05/25 18:13:57
プロファイリングっていうの初めて聞いたorz

898:デフォルトの名無しさん
08/05/25 22:50:47
マルチなら放置
荒らしのコピペなら放置

どっちにしても放置だな

899:デフォルトの名無しさん
08/05/25 23:12:29
セルに記載されている文字列を変数名として認識させる方法はありますでしょうか？もしくは無理ですか？

(1,1) に hoge って文字列が入っていて、VBAの記述内に、
cells(1,1).value = 100 　'←これは当然上書きされますが・・・。
のように、変数名として取得して代入が出来たら良いな。と考えております。

なにとぞよろしくお願いします。

900:デフォルトの名無しさん
08/05/25 23:16:16
aaa(1,2,3)
bbb(1,2,3)
2個の同一の配列があるのですが、この二つが同一であるかの判定について質問させてください。

今は配列長を取得して、forで繰り返してaaa(i) = bbb(i) と1要素ずつ判定しているのですが、
もっとシンプルに、行数を少なく判定する方法はありますでしょうか。アドバイスお願いしま！！！

901:デフォルトの名無しさん
08/05/25 23:21:29
>>899
hogeをどこにも使ってないじゃないか。

>>900
原理的に全要素を比較するしか判定のしようがないから、今の方法でいいんじゃない？

902:VBAの初心者
08/05/26 01:57:42
VBAで配列によって書き込む練習をしているのですが想像力が無くどうやってうまくやればいいのか悩んでます。
どなたかヒントをいただけないでしょうか。

この表のような規則と二つの数式を入れたいのですがどうやったらいいでしょうか？
よろしくおねがいします。

URLﾘﾝｸ(briefcase.yahoo.co.jp)

903:デフォルトの名無しさん
08/05/26 02:31:24
>>899は>>887のような気がするのは俺だけ？
馬鹿さ加減が似てるんだが。

904:デフォルトの名無しさん
08/05/26 02:38:50
言葉遣いは似てるね、無駄に敬語とか

905:デフォルトの名無しさん
08/05/26 06:21:48
>>899
Common Language Runtime Library を参照設定して
Dim ht As Hashtable
Set ht = New Hashtable

詳しい使い方は
URLﾘﾝｸ(homepage1.nifty.com)

別にScripting.Dictionaryでもいいんだけどね。

文字列と添え字のどちらでも変数にアクセスしたいなら
SortedListを使えば可能。

906:デフォルトの名無しさん
08/05/26 06:37:27
>>900
joinして比較

907:デフォルトの名無しさん
08/05/26 07:19:32
それやるならデリミタを変数中に絶対出てこない文字にしておけよ

908:デフォルトの名無しさん
08/05/26 10:41:35
一応ExcelVBAの質問です

プログラム実行中に、ユーザーフォーム上のimageの表示・非表示や、
ラベルのキャプションの変更することは出来ないのでしょうか？

実行中に内容が変更できるオブジェクトはprogressbarのみですか？

909:デフォルトの名無しさん
08/05/26 18:21:24
連投、誠にスマンです

VBAで、作業用シートを作成して、ソートとか
色々やった後、用が済んだらシートを削除するようなプログラムを作って
いるのですが、

sheets(hoge).delete

の後、必ず「データあるけど削除してOK？」っていうダイアログが出てしまいます。
このダイアログに自動的にYesで答えて、プログラムを中断しないように
出来ないでしょうか。

910:デフォルトの名無しさん
08/05/26 19:21:36
なんちゃらAlear = false

911:デフォルトの名無しさん
08/05/26 19:30:16
tが抜けてたorz
DisplayAlertsでヘルプ嫁

912:デフォルトの名無しさん
08/05/26 20:19:11
>>908
UserForm1.Label1.Caption = "testtest"
表示・非表示なら多分　～.visible = true とか false とかで逝けるんじゃね？

913:デフォルトの名無しさん
08/05/26 21:08:10
>>910
ありがとうございます！
できました。

>>912
プログラムが走っている最中は、フォームの画面更新が
行われないようで、それらが効かんです(T-T

914:デフォルトの名無しさん
08/05/26 21:36:25
Screenupdating=falseが入っていたら画面の更新はされないが、そういうオチか。

915:デフォルトの名無しさん
08/05/26 22:32:05
>>913
ループにDoEvents

916:デフォルトの名無しさん
08/05/26 22:38:57
ちなみに、DisplayAlertsもScreenupdatingもマクロの最後でちゃんとTrueに戻すのが基本だからな

917:デフォルトの名無しさん
08/05/26 23:43:01
質問失礼します。

新しいシートを作成→そのシートにスクリプトやイベントを埋め込む

を自動でやるにはどうしたらよいですか？
もちろん埋め込みたいスクリプト等は事前に作成しておくものとします。
どうすれば、それを新しいシートに埋め込む操作ができますか？

お手数をおかけします。よろしくお願いいたします。

918:デフォルトの名無しさん
08/05/27 00:04:19
1. そのシートにスクリプトやイベントを埋め込まなくてもいいような設計にする
　Workbookオブジェクトにどんなイベントがあるか調べてそれをググれ
2. 今は亡き、石井勝氏のありがたいページを熟読する（合掌）
　URLﾘﾝｸ(www.morijp.com)
3. ここまでで大抵の問題は解決するはずだが、それでも足りない場合は、動的にコードを追加しろ
　vbcomponetでググれ

919:デフォルトの名無しさん
08/05/27 00:08:53
ちなみに3を推奨しないのは、それを実行するPCグローバルなExcelの設定を変更する必要があるから。
マクロの信頼性とは別に、「Visual Basicプロジェクトへのアクセスを信頼する」という設定をしなければならない。

920:デフォルトの名無しさん
08/05/27 00:37:37
>>917
・Class1を作って、Public WithEvents sh As WorkSheetを追加
・ThisWorkBookのモジュールに、Dim o As Class1を追加
・ThisWorkBookのWorkbook_SheetActivateで、
　・Set o = New Class1
　・Set o.sh = sh
・Class1のsh_SelectionChangeで、
　・MsgBox Target.Parent.Name & "!" & Target.Address

似たような感じで、各シートのモジュールにコードを追加することなく、イベントハンドらを
実装できる。あとは、Class1のo.shやら、ActiveSheetやらで、各シートのモジュール外に
コードを実装しろ。シートごとに違う処理をする場合は、sh.Nameとかで振り分けろ。

921:デフォルトの名無しさん
08/05/27 00:59:11
>>917
新規に埋め込まなくても、雛形シートをコピーした新しいブックを作って解決

922:デフォルトの名無しさん
08/05/27 01:23:29
チンコが大きくなるマクロを作ったはいいんですが、どうやって呼び出したらいいんですか？

923:デフォルトの名無しさん
08/05/27 01:26:59
>>922
ああ、それさっきコンパイルしたら「オブジェクトが小さすぎます」ってコンパイルエラー出たよ

924:デフォルトの名無しさん
08/05/27 08:15:42
連続質問になってすんません…セル名が変わらんくて困っとります。原因がさっぱりどす…If Worksheet("Sheet1").Range("A1").value = 1 Then
For i =1 to 20
Worksheet("Sheet1").cells(1,i).name = "mid"&cells("B",i).value
Next i
End if
Next

925:デフォルトの名無しさん
08/05/27 09:05:37
何をやってるのかさっぱりどす
Worksheet("Sheet1").cells(1,i).Name.Name

926:913
08/05/27 09:18:33
>>914-916
ありがとうございます。
Do Events を試して見ます！

927:デフォルトの名無しさん
08/05/27 10:09:15
A1の"セル名"を変えるには、range("A1").value = "ほげ"
どすえ。

928:デフォルトの名無しさん
08/05/27 11:04:14
Excel一般の質問ではないのですが、ExcelVBAのリストボックスの
中身の上下スクロールをマウスのホイールに連動させることは
出来ないのでしょうか？

ググってみたのですが、分かりませんでした。

929:917
08/05/27 15:59:44
>>918-921
ありがとうございます！勉強になりました。
とりあえず一番簡単な921さんの方法を試してみますね。

930:デフォルトの名無しさん
08/05/27 16:02:04
ネタでも「変わらんくて」と言う奴が死ぬほど嫌いだから絶対教えない。

ら抜き言葉でもブチ切れそうなのにさぁ、どうしてわざわざ”な”を”ん”に
置き換えるんだよ最近のゆとりどもは。書いてて違和感ねーのか糞が。

931:デフォルトの名無しさん
08/05/27 16:06:07
>>930
基地外乙ｗ
単にローマ字入力でAが抜けたTypoだろ

932:930
08/05/27 17:00:52
>>931
いや、「分からんくて」「変わらんくて」「倒せんくて」
とか書き込む奴はかなり多いぞ。
そういう言い回しが流行ってんのか？ってほど。
年齢層の低いスレ覗いていないと分からんくても
仕方ないけど…

>>932
＞分からんくても
死ね

933:913
08/05/27 17:11:05
ユーザーフォームの更新の件、DoEventsでいけました
ありがとうございました

>>932
それは関西弁っていう日本ではメジャーな言語

934:デフォルトの名無しさん
08/05/27 18:43:46
35才の関西人だが「…くて」は割と使う。
>>930はもう少し視野を広げてみてはどう？

935:デフォルトの名無しさん
08/05/27 19:56:10
テンプレみたらＮＧ質問のようだが、適当なスレが見付からないので教えてください。

ExcelBVAのテクニックは大体わかります。
しかし、「Excelを起動するとVB？が起動し、ユーザーフォームとExcelが分離している状態」
のプログラム技術を身につけたいと思っています。

これを会得するには、やっぱりVBの知識と多大なる努力が必要なんでしょうか？

936:デフォルトの名無しさん
08/05/27 20:19:11
24歳の関西人の俺はつかわない
だがそんなことにマジ切れすとか、情緒不安定なんじゃね？

937:デフォルトの名無しさん
08/05/27 20:49:46
>>935
VBAでできる。
どれくらいの努力が必要かは、君のセンスと知力に依存するので誰も答えられない。

938:デフォルトの名無しさん
08/05/27 20:54:29
>>935
できない私が言うのもなんだが、そんなことできて何がいいの？

939:デフォルトの名無しさん
08/05/27 20:55:50
ユーザーフォームって、マウスホイールに対応してないとか
使いづらいんじゃないすか。

>>936
「マジ切れす」？また怒られるぞ！

940:デフォルトの名無しさん
08/05/27 22:31:35
>>937
うおお、マジですか、VBAでできるの？
怒られそうだがさらに質問。

どうやんの？メニューバーとかどーみてもVBっぽかったけど。

941:デフォルトの名無しさん
08/05/27 22:34:41
>ExcelBVAのテクニックは大体わかります。
>ExcelBVAのテクニックは
>ExcelBVA

ExcelVBAを知らないんだからしょうがないよな

942:デフォルトの名無しさん
08/05/27 22:39:26
エクセルを隠すだけなら

' Excel本体は隠す

Private Sub UserForm_Initialize()

Application.Visible = False

End Sub

やりたいのはこういう事？

943:デフォルトの名無しさん
08/05/27 22:51:25
そうじゃなくて、エクセルを使わずに、フォームだけで何かを
構築したいという事でしょ。

944:デフォルトの名無しさん
08/05/27 22:53:16
>>930
関西人を馬鹿にしとるんかわれぃ！

次ページ