Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

88 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80712】Re:別ブックの複数シートのセルから、別...

マナ - 19/4/19(金) 19:31 -


	引用なし

	パスワード

▼ちっちきちさん：

>同じセル位置（R90C10、R110C10）から「転記先のwb」のセル（A1、A2～L1、L2）

R90C10 とか R110C10　はどこのセルでしょうか。

・ツリー全体表示


	【80711】Re:行番号列の列幅取得方法

マナ - 19/4/19(金) 19:18 -


	引用なし

	パスワード

▼［名前なし］さん：

>クラスモジュールでグラフのイベントを取得する方法は把握していましたが、
>標準モジュールで完結する方法を求めていました。

特定のグラフに限定してよいなら
クラスモジュールでなくても、
Thisworkbookやシートモジュールでよいです。

クリックして取得するということはイベントだから
標準モジュールだけで完結は不可能では？

単に選択されている系列ということなら以下ではだめなのですか。
ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=80696;id=excel

・ツリー全体表示


	【80710】Re:行番号列の列幅取得方法

［名前なし］ - 19/4/19(金) 16:20 -


	引用なし

	パスワード

▼マナさん：
>▼［名前なし］さん：
>
>MouseUpイベントで、ｘ，ｙ座標を取得しています。
>
>グラフのイベントについては、
>ichinoseさんの回答を参考にしてください。
>ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8886;id=excel#8886

ご教示ありがとうございます。

クラスモジュールでグラフのイベントを取得する方法は把握していましたが、
標準モジュールで完結する方法を求めていました。

もし分かれば、行番号列/列番号行の取得が今後何らかの形で利用できればと思っていました。

クラスモジュールを使用しての方法しかなさそうなので、そちらを利用させて頂きます。

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

・ツリー全体表示


	【80709】別ブックの複数シートのセルから、別ブッ...

ちっちきち - 19/4/19(金) 13:55 -


	引用なし

	パスワード

VBA初心者です。
変数と定数の定義もあまりよくわからず、これからしっかり勉強していきたいので、よろしくお願いします。

「転記先のwb」を開いている状態です。

行いたい作業は、「このwb」の複数シート（各月でシートにわけています）の
同じセル位置（R90C10、R110C10）から「転記先のwb」のセル（A1、A2～L1、L2）に転記することです。

「このwb」の名前が変わることがあり、いちいち変更するのが面倒なので
変数にしてしまおうと思いましたが、よくわかりません。

１月スタートではなく、６月スタートになっています。
このシート名も毎回指定するしかないですか？
シート名は「■月（支出）」の「■」の部分が6月始まりの5月終わりです。

「このwb」の複数シート（各月でシートにわけています）の
同じセル位置（R90C10、R110C10）も変わるかもしれないので
ここも変数に置き換えたいです。

※変えるときは全てのシートの位置を変えますので、（R●C▲、R●C▲）は常に一緒です。

以下、作ってみたのですが、
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とでます。

Sub 読込()

　　Workbooks.Open Filename:= _
　　"Y:\〇〇\××\△△\◇◇\このwb.xlsm" , UpdateLinks:=3
　　　　
　　Dim wb As Workbook
　　　　Set wb = Workbooks("このwb.xlsm")
　　　　
　　Windows("転記先のwb.xlsm").Activate
　　
　　Range("A1").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("6月（支出）").R90C10
　　Range("A2").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("6月（支出）").R110C10
　
　　Range("B1").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("7月（支出）").R90C10
　　Range("B2").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("7月（支出）").R110C10

　　.
　　.
　　.
　　.

　　Range("L1").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("5月（支出）").R90C10
　　Range("L2").Select
　　ActiveCell.FormulaR1C1 = wb.Sheets("5月（支出）").R110C10
　　　　
　　Windows("このwb").Activate
　　ActiveWorkbook.Save
　　ActiveWindow.Close
　　

　　MsgBox "転記が完了しました。"

End Sub

よろしくお願いします。

・ツリー全体表示


	【80708】Re:For Next ついてお願いします

初心者 - 19/4/18(木) 9:04 -


	引用なし

	パスワード

マナさん　

ありがとうございます。
おっしゃる方法はわかった上で
Next forの方法を知りたくて
質問しました。

▼マナさん：
>▼初心者さん：
>>B8とC8をB9C9からB30C30まで貼り付けたいのですが
>>出来ずに困っています。
>
>もう見ていないかもしれませんが…
>
>手操作だと、１行ずつ何回も貼り付けを繰り返しませんよね。
>B9:C30を選択して１回で貼り付けると思います。
>
>マクロでも同じですよ。
>
>Sub test()
>
>　　Range("B8:C8").Select
>　　Selection.Copy
>　　Range("B9:C30").Select
>　　ActiveSheet.Paste
>　　Application.CutCopyMode = False
>
>End Sub
>
>で、マクロだとセルを選択する必要はないので
>シンプルに、こんな記述にします。
>
>
>Sub test2()
>
>　　Range("B8:C8").Copy Range("B9:C30")
>
>End Sub

・ツリー全体表示


	【80707】Re:行番号列の列幅取得方法

マナ - 19/4/17(水) 22:12 -


	引用なし

	パスワード

▼［名前なし］さん：

MouseUpイベントで、ｘ，ｙ座標を取得しています。

グラフのイベントについては、
ichinoseさんの回答を参考にしてください。
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8886;id=excel#8886

・ツリー全体表示


	【80706】Re:For Next ついてお願いします

マナ - 19/4/17(水) 18:49 -


	引用なし

	パスワード

▼初心者さん：
>B8とC8をB9C9からB30C30まで貼り付けたいのですが
>出来ずに困っています。

もう見ていないかもしれませんが…

手操作だと、１行ずつ何回も貼り付けを繰り返しませんよね。
B9:C30を選択して１回で貼り付けると思います。

マクロでも同じですよ。

Sub test()

　　Range("B8:C8").Select
　　Selection.Copy
　　Range("B9:C30").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False

End Sub

で、マクロだとセルを選択する必要はないので
シンプルに、こんな記述にします。

Sub test2()

　　Range("B8:C8").Copy Range("B9:C30")

End Sub

・ツリー全体表示


	【80705】Re:行番号列の列幅取得方法

マナ - 19/4/17(水) 18:27 -


	引用なし

	パスワード

▼［名前なし］さん：

>シート内の円グラフクリック時、マクロを使ってクリックした系列を取得しようとしています。
>
>GetChartElementで系列を取得しようとし、
>GetCursorPosでマウス位置を取得しましたが、判定位置にズレがありました。
>

これとは違うのですか？

ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=80696;id=excel

別の方法でもよければ、こんな感じでできませんか。

Private Sub myChart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
　　Dim ElementID As Long
　　Dim Arg1 As Long
　　Dim Arg2 As Long

　　myChart.GetChartElement x, y, ElementID, Arg1, Arg2

　　If ElementID = xlSeries Then
　　　　MsgBox myChart.SeriesCollection(Arg1).Name
　　End If

End Sub

・ツリー全体表示


	【80704】Re:For Next ついてお願いします

初心者 - 19/4/17(水) 14:02 -


	引用なし

	パスワード

ありがとうございました

・ツリー全体表示


	【80703】行番号列の列幅取得方法

［名前なし］ - 19/4/17(水) 12:34 -


	引用なし

	パスワード

シート内の円グラフクリック時、マクロを使ってクリックした系列を取得しようとしています。

GetChartElementで系列を取得しようとし、
GetCursorPosでマウス位置を取得しましたが、判定位置にズレがありました。

CommandBars("Formula Bar")の高さ分減らすことで縦軸は調整できたのですが、
横軸のズレが残ったままとなっています。

横軸のズレを治すために、行番号列(A列の左)の幅を取得したいのですが、
CommandBars("Column").Widthを42、45、84の3種で行っても正しい値が取れません。

どの様な方法で取得したらよいでしょうか？
標準モジュールを使用しています。

・ツリー全体表示


	【80702】Re:For Next ついてお願いします

［名前なし］ - 19/4/17(水) 12:22 -


	引用なし

	パスワード

▼初心者さん：
>B8とC8をB9C9からB30C30まで貼り付けたいのですが
>出来ずに困っています。
>よろしくお願いします
>
>Sub Macro1()
>'
>'
>'Dim i As long
>
> For i = 9 To 30
>
>　　Range("B8:C8").Select
>　　Selection.Copy
>　　Range("B9").Select
>　　ActiveSheet.Paste
>　　Application.CutCopyMode = False
>　　
>　　
>　　Next
>　　
>End Sub

>　　Range("B9").Select

常にB9を選択しています。
下に進むには"B9"を"B"+CStr(i)に変更する必要があります。

・ツリー全体表示


	【80701】For Next ついてお願いします

初心者 - 19/4/17(水) 11:21 -


	引用なし

	パスワード

B8とC8をB9C9からB30C30まで貼り付けたいのですが出来ずに困っています。よろしくお願いします Sub Macro1() ' ' 'Dim i As long For i = 9 To 30 　　Range("B8:C8").Select 　　Selection.Copy 　　Range("B9").Select 　　ActiveSheet.Paste 　　Application.CutCopyMode = False 　　　　　　Next 　　 End Sub

・ツリー全体表示


	【80700】Re:グラフのアクティブ線が何番目である...

TK - 19/4/16(火) 9:52 -


	引用なし

	パスワード

▼マナさん：

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

グラフの数式から持ってくるという発想全くありませんでしたので、
目から鱗でした。

因みに感謝の投稿には蛇足ですが
作成中のグラフが4要素からなるグラフだけでなく
複雑なグラフも混じっていたのですが、UBound()を用いることで達成できました。

本当にありがとうございます。

・ツリー全体表示


	【80699】Re:指定する文字を含む列を別ブックにコ...

マナ - 19/4/15(月) 23:45 -


	引用なし

	パスワード

▼にゃんみさん：

まずは、こんな感じで考えてはどうでしょうか

１）「りんご」が何列目にあるか検索
２）１）の列をコピー
３）既存ブックのまとめシートに１列ずつずらしながら貼り付け
４）これを、すべてのシートで繰り返し

・ツリー全体表示


	【80698】指定する文字を含む列を別ブックにコピー...

にゃんみ - 19/4/15(月) 23:17 -


	引用なし

	パスワード

りんご　みかん　バナナ　いちご
１　　　　４　　　３　　　１
：　　　　：　　　：　　　：
のシートが何枚もあるのですが、りんごの列を別の新規ブック（既存ブックでも）にコピーして1シートに

１シート目のりんご　　２シート目のりんご…

のようにまとめをしたいのですが、どのようにVBAを作成したらよいかご教授いただけたら幸いです。
フィルターをかけるVBAも考えたのですが、列をまるごと抜き出したいので使用できませんでした。

・ツリー全体表示


	【80697】Re:グラフのアクティブ線が何番目である...

マナ - 19/4/15(月) 18:30 -


	引用なし

	パスワード

▼TK さん：

こんな感じでどうですか

Sub test()
　　Dim s
　　
　　If TypeName(Selection) = "Series" Then
　　　　s = Split(Selection.Formula, ",")
　　　　MsgBox Val(s(3))
　　End If
　　　　
End Sub

・ツリー全体表示


	【80696】グラフのアクティブ線が何番目であるかの...

TK - 19/4/15(月) 13:15 -


	引用なし

	パスワード

グラフの操作をする場合に
ActiveChart.FullSeriesCollection(3).～
として、グラフの3番目の線に対して変更を加えるという方法あると思いますが

逆にグラフ上で3番目のラインを選びアクティブにした状態で
「この線は3番目の線です。」と呼び出す方法はないでしょうか

.FullSeriesCollection(x)のxが確認できるマクロについて
ご存知の方いらっしゃいましたら、ご教授いただければ幸いです。

よろしくお願い致します。

・ツリー全体表示


	【80695】Re:excel vba redim実行でインデックスが...

γ - 19/4/12(金) 10:48 -


	引用なし

	パスワード

配列の宣言に　As が抜けていたり、Collsという意味不明なものがあったり、
Cells(a, b)やCells(c,d)の値について回答がないので、
質問への回答は難しいですね。

ところで、実行したいのはどういうことなんでしょうか。
想像ですが、
Range(Cells(1,1),Cells(3,4))のセル範囲の値を配列に取り込みたい
といったことではないですか？

もしそうなら、こういう風にします。

Sub test()
　　Dim v As Variant

　　v = Range(Cells(1, 1), Cells(3, 4)).Value
　　MsgBox v(1, 1)　'確認してみて下さい。
　　MsgBox v(2, 2)　' vは配列になっているはずです。
　　MsgBox v(3, 4)　
End Sub

・ツリー全体表示


	【80694】Re:条件に合った場合だけ、その行を非表...

γ - 19/4/12(金) 9:07 -


	引用なし

	パスワード

【B列が「高い」もしくはC列が「あり」だったら、その行を非表示】
は、
【1.B列が「高い」ではなく、かつ、2.C列が「あり」ではない、ものを抽出する】
と同じことです。

オートフィルタのテキストフィルタにある、「指定の値に等しくない」を使って
指定するとよいと思います。
その動作をマクロ記録すれば、参考となるコードが得られると思います。

・ツリー全体表示


	【80693】Re:条件に合った場合だけ、その行を非表...

ビギナー - 19/4/11(木) 10:32 -


	引用なし

	パスワード

＞マナさん

返事ありがとうございました。
また、返信遅くなり申し訳ございません。

マナさんの最初のアドバイス通り、オートフィルタでやってみました。

Rows("1:1").Select

Selection.AutoFilter

With Range("A")
.Autofilter Field:=2, Criteria1=""
.Autofilter Field:=3, Criteria1=""
End with

これで該当する項目があった場合は非表示に出来ました。

取り急ぎ報告まで。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

88 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free