1001コメント371KB

Excel VBA 質問スレ Part14

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

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

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

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

2010/01/10(日) 23:16:12

Excel2003です。
VBA作成で困ったので、質問させてください。

Worksheetが、とある名前だったら
そのシートを削除してしまうという処理を行いたいのですが
うまくいきません。
現在は以下のように書いています。

Dim WST As Worksheet
For Each WST In Worksheets
If WST.Name = "SheetA" Or "SheetB" Then
WST.Delete
End If
Next

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

2010/01/10(日) 23:17:57

>>27
If (WST.Name = "SheetA") Or (WST.Name = "SheetB") Then

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

2010/01/10(日) 23:37:05

>>28
ありがとうございました。
おかげでうまくいきました。

Dim WST As Worksheet
Dim xlAPP As Application

xlAPP.DisplayAlerts = False
For Each WST In Worksheets
If WST.Name = "Sheet2" Or _
WST.Name = "Sheet3" Then
WST.Delete
End If
Next
xlAPP.DisplayAlerts = False

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

2010/01/11(月) 00:10:31

>>29
重箱を突っつくが、条件判定式は括弧で括った方が良い。
それと、最後のアラート設定は無駄かと。アラートOFF->OFF設定だが。

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

2010/01/11(月) 01:51:59

24です。
>>25 >>26さん有難うございます。
お陰さまで解決しました。
使わせていただきます！

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

2010/01/11(月) 04:35:16

>>30
アドバイスありがとうございます。

xlAPP.DisplayAlerts = True
すいません。最後のアラートはTrueでした。

条件判定式は、ミスを減らすためにも今後は括弧で括りたいと思います。

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

2010/01/11(月) 12:24:13

逆にカッコつけた方が、見やすくないかな?

If WST.Name = "Sheet2" Or WST.Name = "Sheet3" Then

If (WST.Name = "Sheet2") Or (WST.Name = "Sheet3") Then

計算順序に不安になるくらいなら、
「カッコつけずにカッコを付けよ。カッコは最強」と先輩に教えられた。

それ以降、計算順序の優劣は気にしたことがない。バッチリだよ。

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

2010/01/11(月) 13:11:15

ネトウヨｗｗｗ
（ ´∀｀）⊃http://livedoor.blogimg.jp/gekisha-krw/imgs/1/c/1c21ac8b.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/3/c/3c96435c.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/7/c/7c810d55.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/7/6/7685930e.jpg
http://image.blog.livedoor.jp/insidears/imgs/6/c/6c39db7d.jpg
http://image.blog.livedoor.jp/insidears/imgs/7/3/73d62d94.jpg

リアルネトウヨｗｗｗ
（ ´∀｀）⊃http://image.blog.livedoor.jp/nankai2000/imgs/1/d/1d4780bb.jpg
http://image.blog.livedoor.jp/modela/imgs/4/8/480f891c.jpg
http://image.blog.livedoor.jp/modela/imgs/9/8/98645eb2.jpg
http://www.geocities.jp/gakuen_kova17/6463868e739a.jpg

ネトウヨ絵馬ｗｗｗ
（ ´∀｀）⊃ http://lh6.ggpht.com/_iobkCWer7BA/SofHLI5OEXI/AAAAAAAAA9k/Lb83dzBTb7A/s640/IMG_1644.JPG
http://lh3.ggpht.com/_iobkCWer7BA/SofHLV_WH6I/AAAAAAAAA9s/g_7GS7pJkNk/s640/IMG_1645.JPG
http://lh4.ggpht.com/_iobkCWer7BA/SofHLyy5V_I/AAAAAAAAA90/qfSq8h0vzeE/s640/IMG_1648.JPG
http://lh4.ggpht.com/_iobkCWer7BA/SofHNXSfp7I/AAAAAAAAA-I/d9-LGGNyIyM/s640/IMG_1653.JPG

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

2010/01/11(月) 16:53:10

>>33
「Or演算子より=演算子が優先されるから括弧はつける必要なし」
とかカッコいいこと言いたいけど、やっぱ括弧つけたほうが見やすいし
優先順位とか面倒なこと考えなくていいから俺も括弧つける派だな

＞「カッコつけずにカッコを付けよ。カッコは最強」
激しく同意、すばらしい先輩だね

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

2010/01/11(月) 18:02:38

今度は教えてください。

Excel 2000 , Win XPです。
ボタンを作って、そこにVB書いて、いろいろと便利に使っていますが、
ボタンはマウスで行う必要があります。これをキーボードでやりたいのですが、
方法はありますでしょうか?　具体的には、
「S」で「開始ボタン」をクリックと同じ効果、
「T」で「停止ボタン」をクリックと同じ効果、とかです。
あるいは、複合でCTRL+Sとか、ALT+Uとかでも良いです。

マウス操作だと、ボタンの上にポインタを持っていく→ボタン狙う→クリックする。となります。
「うわぉ、緊急停止だ!」と言うときでも、まがマウスを探して、握って、ボタンに重ねて、クリック。
ちょっと面倒なのですが。

宜しくお願いします。

>>35
経験者(というか苦労してきた人)は、言うことが違いますよね。
ありがとうございました。

0037sage

2010/01/11(月) 18:49:30

application.OnKey

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

2010/01/11(月) 21:30:11

エクセルでゲーム作ったんで感想お願いします

http://www42.atwiki.jp/syugyou?cmd=upload&act=open&pageid=236&file=ttt.zip

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

2010/01/11(月) 23:31:40

下記で、(2)がx(1)しか表示しないのはナゼ？（XP + Excel2000）

Sub test()
Dim x(1 To 5) As Integer
For i = 1 To 5
x(i) = 2 * i
Next i
Range("a1:e1").FormulaArray = x '(1)○
Range("g1:g5").FormulaArray = x '(2)×
End Sub

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

2010/01/12(火) 00:32:45

Range("g1:g5").FormulaArray = x '(2)×

Range("g1:h6").FormulaArray = x 'ってすると

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

2010/01/12(火) 01:00:51

>>38
匿名掲示板ののパス付マクロなんぞ怖くて開けんｗ
感想欲しいなら、パス解除 or どこかのHP掲載しないと誰も見ないと思うよ
変なことしないか確認できんしｗｗｗ

004238

2010/01/12(火) 05:36:31

変なことはしないっす
一応パスはfukunyuu
標準モジュールが一個とブックとフォームにイベントが一個ずつ

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

2010/01/12(火) 08:20:32

>>42

ｳｻﾞｲ
よそでﾔﾚ

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

2010/01/12(火) 08:21:39

なぜ副乳

0045MS HELPDESK

2010/01/12(火) 13:46:05

>> 39,40

Sub ArrayDump2() 'For a two dimensional vertical array
'Declares an array ten rows by one column
Dim x(1 To 10, 1 To 1) As Double
'Calculates random values
For j = 1 To 10
x(j, 1) = j * j
Next j

'Transfers array contents to a vertical area
Range(Cells(1, 1), Cells(10, 1)).FormulaArray = x
End Sub

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

2010/01/12(火) 23:08:59

>>39
Range("g1:g5").FormulaArray = _
Application.WorksheetFunction.Transpose(x)

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

2010/01/14(木) 15:46:47

Excel2007
VBAでWorksheetFunction.Averageを実行しようとすると、
WorksheetFunctionクラスのAveraegプロパティを取得できません
というエラーが下のCells(i, 8) = の部分で発生します。

For i = idou_array(0) + 4 To last_row
Cells(i, 8) = Application.WorksheetFunction.Average(Range("H" & i - idou_array(0) + 1, "H" & i))
Next

idou_array(0)には5という数字が入っています。
ツールからアドインで分析ツール、分析ツール(VBA)は入れてあります。
どうすれば計算できるようになるのでしょうか？

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

2010/01/14(木) 19:08:40

>>47
Application.WorksheetFunction.Average(Range())

指定したRange()に不具合があるとエラーがでる
例えば、データがないとか

004947

2010/01/14(木) 19:20:40

>>48
もう一度データの見直しから始めます orz

005047

2010/01/14(木) 19:38:35

見たら平均のデータを書きこもうとしている行とデータが有る行をごっちゃにしていました。^^;
スレ汚しすいませんでした m(_ _)m

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

2010/01/15(金) 15:16:42

ヘルプを見ても分からなかったので教えてください
Line Input #iFile, strLine
で読み進めてしまったファイルを先頭に戻す方法ってありますか？

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

2010/01/15(金) 16:16:16

2007使用
ScreenUpdatingについてなんですが
全シートの保護を解除するマクロを作って
その中でScreenUpdatingを使って更新を停止しているんだけど
エクセルファイルを開いた直後に上記動作を行って
どこか空いているセルに文字を入力すると
他のシートの内容が上書き描画されてしまいます。

ScreenUpdatingを使用しなければ発生しないし
ファイルを開いた直後以外（なにか他の作業をした後）
でもまったく問題なく動きます。

情報が少なくて申し訳ないですが
どなたか原因わかりますか？

005352

2010/01/15(金) 17:16:26

自己解決しました
http://support.microsoft.com/kb/978089/ja
エクセルの問題だったとか時間がもったいなかった・・・

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

2010/01/16(土) 13:48:32

Outlookと連携させて、
特定の期間（例えば、2010/1/1～2010/1/8）のメールだけ、
エクセルに自動的に転機させたいんだけど、どんな感じにすればいい？

とりあえず、軽くググってみて以下ならできるとはわかった。
(1)フォルダ内にある全てのメールを一旦取り出す。
(2)取り出したメールを、受信日時でbetweenする。

ただ、これだと(1)で全部のメールを一旦取り出すのに処理時間がかかりすぎてしょうがない。
取り出しの時点で、betweenしたいんだけど、どうすればいいですか？

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

2010/01/16(土) 16:01:57

すみません、質問させてください。

ファイルAを開き、マクロで新規ブックを作成します。
ここまでは良いのですが、新規ブックに任意のマクロを
最初から入れたいのですが、可能でしょうか？

005654

2010/01/16(土) 16:23:54

とりあえずいまのとこ考えてるソースはこんな感じです。

Sub COPY()

Dim oApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim searchDate As Date '転記を始める日付

searchDate = InputBox("いつからのメール？(YYYY/MM/DDで入力)")

Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.Folders("個人用フォルダ").Folders("aaa") 'aaaフォルダを指定
myFolder.Display

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

2010/01/16(土) 16:25:24

'メールの中身を取り出し
Dim objMAILITEM As Object 'メールアイテム
Dim n As Integer '添字

For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ
'メールを１通取り出し、変数にセットする
Set objMAILITEM = myFolder.Items(n)

If objMAILITEM.CreationTime > searchDate Then 'ダイアログで入力させた日付より後に受信したメールだけ
Cells(n , "A") = objMAILITEM.Body '本文転記
End If
Next n

End Sub

For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ
↑
ここを、フォルダのアイテム数分ループじゃなくて、
ダイアログで入力した日付よりあとにきたメールのアイテム数分だけ、ループさせたいです

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

2010/01/16(土) 16:52:05

>>55
可能。VBComponents.Importでぐぐれ。

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

2010/01/16(土) 17:35:59

>>51
Seek

あと Close --> Openという方法もある(笑)

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

2010/01/16(土) 18:29:26

>>51
いっぺん読み込んだデータは配列にでも保存しとけ

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

2010/01/17(日) 23:09:24

データベースのAPIを使ってEXCELのデータから検索をかけているのですが、
検索に引っかからなかった場合、空の配列を返してきます。
その空の配列かどうかを認識するにはどうしたらいいですか？

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

2010/01/18(月) 00:55:27

要素を数えるんじゃだめなの？

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

2010/01/18(月) 08:40:26

おまいら、2010βのヘルプ使える？
ヘルプ開こうとすると落ちるんだが。

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

2010/01/18(月) 13:45:30

皆さんに質問があります。Excel2003+VBAです。

シート上に配置したリストボックスに、AddItemで項目を追加しました。
そして、Excelを保存して閉じた後に再度開くと、先ほど追加したアイテムが
消えてしまいます。これを、保存する事は可能でしょうか。

ご教授の程、宜しくお願いします。

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

2010/01/18(月) 13:59:58

開いたときに動作するイベントが幾つかあるから
そこに書けばいい

006664

2010/01/18(月) 14:27:11

確かにそうなのですが、一度追加した物を再度追加する手間を
省ければと思っているのです。

Excel自体を保存すれば、コントロールの内容も保存されるのでは？と
思っていたのですが、そうでは無いのでしょうか？

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

2010/01/18(月) 14:37:37

プロパティでアイテムの項目に書けば
というか>>65で駄目な理由がよくわからない

006864

2010/01/18(月) 14:51:52

>67
Excelを開いた後に、テキストデータを読み込んで、そのデータを元に
リストボックスの選択項目を生成しているのです。

さらに、そのデータは既に読込済となる為、Excelセル内にも残っています。
にも関わらず、一旦Excelを閉じてまた開くと、セル内のデータは残っているのに
リストボックス内の選択項目だけ消えてしまっているのです。

セル内のデータと同じ用に、残す事が出来ればな、と考えているのです。
表現がうまくなくてすみません。伝わりますでしょうか・・・。

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

2010/01/18(月) 15:44:57

>>68
それなら出来ないよ
セルに残す
テキストに残す
したものを毎回起動時にリストに設定する
それが普通だよ

007064

2010/01/18(月) 15:54:05

やっぱりそういう仕様になっているんですね…。
了解致しました。何とか保存する形にしてみます。

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

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

2010/01/19(火) 00:21:49

カスタムXMLにかけばいいんじゃないかな

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

2010/01/19(火) 21:35:31

このコードで使われている変数の型がわかりません。
どなたか教えていただけませんか？

pnir = CreateOLEObj("Sleipnir.API")

docID = pnir.NewWindow("http://www.hangame.co.jp/", true)
While pnir.IsBusy(docID); SLEEP(1); WEND

Doc = Nothing
REPEAT
SLEEP(1)
Doc = pnir.GetDocumentObject(DocID)
UNTIL Doc <> Nothing

SLEEP(1)

ifb Doc.getElementsByName("loginform").length > 0
Doc.getElementById("strmemberid").value = USER_ID
Doc.getElementById("strpassword").value = PASSWORD

imgs = Doc.getElementsByTagName("img")
for i = 0 to imgs.length - 1
img = imgs.item(i)
ifb POS("btn_login.png", img.src) > 0
img.click
break
endif
next
endif

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

2010/01/20(水) 00:02:31

どう見てもUWSC
スレ違い

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

2010/01/20(水) 11:48:05

ある列に同じ文字列を入れたい場合、RangeでFormulaR1C1を使って一括で代入するのと、
For文でCells().Value = Cells().Valueで代入していくのと、どちらが早いのでしょうか？

よろしくお願いします

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

2010/01/20(水) 11:49:54

これからVBA勉強始めようと思うんですが、
プロのエンジニアでもプログラマでもなく、
JAVAの入門書を一冊読んでいる程度の者です。
テンプレにあるExcelのインスタンスの意味を教えてもらえないでしょうか？
一応、クラス、オブジェクト、インスタンスというのは知っているつもりです。

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

2010/01/20(水) 11:55:58

>>74
100万回ぐらいまわして自分で計測してはどうでしょう
一括の方が早いと思う
>>75
エクセルのbookオブジェクト、もしくはアプリケーションのことじゃないか
要するにvbだけでできることはvbスレいけってことですね

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

2010/01/20(水) 14:13:43

エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ
配置して、ファイル読み込みダイアログを出して選択されたファイルを
エクセル上に表示させたいんだけど、誰か分かる人いる？

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

2010/01/20(水) 14:19:19

いる

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

2010/01/20(水) 14:19:39

皆んな分かる

008077

2010/01/20(水) 14:27:36

自己解決しからいいや。

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

2010/01/20(水) 19:09:19

せっかく答えてもらって無礼な奴

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

2010/01/20(水) 19:21:02

>>74
一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。
Valueを使いなさい。

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

2010/01/20(水) 22:54:15

テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが
どうしたらいでしょう

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

2010/01/21(木) 12:22:51

api関数を使用しています。

Declareで宣言する時に、引数をbyvalで指定してるのに、結果が
引数に代入されてくるのはなぜですか？

本来であれば、byrefで指定するべきではないのでしょうか？

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

2010/01/21(木) 16:06:07

2010βのマクロの実行速度って2007より遅くなってる？
mougにそのように書いてあったが、俺んとこは2010βが速い。
おまいらどうよ。

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

2010/01/21(木) 16:22:10

>>83
ttp://officetanaka.net/excel/vba/file/file08.htm

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

2010/01/21(木) 20:53:47

2000、XPです。VBAさわりだして数日です。
任意のサイコロの出目の和の組み合わせ数を全てシート上に書き出すマクロを組みたいと思ってます。
例えば6面ダイスを3回振る(3d6)　だったら
1 0
2 0
3 1
4 3
5 6
6 10
…のような結果になるようにしたいのです。
ただループの組み方をいくら考えてもそれらしきものが思いつきませんorz
どなたか考え方のヒントいただけませんか；

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

2010/01/21(木) 22:02:59

>>87
一番簡単なのは
全ての組み合わせをループで行って(この場合３重ループになる)
それぞれの合計値によって"組み合わせ数を表示する"セルへ
カウントアップしていく
(セルB1の値 = セルB1の値 + 1　って感じでね)

処理速度だしたいなら
同じ事を配列変数で行って　最後にセルへ書き出す

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

2010/01/21(木) 22:16:18

サイコロの目で0って何で？

009088

2010/01/21(木) 22:32:06

>>89
自分はこう解釈した

1 0
は　出目の和が 1になる組み合わせが　0ではないかと(当然だけど)
3 1
は　出目の和が 3になる組み合わせは出目が "1", "1" ,"1"の　1組しかないので 1

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

2010/01/21(木) 22:34:55

Sub 数学わからんからシラミ潰し()
Dim a, b(100), c(100), d, e, f
a = InputBox("サイコロの数を入れてね")
f = InputBox("目の数を入れてね")
Do
e = a
For d = 1 To a
e = e + c(d)
Next
b(e) = b(e) + 1
c(1) = c(1) + 1
If c(1) = f Then
c(1) = 0
For d = 2 To a
If c(d) = f - 1 Then
c(d) = 0
Else
c(d) = c(d) + 1
Exit For
End If
Next
If d = a + 1 Then Exit Do
End If
Loop
For d = 1 To 100
Cells(d, 1) = b(d)
Next
End Sub

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

2010/01/21(木) 22:39:16

>>90
成る程
流石だ

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

2010/01/21(木) 22:47:20

スマンエラー出るな
２行目の最後 f as byte にしてくれ
大量にサイコロ使う時は100のとこを好きな数に増やしてくれ

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

2010/01/22(金) 00:04:57

再帰で書いてみた。

Private diceNum As Long
Private face As Long '目の数
Private result(100) As Long

Sub 数学わからんからシラミ潰し2()
diceNum = InputBox("サイコロの数を入れてね")
face = InputBox("目の数を入れてね")
Call Count(0, 0)
For i = 1 To 100
Cells(i, 1) = result(i)
Next i
End Sub

Sub Count(Sum As Long, nTimes As Long)
If nTimes = diceNum Then
result(Sum) = result(Sum) + 1
Exit Sub
End If
For i = 1 To face
Call Count(Sum + i, nTimes + 1)
Next i
End Sub

009587

2010/01/22(金) 00:30:50

ありがとうございます、考えていた通りの結果に計算してくれます！
完成されたものをいただけるとは；

イルカとグーグル先生に尋ねつつ一文一文調べてみます。

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

2010/01/22(金) 02:33:51

2003,xpです。
あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？宜しくお願いします。

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

2010/01/22(金) 06:15:42

シェイプにはbottomrightcellプロパティ
topleftcellプロパティが有るから
それ使えばいい

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

2010/01/22(金) 09:54:06

>>96
Shapes.Count

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

2010/01/22(金) 10:23:12

>>96
参考に
http://oshiete.gogaku-ryugaku.net/qa3634541.html

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

2010/01/23(土) 12:32:06

ある文字から何番目の行になるか出すIF文はあるのでしょうか

「見出し項目」
製品A
製品B
　・
製品X
「小計」
のような並びになっている時に、小計から、見出し項目までの行を数えて、
何個の製品名があるかを出したいのですが、よく分かりませんでした。
よろしくお願いします。

0101100

2010/01/23(土) 12:36:32

説明が抜けていました。

「見出し項目」
・・
「小計」
で対になる並びは、複数ありますので、
小計から、直近の見出し項目までの行数を出したのですが、
そのようなやり方があれば、お願いします。

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

2010/01/23(土) 12:42:27

>>101
If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

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

2010/01/23(土) 12:43:09

97,98,99
ありがとう、解決しました

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

2010/01/23(土) 14:43:05

キーボードから１０個数字を入力し、その数字の中から最大値を｢最大値｣という文字とともに
メッセージボックスで表示するのはどう書けば良いんでしょうか。
恐らくMaxSearch()を使えば良いという事は分かるのですが、書き方が分かりません・・・。
どなたかご教授願います。

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

2010/01/23(土) 15:06:41

excel vba maxsearch
で検索してみれ

0106104

2010/01/23(土) 15:45:29

>>105
検索もしてみたのですがアドウェア関係ばかり出てしまい、肝心のVBAは全然出ないのです
ひとつそれらしき物がありましたが、どうにも私には理解できず・・・

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

2010/01/23(土) 16:40:44

=Max(Search("<70 And >=50",A1:A10))
じゃ、vbaの本でも立ち読みしてくれば

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

2010/01/23(土) 19:53:51

VBAのプロファイラ、みたいなのどーやったらいいの？

マクロや自作関数を組み込みすぎて重たくなりすぎた

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

2010/01/23(土) 22:04:09

>>108
全くのプログラム無知なんですが
面倒だけど
メッセージボックスそれぞれに書いとくのは駄目ですかね

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

2010/01/23(土) 23:43:08

オートフィルターで質問です。

オートフィルターを解除したいのですが、
その方法自体は問題ないのですが、フィルターがかかっていないときに
それをやるとエラーになるので、フィルターがかかっているいないの
判定ができる方法か、エラーがでない方法は無いでしょうか？

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

2010/01/24(日) 05:24:03

MsgBox Worksheets("Sheet1").AutoFilterMode

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

2010/01/24(日) 11:45:01

On Error Gotoでエラーを無視するという方法もある。
バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。

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

2010/01/24(日) 12:07:11

On Error Resume Next じゃねーの？

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

2010/01/24(日) 17:22:43

バカっぽいので無視する

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

2010/01/24(日) 21:37:20

無条件で一度、オートフィルターを解除するとか

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

2010/01/25(月) 01:17:38

Excel2007でフォーム上にシートを表示（スプレッドシート？）
できない様なのですが、同じような機能ってありますか？

シートは閲覧のみでも大丈夫です。
どなたかご指導よろしくお願いします。

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

2010/01/25(月) 19:16:10

ロダにあげる→開く　でブラウザからシート表示できる

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

2010/01/25(月) 20:06:43

横からすみません。
いま、得点の集計シートを作っているのですが、
1位のセルを赤の太枠で囲むということをやろうとしています。
で、
If Target.Column <> 4 Then Exit Sub '4列目(D列)以外の変更は考慮しない。

i = Target.Row
If Cells(i, 7).Value = "1" Then
'1行x3列の範囲を選択する
Range(Cells(i, 1), Cells(i, 6)).Select
'太い赤枠で囲む
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
というところまではできたのですが、初めの「4列目の1行目から12行目までに数値が入力され、
その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・
お知恵を貸していただければ助かります。

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

2010/01/25(月) 23:01:34

>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

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

2010/01/25(月) 23:47:42

>>118
ワークシート関数　MAX

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

2010/01/26(火) 00:00:12

>>110
オートフィルターでソートしてるときだけ解除

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

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

2010/01/27(水) 10:19:27

ActiveCellの上と下の空白セルを選択したいです。

A1 あああ
A2 (空白)
A3 (空白)
A4 [ActiveCell]
A5 (空白)
A6 いいい

のとき実行すると、A2～A5が選択された状態になる、を期待しています。
よろしくお願いいたします。

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

2010/01/27(水) 12:45:02

With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

このようなコードを書いたのですが、実行して見てみるとセルの書式自体は
文字列型になっているのにも関わらず表示は"1"となってしまっています

"01"と表示させたいのですが、何故こんなことになってしまうのでしょうか？
また、解決策も教えていただきたいです

よろしくお願いします！

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

2010/01/27(水) 12:47:08

>>122
1） ActiveCell.Rowで行番号取得。
2） 1行目かを判定し、違えば1)の行番号-1から1までForでまわして非空白チェック。
3）非空白がヒットしたらその行番号＋1を変数に保持してExit For　ヒットしなければ1を変数を保持。
4） ActiveCellが最終行かを判定し、違えば1）の行番号+1からCells.Rows.CountまでForでまわしてチェック。
5）非空白ヒットすれば行番号-1を変数に保持してExit。（しなければCells.Rows.Count）
6） 3）と5）の変数を使って目的範囲をSelect

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

2010/01/27(水) 21:33:26

>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

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

2010/01/28(木) 12:31:46

どなたか>>123わかる方、よろしくお願いします。何卒…

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