1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2010/01/06(水) 12:34:58

0372デフォルトの名無しさん

2010/02/22(月) 11:02:40

>>371
出来ました
ありがとう

0373デフォルトの名無しさん

2010/02/22(月) 12:56:33

ソートの話の続きなんだけど、
一次配列100個の右４文字を昇順でソートするっていう場合は記述するしかないんじゃない？

0374デフォルトの名無しさん

2010/02/22(月) 14:36:56

>>373
セルに入れたくないならそうだろうね
でもエクセルを使ってるからには
どのみちセルにぶち込むデーターなんだろうし
右４文字を取り出した列を作ってやればいいんでない？

0375デフォルトの名無しさん

2010/02/22(月) 18:47:48

なぁ、EXCEL2000から2007に最近環境を変えなきゃならんオレに
表示とか環境設定みたいなのどうしてるか教えろ。

取り敢えず立ち上がったところから気に喰わないし自作DLLは変な文字吐くし泣けるんだわ。
他のスレで聞いてもいいんだけどVBA使ってる人に聞いてみたいんだ。
デフォルトのに慣れろってんならそうする。

0376デフォルトの名無しさん

2010/02/22(月) 19:49:33

>>375
2003と同じツールバーを出すサードパーティーのアドインがあったよ
即効で使わないといけないならとりあえずこれ
最近チェックしてないのでなくなってたらゴメン

2007に移行した人に聞いてみたら慣れたら2007のほうが使いやすいって言ってたので
時間的余裕があるなら耐えて使うかなｗ

うちもまだ２００３でふんばってまふ

0377デフォルトの名無しさん

2010/02/22(月) 19:54:38

Office 2007にOffice 2003互換メニューを追加する
ttp://www.atmarkit.co.jp/fwin2k/win2ktips/1173oldmenu/oldmenu.html

↑を入れてるw

0378デフォルトの名無しさん

2010/02/22(月) 20:40:31

まあ、2010も同じ形式なので、諦めて慣れた方がいいような気もするけどね

0379デフォルトの名無しさん

2010/02/22(月) 21:05:50

とっくの昔に2007になれた。
2007のほうが使いやすいんだが、周りの全員がオレに聞いてくるのでうっとうしい。

0380デフォルトの名無しさん

2010/02/22(月) 21:06:21

>>376-378
サンクス
フリーのアドイン見てみたけど、MSは基本このまま使えって言ってるって事みたいだね。
最初見たときマジでOOoに乗り換えようかと思ったわ。
XPの頃のPCがそろそろ更新のサイクルに来てると思うんだけど乗り換える人もある程度出てくるんじゃね?

まああ、VBA関連のコードも書き換え(1から作り直し？)無きゃならんしオレがUIに慣れる方向でやってみて、
同僚の反応とか聞きながらこの先の事は考えてみるわ。

0381デフォルトの名無しさん

2010/02/22(月) 21:23:19

>>379
そらそうだろ。知ってるやつ居るならオレも聞きたいわｗｗｗ
てか、どのくらいで慣れるのか聞きたいわ。

あと、DLLのインタフェースにXML使うの実装しといたの思い出したらなんとかなった。
とにかくサンクス。

0382デフォルトの名無しさん

2010/02/22(月) 22:43:46

2003と2007の両方入れてる
常用は2007なんだけどマクロの記録がタコなんでどうしても2003は消せない
UIは慣れるしかない

0383デフォルトの名無しさん

2010/02/22(月) 23:04:21

>>364
アクティブでないアプリケーションの処理が遅くなるのはWindowsが
そういう風にCPU処理を配分してるからでしょ。システムのプロパティで
裏のプログラムも同等に処理するように設定したら？

その代わりアプリが表側に来てるときの処理速度は落ちるけど
PCの性能が無限でない以上仕方ない。

0384デフォルトの名無しさん

2010/02/23(火) 00:30:51

>>383
デュアルコアだと快適になるかな？

0385デフォルトの名無しさん

2010/02/23(火) 05:51:45

ダブルクリックで複数立ち上げるとエクセル本体は一つしか立ち上がらないので
マルチCPUでも一つのコアしか使ってくんない

スタートメニューからエクセルを必要数起動しエクセルからシートを読み込んでやると
別プロセスで動くので各コアに分担させることが可能
割り振りはたすくマネージャから手動で変更可

これでどれだけ快適になるかはやってみなきゃわかんない
よほど処理時間長いものじゃなきゃごちゃごちゃやってる間に終わっちまうしな

0386デフォルトの名無しさん

2010/02/23(火) 12:32:43

指定のzipファイル内にあるcsvファイルを配列に落とすにはどうしたらよいでしょうか
配布の都合上外部DLLは使用出来ません

0387デフォルトの名無しさん

2010/02/23(火) 18:06:44

自己解凍ファイルにするとか

0388デフォルトの名無しさん

2010/02/23(火) 18:54:41

>>386
きっとそのzipファイルは変えられないんでしょ。
XPならzipって標準でライブラリなかったっけ？
外部dllには違いないけど、それ読み込んで解凍させるとか。

0389デフォルトの名無しさん

2010/02/23(火) 19:15:51

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

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

0390デフォルトの名無しさん

2010/02/23(火) 21:26:22

OS:windows
Excelバージョン:2003
条件付き書式を設定していくマクロについて質問です．
[問題]
C1:E3の各セルに文字 aもしくはbもしくはcが入力されているとします．
このときA1のセルにa,A2のセルにbが入力されたとき
C1:E3の各セルでaもしくはbが入力されているセルのみ背景を赤にしたいのですが
どうすればよいでしょうか？

[自分なりの解答]
以下のような条件付き書式を各列で設定していくマクロを作ってみたのですが、
$C$1のところが$C$1～$E$1とすることができず詰まっています．．．

Do Until ActiveCell.Value = ""

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2,$C$1)>=1"
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1).Select
Loop
End Sub

0391デフォルトの名無しさん

2010/02/23(火) 21:58:13

こういうことか？
Sub test()
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 3 To 5
If Cells(i, j) = Cells(1, 1) Or Cells(i, j) = Cells(2, 1) Then
With Cells(i, j)
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
End With
End If
Next j
Next i
End Sub

0392デフォルトの名無しさん

2010/02/23(火) 22:27:24

>>390
よくわかんないけど
Sub testestes()
Dim myRange As Range, r As Range
Set myRange = Range("c1:e1")
myRange.FormatConditions.Delete
For Each r In myRange
r.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2," & r.Address & ")>=1"
r.FormatConditions(1).Font.ColorIndex = 2
r.FormatConditions(1).Interior.ColorIndex = 3
Next r
End Sub

0393デフォルトの名無しさん

2010/02/23(火) 22:43:53

>>390
条件付き書式を間違ってないか
C1は=COUNTIF(A1:A2,C1)>=1で
E1は=COUNTIF(A1:A2,E1)>=1といれるべきだと思う

0394デフォルトの名無しさん

2010/02/23(火) 22:52:26

>>391-392
レスありがとうございます．
お二人のおかげで作りたいものができました．
勉強になりました．本当にありがとうございます．

>>393
レスありがとうございます．
ご指摘のとおりです．
>>392さんのレスに有る
＞ & r.Address &
のような方法を探してました．

0395345，358，364

2010/02/24(水) 00:55:58

レスくれた方ありがとうございます。
上手く伝わりませんが、>>345で書いた通り、

ＰＣはデュアル又はクアッドコアで、システムのパフォーマンスオプションはバックグラウンドサービスに設定。
エクセルを複数起動して並列処理しており、ウィンドウが表でも裏でも全て高速動作してる。
画面更新や再計算停止等の高速化は実施済み。
ただし、VBAコードの中にSortメソッドが含まれており、かつ非アクティブウィンドウである場合に限り、Sortメソッドの処理が極端に遅くなる。・・・という事です。

>>385の方法をスクリプトで自動化してるので、Core i7でExcel2000を８つ起動して同じコードを走らせると８コア100%までぶん回して高速に演算できてるけど、
Sortメソッドを使うとそこが激しくボトルネックになる。

ちなみに普通にエクセルを１つだけ開いてSortを何万回も繰り返すコードを実行中に、デスクトップをクリックしてエクセルを非アクティブにするだけでも途端に劇遅になる。
これ多分Excel2000の仕様というかバグなんだけど、同じ現象についてはググっても見つからなかったので、これが問題になるほど何時間もぶん廻す使い方がよほど特殊なんだろう。
Sortメソッドを使わない方向で解決する事にします。

0396デフォルトの名無しさん

2010/02/24(水) 19:57:09

すみません教えて欲しいんですが

SET A = Range("B1:E10")
SET X = Range("C5")

のような時に
単一セル X はセル範囲 A の範囲内にあるかどうかの
判定方法はどうやったらよいのでしょうか？

0397デフォルトの名無しさん

2010/02/24(水) 20:01:38

intersect

0398396

2010/02/24(水) 20:05:39

>>397
あ！なるほど
ありがとうございました

0399デフォルトの名無しさん

2010/02/24(水) 20:53:23

>>395
何がやりたいのか判らないけどアクセス使ったほうがいいんじゃないか？

それはさておき、こことか。
http://chotosplus.sakura.ne.jp/wordpress/2009/07/16/excel-vba%E3%81%8B%E3%82%89%E5%88%A9%E7%94%A8%E3%81%A7%E3%81%8D%E3%82%8B%E5%90%84%E7%A8%AE%E3%82%BD%E3%83%BC%E3%83%88%E6%96%B9%E6%B3%95%E3%81%AE%E9%80%9F%E5%BA%A6%E6%AF%94%E8%BC%83/

0400デフォルトの名無しさん

2010/02/25(木) 04:03:34

すみません、教えていただけないでしょうか
OS:windows
Excelバージョン:2003
反復型の成績判定で10人分の得点を一人ずつ成績判定を行うプログラムを作りたいのですが、
Sub 反復型の成績判定()
Dim X As Variant
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
Dim hantei As Variant hantei = Array("不可です", "可です", "良です", "優です", "対象外です")
Dim h As Integer
Const n As Integer = 10
Dim i As Integer
Dim tokuten As Integer
For i = 1 To n
tokuten = X(i - 1)
Next
Select Case tokuten
Case Is < 60
Debug.Print Format(tokuten, "#点は ") & Format(hantei(0), "不可です")
Case Is < 70
Debug.Print Format(tokuten, "#点は ") & Format(hantei(1), "可です")
Case Is < 80
Debug.Print Format(tokuten, "#点は ") & Format(hantei(2), "良です")
Case 80 To 100
Debug.Print Format(tokuten, "#点は ") & Format(hantei(3), "優です")
Case Else
Debug.Print Format(tokuten, "#点は ") & Format(hantei(4), "対象外")
End Select
End Sub
これだと68点の成績判定しかされないのですが、どこを直せば良いのでしょうか？

0401デフォルトの名無しさん

2010/02/25(木) 06:16:13

>>400
nextを　end select　の後に移動

0402デフォルトの名無しさん

2010/02/25(木) 06:21:10

>>400
Sub 反復型の成績判定()
Dim X As Variant
Dim element As Variant
Dim hantei1 As Variant
Dim hantei2 As Variant
Dim h As String
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
hantei1 = Array(0, 60, 70, 80, 101)
hantei2 = Array("不可です", "可です", "良です", "優です", "対象外です")
For Each element In X
　　h = WorksheetFunction.Lookup(element, hantei1, hantei2)
　　Debug.Print Format(element, "#点は ") & h
Next
End Sub

0403デフォルトの名無しさん

2010/02/25(木) 07:27:05

え！？hentai？？？と思ってしまった・・・orz

0404デフォルトの名無しさん

2010/02/25(木) 12:04:56

できました！
助かりました。ありがとうございます。

0405デフォルトの名無しさん

2010/02/25(木) 12:14:46

すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1～ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1　～　ｎ個の”*　”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ～1個の＊を順番に表示させるためにはDo～Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。

0406デフォルトの名無しさん

2010/02/25(木) 12:45:59

>>405
初期値
加算値
終了条件

宿題け？

0407デフォルトの名無しさん

2010/02/25(木) 17:48:25

Dim y As Integer
Dim x As Integer
Dim objTableItem As Object

'.body ‚loop body data
For Each objTAG In objIE.document.body.all
'search for table tag
If objTAG.tagName = "TABLE" Then
'add new sheet
Sheets.Add
y = 0 'row
'loop item in table
For Each objTableItem In objTAG.all
If objTableItem.tagName = "TR" Then
y = y + 1 'row +1
x = 1 'columm=1
End If
If objTableItem.tagName = "TD" Then
'set text data
Cells(y, x) = objTableItem.innerText
x = x + 1 'next columm
End If
Next
End If
Next

このままだと、Excelを使ったIE操作に関する質問です。
website上のテーブルをコピーして、エクセルにペーストしたいのですが、このままではテキストにリンクが貼られていても、
テキストしかコピーできません。
例えば、<a href ="http.....">VBA</a>の場合、テキストのみがペーストされますが、エクセル上でVBAをクリックすると、URLにジャンプできるようにしたいのですが、何かいいアイディアはございますか？

0408デフォルトの名無しさん

2010/02/25(木) 18:58:19

>>406
回答ありがとうございます。
すみません、具体的にはどこをどう変えればいいのでしょうか。
本当に初心者なので、どこをどういうふうに変えたら＊の数が下がるようになるのかわからないんです。

0409デフォルトの名無しさん

2010/02/25(木) 22:22:30

>>407
If objTableItem.All.tags("A").Length > 0 Then
Debug.Print objTableItem.All.tags("A")(0).href
End If
で
http.....
が取得できると思うけど

0410デフォルトの名無しさん

2010/02/25(木) 23:46:43

>405

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

0411デフォルトの名無しさん

2010/02/26(金) 00:30:18

ユーザーフォーム上のテキストボックスに前のデータを表示させたまま下に出力し続けることは可能でしょうか？

0412デフォルトの名無しさん

2010/02/26(金) 00:58:33

>410
仰るとおりです。本当に申し訳ありません。
ただ、時間がなくプログラムもどう変えればいいか全然わからず、丸投げしてしまいました。
厚かましいお願いではありますが、初心者でもわかる範囲でヒントをもらえないでしょうか。
見よう見まねで上のプログラムは組めたんですが、反対に星の数を少なくしていくやり方がどうしてもわかりません。
どうかよろしくお願いします。

0413デフォルトの名無しさん

2010/02/26(金) 01:52:16

>>408
なんかの宿題だろうけど
見よう見まねだとしても
>>405のコードでなぜ星の数が多くなっていくのか
それを理解するのが先だと思う

じゃあ逆に質問
1～5個の"*"を順番に表示にするには？どう修正する？
実行結果は下ね

01*
02**
03***
04****
05*****

ちなみに下だと失格だよ
00
01*
02**
03***
04****
05*****

0414デフォルトの名無しさん

2010/02/26(金) 02:06:08

>>412
i = 10
i = i - 1
i > 0

0415デフォルトの名無しさん

2010/02/26(金) 02:41:02

Dim i As Integer, j As Integer, n As Integer, s As String
n = 10
For i = 1 To n Step 1
s = Format(i, "00")
For j = 1 To i Step 1
s = s & "*"
Next j
Debug.Print s
Next i
End Sub

そういえば、iとかjとか一文字の変数名はよくないって話はどうなってんの

0416デフォルトの名無しさん

2010/02/26(金) 03:02:49

>414
できました！助かりました!本当にありがとうございます。
>413
i = 1　という条件を付け加えればよかったんですね！
一人じゃ何もわからず、途方にくれていました。本当に助かりました。
ありがとうございました。

0417デフォルトの名無しさん

2010/02/26(金) 08:18:56

>>415
変数名１文字なんてどうでもいい
それよりループ回してs=s&"*"なんて恥ずかしいからやめろ
>>405さえString関数使ってるだろ？

0418415

2010/02/26(金) 09:54:18

なんで？

01*
02*+
03*+*
04*+*+
05*+*+*

こういうのやる時必要でしょ？

0419デフォルトの名無しさん

2010/02/26(金) 11:01:47

>418

ｦｲｦｲ・・・

0420デフォルトの名無しさん

2010/02/26(金) 11:23:13

For文で変数にiとjを使うのは昔からの慣習なので問題ない

0421デフォルトの名無しさん

2010/02/26(金) 15:39:29

時間がないと言ってるのに>>413はちょっとかわいそうだとｵﾓﾀ

0422デフォルトの名無しさん

2010/02/26(金) 19:40:12

名簿から名前（アルファベット）を拾って
頭文字別の一覧表シートを作成しようとしています。
ソート後に頭文字を
if str[i] == str[i+1]
hoge列に代入
elseif str[i] != str[i+1]
hoge = hoge+1
hoge列に代入
という方法でやろうと思ってるんですが
（if a ～　if z では長くて面倒ですし・・）
他に方法というかVBA側で用意されてるものってあったりしますか？
リスト構造体的なものがあってそこに文字列ぶちこんで
検索文字抽出→GetNextで抽出文字列を順々に引っ張り出せたりとか・・
そういったものがあったりしないかなぁと思い質問させていただきました。

0423422

2010/02/26(金) 19:43:33

== → =
!= → <>
に訂正します。
比較演算子がC++になってしまいました・・

0424デフォルトの名無しさん

2010/02/26(金) 21:19:44

>>422
（if a ～　if z では長くて面倒ですし・・）

の部分が何が言いたいのかよくわからん。
例示されたプログラムのどこにも出てきてないのに、いったい何がやりたいんだ。

0425デフォルトの名無しさん

2010/02/26(金) 21:36:06

>>422

１Byte文字かつアルファベットのばあい。

文字列の先頭１文字の文字コード（アスキーコード）取得して適当に計算して
Ｃｅｌｌ位置に変換してそこにぶち込む。をＬｏｏｐすれば？
カラム方向のカウンタも配列にして。

0426422

2010/02/26(金) 22:06:04

>>424
if str[i] like "Aa" ～ if str[i] like "Zz"
ということでした。わかりづらくて申し訳ありませんでした

>>425
やはりLoopで回すのが手っ取り早そうですね。
ありがとうございます。

0427デフォルトの名無しさん

2010/02/26(金) 22:22:51

>>417
別にええやんと思う人間が実はここにもいる。
性能的な違いはある？

0428デフォルトの名無しさん

2010/02/26(金) 23:57:22

>417
>それよりループ回してs=s&"*"なんて恥ずかしいからやめろ

途中の結果も必要なんだから別に恥ずかしいとは思わんが･･･

0429427

2010/02/27(土) 01:21:43

あ、文字列を作るためだけにループ使うなと言いたいのか。
でもString関数なんて今まで知らなかったよ。

ところで文字を連続させる関数て何に使うんだろうか。

0430デフォルトの名無しさん

2010/02/27(土) 08:35:11

>>429
文字を連続させるために使う。

0431デフォルトの名無しさん

2010/02/27(土) 08:55:01

使いたい人が使いたいときに使う。

例えば*を100個書きたい場合(101個だとダメ９９個でもアウト～)に
String()を使えば間違わないで書けるとかじゃろ？

0432デフォルトの名無しさん

2010/02/27(土) 09:38:38

worksheetfunction に　rept ってなかったっけ？

0433デフォルトの名無しさん

2010/02/27(土) 13:13:17

だめだ、同じ文字を10個ならべる目的が思いつかない。
固定だったら"**********"とか書くし需要少なそうだ。

まあ、あるものは使った方がいいのは確かだと思う。
String関数の中でループ処理が組んであるんだろう。

0434デフォルトの名無しさん

2010/02/27(土) 13:42:12

バリアント型 (内部処理形式 String の Variant) の値を返します。
指定した文字コード (ASCII またはシフト JIS コード) の示す文字、または文字列の先頭文字を、
指定した文字数だけ並べた文字列を返す文字列処理関数です。

Dim MyString

MyString = String(5, "*") ' "*****" を返します。
MyString = String(5, 42) ' "*****" を返します。
MyString = String(10, "ABC") ' "AAAAAAAAAA" を返します。

0435デフォルトの名無しさん

2010/02/27(土) 13:49:08

ForとString()じゃパフォーマンスが段違いに違う。
String(999999999,"*")は一瞬で処理されるのに対し、ForはExcel自体がフリーズする。

0436デフォルトの名無しさん

2010/02/27(土) 13:49:20

>>433
目的ですか、うちでよく使うのは
その１、ダミーデーター作成（スペースでいい場合はspace()を使うけど）
　　　　1.1、固定でも２００個とか数えるのやだし
　　　　1.2、固定長ﾃﾞｰﾀを扱うときにあまった領域の埋め草を作るのに使う
その２、CUIで棒グラフ

あとは、なんだろうね、なにかあったような気がするが思い出せない

0437デフォルトの名無しさん

2010/02/27(土) 13:50:37

たとえば

あるLoop処理でｃ言語のTableを作るとかの場合に、
タブを何個挿入するのかをブレイスの深さで変えたい場合、
ブレイスの深さをカウンタにしておけば少し便利かも。
タブじゃなくてスペース４個とかでも同じ。

String(i, Chr(9)) & StringBuff & vbLf

0438デフォルトの名無しさん

2010/02/27(土) 13:50:43

ごめん9が1個多かった

0439デフォルトの名無しさん

2010/02/27(土) 14:44:21

なるほど、固定長データを埋めるときという例はすごくよく判ったし
パフォーマンスが全然違うんだね。ありがとう。

生の固定長データを自分で作ったことが多分ないから気づかなかったよ。

0440デフォルトの名無しさん

2010/02/27(土) 16:02:28

だんだん文字列を大きくしていくのはメモリ確保に時間がかかるからやらないのが常識。
サイズが小さいうちは平気だけどね。

0441デフォルトの名無しさん

2010/02/27(土) 17:45:33

それは何nsの話なのか

0442デフォルトの名無しさん

2010/02/27(土) 18:39:18

小さいうちは数ナノ秒でも大きくなると幾何級数的に時間がかかるよな。

0443デフォルトの名無しさん

2010/02/27(土) 20:11:25

excel2003を使用しています。
ファイルを外部から取り込む際に、ダイアログを使用していますが、
この取り込むときのフィルターのかけ方で、特定の文字列を含むファイルのみ表示することは可能でしょうか？

Filter = "エクセルファイル(*.xls)" & Chr(0) & "*.xls" & Chr(0)

現状はこの様になっており、拡張性がエクセルファイルのものだけを表示するようになっています。
これに特定の文字列を持ったファイル名を表示するという条件を追加できませんか？エクセルファイルで、名前が091201を含むなど

0444デフォルトの名無しさん

2010/02/27(土) 20:13:24

>>441
性能問題起こしそう

0445デフォルトの名無しさん

2010/02/27(土) 20:16:35

"09*.xls"

0446デフォルトの名無しさん

2010/02/27(土) 20:53:18

まぁ、スピードが要求されるならC++でDLL書いてVBAから呼べって話になるんですがね

0447デフォルトの名無しさん

2010/02/27(土) 22:02:08

そういう問題じゃねーのまだ分ってねーの
計算量のオーダが２乗ってことだよ

0448デフォルトの名無しさん

2010/02/27(土) 22:04:49

ほら
1+2+3+...+n=n(n+1)/2=n**2+1/2*n

0449デフォルトの名無しさん

2010/02/27(土) 22:28:51

流れを無視してすみません
VBA初心者ですが質問させてください

Userformでの話なのですが
ボタンが押された際に
TextBoxにセルの値を代入し表示
2秒間隔をあけ、その後フォームを閉じる

という処理を行いたいのですがTextBoxに表示される前にフォームが閉じられてしまいます。
フォームが閉じられる前にTextBoxにテキストを表示させるにはどのような方法をとればいいのでしょうか？

サンプルコードは以下のとおりです。

Private sub CommandButton1_Click()

TextBox1.text = sheets("sheet1").range("A1").value

call delay(2) '2秒ディレイするという命令

Unload Me

endsub

分かりづらいコードで申し訳ないですがご指導のほどお願いいたします。

0450デフォルトの名無しさん

2010/02/27(土) 22:40:23

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

0451デフォルトの名無しさん

2010/02/27(土) 22:43:48

どうしてもその自作関数つかうなら
delayのほうに
閉じる動作書けばいんじゃね

0452デフォルトの名無しさん

2010/02/27(土) 23:09:19

>>447
.NET Framework使えよって話だ

0453デフォルトの名無しさん

2010/02/28(日) 00:17:06

>>449 ontime

0454デフォルトの名無しさん

2010/02/28(日) 00:40:48

VBAで指定されたURLに日本語をくっつけてWebを開く事は出来ますが
そうではなくて
開いたWebページのあるテキストボックスに選択されたセルにある文字列を入力して
ボタンを押下する方法とかはあるのでしょうか？

もしあればご教授お願いします

0455デフォルトの名無しさん

2010/02/28(日) 01:10:19

>>454
Sendkeys

0456デフォルトの名無しさん

2010/02/28(日) 11:21:20

>>449
DoEvents を使ってみるといいかも

TextBox1.text = sheets("sheet1").range("A1").value
DoEvents
call delay(2)
Unload Me

0457デフォルトの名無しさん

2010/03/01(月) 01:46:21

テキストファイルA.txtの内容をstrAとし、
テキストファイルB.txtの内容をstrBとし、２つを合体させて
クリップボードにコピーしようとしています。

strA も strB　も、それぞれ読み取れてはいるのですが、
strA & strB　とすると前者の方しかコピーされません。
逆にしても同じです。

&でつなぐことはできないのでしょうか？

0458デフォルトの名無しさん

2010/03/01(月) 02:42:09

>>457
よくわかりませんが、先に

strAB = strA & strB

したり、そこで文字列結合関数を使ってみては？

0459デフォルトの名無しさん

2010/03/01(月) 19:14:57

nul文字混入

0460デフォルトの名無しさん

2010/03/02(火) 22:00:35

Worksheets("225構成銘柄(業種別分類)").Range(Cells(2, 1), Cells(2, 2)) = Worksheets("水産").Cells(3, 3)

これでアプリケーション定義またはオブジェクト定義のエラーです。が出るのは何でだ？
もしかしてシートまたいでのコピーっていちいちactiveにせないかんの？
簡略表記できないの？

0461デフォルトの名無しさん

2010/03/02(火) 22:50:10

>>460
1.
Worksheets("225構成銘柄(業種別分類)").Activate
Range(Cells(2, 1), Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value

2.
With Worksheets("225構成銘柄(業種別分類)")
.Range(.Cells(2, 1), .Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value
End With

3.
Worksheets("225構成銘柄(業種別分類)").Cells(2, 1).Resize(1, 2).value = Worksheets("水産").Cells(3, 3).value

お好きなのをどうぞ

0462デフォルトの名無しさん

2010/03/02(火) 23:22:41

なんか納得いかないけどありがとう御座います。
とくに2なんかwithで囲っただけでなんで上手く行くんだ？

0463デフォルトの名無しさん

2010/03/02(火) 23:52:33

>>462
RangeやCellsはシートを指定しないとアクティブシートを対象とする。
そのため460の書き方では、CellsのシートとRangeのシートが一致していない。
461の.Cellsはドッドが付いているため.Rangeと同シートを対象としているので動く。

と正しくないかもしれないけど勝手解釈な説明をしてみた。

0464デフォルトの名無しさん

2010/03/03(水) 08:47:09

>>457
(strA & strB)
としてはどうか

0465デフォルトの名無しさん

2010/03/03(水) 16:46:26

>>463
ふんわりと勉強になった。
知らん事だらけで困惑する。

0466デフォルトの名無しさん

2010/03/03(水) 20:11:36

簡単に言うと、
Cells(2, 1), Cells(2, 2)
ってのが、どこのシートのセルか指定されてないってことね。

0467デフォルトの名無しさん

2010/03/03(水) 21:25:06

現在VBAでエラーが出た場合

On Error GoTo ErrorHandler
ErrorHandler:
MsgBox "エラーが発生しましたので終了します"

のように強制的に終了させていますが
これだとどこでエラーが起こったのかわかりません。
しかしこれをはずすとVBAの画面が出てきてしまうのでそれは何としても避けたいのですが

いわゆる実際の開発現場での作業などで作成される場合、
一般的にデバッグってどうやってされているのでしょうか？

たとえば通過ログを各地にはりつけてこのログが通って、このログが通っていないので
その間で落ちたと言うやり方が思いつくのですが、
あるいはこの部分で落ちたとかがわかるコードなどあるのでしょうか？

0468デフォルトの名無しさん

2010/03/03(水) 21:32:39

>>467
Ｄｅｂｕｇ．Ａｓｓｅｒｔ（条件文）

0469デフォルトの名無しさん

2010/03/03(水) 21:40:30

Err.Description じゃなかったっけ？
それみてエラー箇所が特定出来ないなら関数が大きすぎるんじゃないか？

0470デフォルトの名無しさん

2010/03/04(木) 00:22:40

>>467
とりあえずErrオブジェクトでぐぐれ
エラーの発生した場所を正確に知るにはErl関数を使うという手もあるが
使い方がかなり面倒なのでおすすめはしない

0471デフォルトの名無しさん

2010/03/04(木) 00:28:40

ちがう
Err.LineNumber

■ このスレッドは過去ログ倉庫に格納されています