Ｐａｇｅ 56 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼通貨スタイルアイコンが出てこない ぴかる 02/9/9(月) 18:37 ┗Re:通貨スタイルアイコンが出てこない りん 02/9/9(月) 21:21 ┣ついでに調べてみました りん 02/9/9(月) 21:52 ┃ ┗ばっちりでした。 ぴかる 02/9/9(月) 22:24 ┃ ┣それは何より りん 02/9/9(月) 22:54 ┃ ┃ ┗にゃるぼど ぴかる 02/9/9(月) 23:11 ┃ ┗こっちも、ばっちりだったので ぴかる 02/9/9(月) 23:02 ┃ ┗どれのことかわからないので りん 02/9/9(月) 23:29 ┃ ┗お蔵入りしてました。 ぴかる 02/9/10(火) 8:14 ┗夕べは、よかったのに・・・。 ぴかる 02/9/10(火) 12:45 ┗Re:夕べは、よかったのに・・・。 りん 02/9/10(火) 13:05 ┗Re:夕べは、よかったのに・・・。 BOTTA 02/9/10(火) 13:26 ┗ご迷惑をおかけしました。 ぴかる 02/9/10(火) 14:12 ─────────────────────────────────────── ■題名 ： 通貨スタイルアイコンが出てこない ■名前 ： ぴかる ■日付 ： 02/9/9(月) 18:37 -------------------------------------------------------------------------
| みなさん、こんにちは。 「ピカつーる」不具合が１つ出ました。通貨スタイルアイコン(ID:=1643)が出てこないです。事務の女の子が「ないと困るんだけど・・・」の一言で気付きました。なんでかよく分かりません。お分かりの方、お見えでしたらよろしくお願いいたします。 サンプルマクロ Sub test() Dim myCB As CommandBar Dim myCBCtrl As CommandBarButton On Error Resume Next CommandBars("ｻﾝﾌﾟﾙ").Delete Set myCB = Application.CommandBars.Add(Name:="ｻﾝﾌﾟﾙ", Temporary:=True) Set myCBCtrl = myCB.Controls.Add(ID:=1643) Application.CommandBars("ｻﾝﾌﾟﾙ").Visible = True End Sub Sub AUTO_CLOSE() On Error Resume Next CommandBars("ｻﾝﾌﾟﾙ").Delete End Sub |
| こんばんは。 >なんでかよく分かりません。お分かりの方、お見えでしたらよろしくお願いいたします。 ↓ エラースキップを解除していないので、 > On Error Resume Next > CommandBars("ｻﾝﾌﾟﾙ").Delete > > Set myCB = Application.CommandBars.Add(Name:="ｻﾝﾌﾟﾙ", Temporary:=True) ↓ ここがエラーになってスキップされています。なんでかはわかりません。 > Set myCBCtrl = myCB.Controls.Add(ID:=1643) 回避方法 直に追加ができないならば、コピーすればいいです。 Sub test() 8<-----8=-----8<-----8=-----8<-----8=-----8<-----8=----- 略 8<-----8=-----8<-----8=-----8<-----8=-----8<-----8=----- Set myCB = Application.CommandBars.Add(Name:="ｻﾝﾌﾟﾙ", Temporary:=True) Set myCBCtrl = Application.CommandBars.FindControl(Id:=1643) If Not myCBCtrl Is Nothing Then myCBCtrl.Copy myCB, 1 |
| ぴかるさん、こんばんわ。 コマンドをバーに追加しつつ、Err.Descriptionでエラーの内容を確認したら、 'Add' ﾒｿｯﾄﾞは失敗しました: 'CommandBarControls' ｵﾌﾞｼﾞｪｸﾄ Caption Bar Id 最近使用した色(&R) Fill Color 1457 色なし(&N) Line Color 1458 最近使用した色(&R) Line Color 1462 通貨ｽﾀｲﾙ(&C) Formatting 1643 この４つがIdで直接指定すると失敗するようです。英語版だと失敗しなかったりして。 |
| りん先生、こんばんは。 先生からのご回答、心よりお待ちしておりました。うまく出来ました。ありがとうございました。色々と不思議な事があるもんですね。「ピカつーる」も少しずつですが進化しています。もうすぐ谷さんに送付しようと思ってます。是非とも試して下さいね。そして「そんなんじゃぁ、ダメ〜」のきびしいつっこみを下さい。どうも刺激がないとちょっちさびしいんです。よろしくです。 >8<-----8=-----8<-----8=-----8<-----8=-----8<-----8=----- ところでこれって何？。たまに見ますが・・・。 ついでの方も奥が深そうですね。いろいろと調べていただきましてありがとうございました。 |
| ぴかるさん、こんばんわ。 >>8<-----8=-----8<-----8=-----8<-----8=-----8<-----8=----- >ところでこれって何？。たまに見ますが・・・。 ほぼ１年前の失われたＶ３過去ログのねこさんとつんさんのラブラブ会話（大嘘）から。 ====================================== 【5026】Re:そーなんですね〜 つん - 01/9/20(木) 23:30 - ====================================== ねこさん。 >>Private Sub UserForm_Initialize() >----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= >間省略 >----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= >>End Sub こ・・これは一体なんですか？ ====================================== 【5027】Re:そーなんですね〜 ねこ＠自宅 - 01/9/21(金) 0:53 - ====================================== ▼つんさん こんばんゎ〜 >>>Private Sub UserForm_Initialize() >>----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= >>間省略 >>----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= ----- 8< ----- 8= >>>End Sub >こ・・これは一体なんですか？ ちょきちょきちょきちょき…… つんさんのサンプルをはしょったのですね^^; ====================================== 【5039】あー、はさみか〜 つん - 01/9/21(金) 16:51 - ====================================== ねこ＠自宅さん、こんにちは〜ん。 今は会社でしょうね(^^;) > ちょきちょきちょきちょき…… つんさんのサンプルをはしょったのですね^^; あ、わかった。はさみなわけですね。 「8=」→閉じてるはさみ 「8<」→開いてるはさみ、なのね。 ====================================== 勝手に引用、ごめんね＞つんさん、ねこさん 先日、過去ログの掘り起こしをやっていて見つけました。 なんとなく気に入っているので使っていますが、よく見ると微妙にちがってます。 |
| にゃるぼど、にゃるぼど、ねこさんでしたか・・・。グ〜！ お〜、もう１１時かぁ〜。ええ加減にしてそろそろ帰ります。バイバイ |
| りんさん、こんばんは。 誠に遅れてしまいましたが、「ピカつーる」にて勝手にりんさんコード(図形の削除)を頂いてます。何卒、お許し下さい。このコードを見つけた時、大感動で即個人用マクロブックに展開してました。皆さんにも使ってもらいたくて今回、導入させていただいた次第です。よかったですよね？。 |
| ぴかるさん、こんばんわ。 >誠に遅れてしまいましたが、「ピカつーる」にて勝手にりんさんコード(図形の削除)を頂いてます。何卒、お許し下さい。このコードを見つけた時、大感動で即個人用マクロブックに展開してました。皆さんにも使ってもらいたくて今回、導入させていただいた次第です。よかったですよね？。 ご自由にどうぞ（笑） |
| りんさん、おはようございます。 >ご自由にどうぞ（笑） ありがとうございます。他にもなんかいいのあったらほし〜いなぁ〜。(^^) ところで探してみましたが、お蔵入りしてました。去年の１２月頃の記事だったと思います。参考までにこんなコードです。 Dim Sh As Shape, R1 As Range, R2 As Range If TypeName(Selection) = "Range" Then If ActiveSheet.Shapes.Count > 0 Then For Each Sh In ActiveSheet.Shapes '図形が完全に範囲に含まれる場合は削除する '図形左上セルのチェック Set R1 = Application.Intersect(Selection, _ Sh.TopLeftCell) '図形右下セルのチェック Set R2 = Application.Intersect(Selection, _ Sh.BottomRightCell) If R1 Is Nothing Or R2 Is Nothing Then '左上セルまたは右下セルが選択範囲の外にある場合は無視 '両方外にある場合も無視 Else Sh.Delete End If Next End If End If Set R1 = Nothing: Set R2 = Nothing |
| りん さん、こんにちは。 なぜなんでしょう？。さっきやってみたら登場してくれませんでした。なんかやらかしたんかな？ 不思議？？？。全くの？？？です。どうしてなんでしょうね。お気付きの点ありましたらよろしくお願いいたします。 これでやってます。 Sub TES() Dim myCB As CommandBar Dim myCBCtrl As CommandBarButton On Error Resume Next CommandBars("ｻﾝﾌﾟﾙ").Delete On Error GoTo 0 Set myCB = Application.CommandBars.Add(Name:="ｻﾝﾌﾟﾙ", Temporary:=True) Set myCBCtrl = Application.CommandBars.FindControl(ID:=1643) If Not myCBCtrl Is Nothing Then myCBCtrl.Copy myCB, 1 Application.CommandBars("ｻﾝﾌﾟﾙ").Visible = True End Sub |
| ぴかるさん、こんばんわ。 >なぜなんでしょう？。さっきやってみたら登場してくれませんでした。なんかやらかしたんかな？ >不思議？？？。全くの？？？です。どうしてなんでしょうね。お気付きの点ありましたらよろしくお願いいたします。 Sub TEST() Dim myCB As CommandBar Dim myCBCtrl As CommandBarButton Dim cbn As String: cbn = "ｻﾝﾌﾟﾙ" With Application On Error Resume Next .CommandBars(cbn).Delete On Error GoTo 0 Set myCB = .CommandBars.Add(Name:=cbn, Temporary:=True) Set myCBCtrl = .CommandBars.FindControl(Id:=1643) If myCBCtrl Is Nothing Then MsgBox "1643 not Found", vbInformation Else myCBCtrl.Copy myCB, 1 End If .CommandBars(cbn).Visible = True End With End Sub メッセージでますか？ もしくは 通貨ボタンありますか？ 考えたくないけど...ありえるので。 Sub Macro() Dim cb As CommandBar Dim cbc As CommandBarControl Application.ScreenUpdating = False Workbooks.Add '新しいブック For Each cb In Application.CommandBars Application.StatusBar = cb.Name For Each cbc In cb.Controls II& = II& + 1 Cells(II&, 1).Value = cb.Name Cells(II&, 2).Value = cbc.Id Cells(II&, 3).Value = cbc.Caption If cbc.Type = msoControlButton Then Cells(II&, 6).Select cbc.CopyFace: ActiveSheet.Paste End If Cells(II&, 4).Value = cbc.Type Next Next ActiveWorkbook.Saved = True Application.ScreenUpdating = True Application.StatusBar = False End Sub で、コントロールの一覧を取得して、通貨スタイルが1643かどうか確認してください。 |
| ぴかるさん、りんさん、こんにちは。 あいかわらず横から失礼します。 私のところの環境では、 ユーザー設定で「通貨スタイル」ボタンを非表示にしていると、 アイコンがでてきません。 ちゃんと表示してあるとでてきます。 ↓以前作ったもの。 Sub aaa() Dim Index As Integer, bar As CommandBar, myCBCtrl As CommandBarControl For Index = 1 To Application.CommandBars.Count Set bar = Application.CommandBars(Index) Set myCBCtrl = bar.FindControl(ID:=1643) If Not myCBCtrl Is Nothing Then MsgBox bar.Name Next End Sub これで、CommandBarの名前が表示されたときはでてきます。 |
| りんさん、BOTTAさん、こんにちは。 すみません。私のチョンボでした。気付かぬうちに消してたみたいです。再登録後ＯＫとなりました。誠にご迷惑をおかけしました。対応ありがとうございました。これくらい自分で気付かないとダメですね。反省・・・。<(_ _)> |