- 1 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 19:34:59.04 ID:emfTAhXr0.net]
- !extend:checked:vvvvv:1000:512
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part62
https://mevius.5ch.net/test/read.cgi/tech/1561303297/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
- 8 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 00:12:51.48 ID:QL/1GsWjx.net]
- LongLong型に定数値として4,294,967,296を与えておきたいのですがLongの範囲を超えているせいか、必ず後ろに#が付いてしまいます
用途としては強引にunsigned Long的に使う為のオフセットなのですが#を付けない方法はありますか？
- 9 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 00:26:07.74 ID:dEY9k2Om0.net]
- Verylong型
- 10 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 01:14:04.05 ID:chWRxzLY0.net]
- ちんぽこ
- 11 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 05:14:20.51 ID:x3oFyaLA0.net]
- >>8
式は書けないんだったっけ…
- 12 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 12:34:56.30 ID:WreyM4md0.net]
- LongPtr
- 13 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 19:25:37.80 ID:gAW2iwiH0.net]
- 前スレの最後でセルに色をつけるコードを作って頂いた者です。職場で試してみましたが思い描いた通りに動いてくれました！これを機に自分で作れるように勉強したいと思います。作って下さった方、本当にありがとうございました…！
- 14 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 19:44:50.07 ID:1jOFcYgS0.net]
- ぽこちん
- 15 名前：デフォルトの名無しさん mailto:sage [2019/09/17(火) 22:00:10.80 ID:g2VoYh6px.net]
- スレチなのは分かってるけど詳しい人がここにしかいなさそうだから、もし知っていたら教えてほしい
ブックに保存されたクエリをOLAP等で使い回すためにODCファイルとしてエクスポートしたいんだが、「既存の接続」コマンドからクエリのプロパティを開いても「接続のエクスポート」のボタンが無効になっていてうまくエクスポート出来ない
どうしたらうまくエクスポートできるのか知りたい
- 16 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 00:53:52.38 ID:2k/sPvaQ0.net]
- 珍ぽこりん
- 17 名前：デフォルトの名無しさん [2019/09/18(水) 02:08:49.51 ID:IoDIi0WV0.net]
- すみません。
エラーが分からず・・・教えてください。
下記コードで、”型が一致しません”というエラーが出ています。
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1") ←エラー
ThisworkbookのB6には”テストファイル.xlsx”が入っています。
よろしくお願いします。
- 18 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 02:37:53.20 ID:6F01cvXOx.net]
- >>17
Worksheet(Range("B6"))じゃなくてWorksheets(Range("B6").Value)でしょう
あとRange("B6")はどのシートのB6セルなのかな？
この書き方だとThisWorkbookがActivateされたときにアクティブになってるシートのB6セルが参照されてしまうので、ちゃんとシートを指定して書いたらどうかな
例えばThisWorkbookの一番目のシートのB6セルにファイル名が書かれている前提ならこうなる
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Application.Workbooks(ThisWorkbook.Worksheets(1).Range("B6").Value).Worksheets("Sheet1")
- 19 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 06:35:56.16 ID:2k/sPvaQ0.net]
- ポコポコてぃんてぃむ
- 20 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 07:18:06.31 ID:Sjvl4q9oM.net]
- >>8
つけないのは無理だったと思う
今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな？
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/longlong-data-type
|
 |
