エクセル上に並んだテキストボックスを、ボタンを押すことで、任意のテキストボックスをグループ化させたい。また、別のボタンでグループ化の解除が出来るようなVBAをおしえてください。

テキストボックスは、Sheet1~3まであって、ボタンもそれぞれに配置してあり、
どこのSheetのボタンを押しても、各シート、それぞれに任意の設定したテキストボックスがグループ化できるようにしたい
※各シート、グループ化するテキストボックスはおなじでなない・・・

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

「任意」の意味はVBAの中で自由に設定できると解釈しました。

Case以下を参考にして下さい。
下の例は、Sheet1~3の各テキストボックスに、'各シートに対応してmyText1_1、myText1_2、myText1_3・・・と名前を付けています。(Textの次がシート番号です)
2つのボタンは逆の処理なので表示・非表示を切り替えています。
最初は、結合していない状態を確かめて、結合ボタンから開始して下さい。

'標準モジュールに貼り付けます。
Public Sub Ketugou(mySht As Integer)
Dim sht As Integer 'シート
Application.ScreenUpdating = False
For sht = 1 To 3
Worksheets("Sheet" & sht).Activate
With Worksheets("Sheet" & sht)
Select Case sht
Case 1 '例、1,2,3を結合
.Shapes.Range(Array("myText1_1", "myText1_2", "myText1_3")).Select
Case 2 '例、2,3,4を結合
.Shapes.Range(Array("myText2_2", "myText2_3", "myText2_4")).Select
Case 3 '例、1,4を結合
.Shapes.Range(Array("myText3_1", "myText3_4")).Select
End Select
Selection.ShapeRange.Group.Select 'グループ化
Selection.Name = "grp" & sht 'グループ名(解除できるよう勝手に名前を付けている)
.Shapes("grp" & sht).TopLeftCell.Select 'グループの左上を選択状態にする
.cmdKetugo.Visible = False '結合ボタンを非表示
.cmdKaijyo.Visible = True '解除ボタンを表示
End With
Next
Worksheets("Sheet" & mySht).Select '元のシートに戻る
Application.ScreenUpdating = True
End Sub

Public Sub Kaijyo(mySht As Integer)
Dim sht As Integer 'シート
Application.ScreenUpdating = False
For sht = 1 To 3
Worksheets("Sheet" & sht).Activate
With Worksheets("Sheet" & sht)
.Shapes("grp" & sht).Select 'グループを選択
Selection.ShapeRange.Ungroup.Select '結合解除
.Shapes("myText" & sht & "_1").TopLeftCell.Select '左上セル
.cmdKetugo.Visible = True '結合ボタンを表示
.cmdKaijyo.Visible = False '解除ボタンを非表示
End With
Next
Worksheets("Sheet" & mySht).Select '元のシートに戻る
Application.ScreenUpdating = True
End Sub

各シートには同名のボタンが2個あります。cmdKetugoとcmdKaijyo。
各シートモジュールに貼り付けます。ただし、KetugouとKaijyoの次の数値は、そのシート番号にします。どのシートに復帰すればいいかを表しています。
Private Sub cmdKetugo_Click()
Ketugou 1
End Sub

Private Sub cmdKaijyo_Click()
Kaijyo 1
End Sub
    • good
    • 0
この回答へのお礼

またまたnishi6さん!いつもすみません!ありがとうございます。
結合したら結合ボタンが消えて、解除が現れの繰り返し、には感動しました。
おーっ!って感じでした。今回も一発で成功しました。
ほんとにいつもいつもありがとうございます。

ところで、さいそくしてすみませんが、テキストボックスに値を入れるの質問1)2)3)の件、私のほうは、まだうまくいきません!やっぱりまだまだですね!もう、私の作戦はでつくしました。ギブアップ寸前です。いつも無理言ってすみませんが、よろしくお願いします。

お礼日時:2001/06/11 21:51

Private Sub CommandButton1_Click()


 'グループ化
 Dim myDocument As Worksheet
 Set myDocument = Worksheets("Sheet1")
 myDocument.Shapes.Range(Array("Text Box 1", "Text Box 3")).Group
End Sub

Private Sub CommandButton2_Click()
 'グループ解除
 Dim myDocument As Worksheet
 Set myDocument = Worksheets("Sheet1")
 myDocument.Shapes("Group 1").Ungroup
End Sub


ヘルプ「ShapeRange コレクション オブジェクト」のサンプルの変形です。
"Text Box 1"などの名前に関しては、あらかじめイミディエイトペインで
? Worksheets(1).shapes(1).name
などとして調べておけば良いでしょう。

グループ解除については、ここでは単純化していますが実際には、も少しややこしいです。
というのも、グループ化を行うごとにShapeオブジェクトが新規に生成され、同時に名前(Group X)が新しく自動で生成されるからです。

この問題に関しては、グループ化を行う前と後で、Shapesコレクションの中身を比較し、新たに増えたオブジェクトの名前を記録しておけば解決できると思います。

不明点とかあれば、補足してください。
    • good
    • 0
この回答へのお礼

ARCさん!いつも回答ありがとうございます。
早速コードを書いていますが、まだ動いてくれません。でも何とか動きそうなのでがんばってみます。
また何かありましたら、よろしくお願いします。ありがとうございました。

お礼日時:2001/06/11 21:43

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q千葉県

こんにちわ♪
私は、生まれも育ちも「千葉県」です。
そこで、質問なんですが、皆さんが持つ「千葉県」「千葉県民」のイメージを
教えて下さい(*^∇^*)やっぱり、落花生とか海とかなのかな?
ふと気になったんで(笑)
生まれてから、約20年間千葉に住んでいるので、自分ではどうしても「千葉県」「千葉県民」を客観視できなくて・・・
辛口意見もOKです♪(笑)ただ、単なる中傷とかは、千葉県を愛してる人もいると思うからご遠慮下さいね。

Aベストアンサー

私も千葉県生まれの千葉県育ちで千葉大好きッス!!

別に客観視しなくてもいいと思います。

千葉の銘菓といえば「パイまん」と「ほろにがい千葉ん」でしょ~
特に「ほろにがい千葉ん」
この辺のダジャレっぷりが千葉っぽくていいよね!!
千葉は気候も暖かく、海も山も近くにあるので生活に困る事はほとんど無い。
他の地域の人たちより暑さ、寒さに苦しむ事も無く穏やかなので
性格ものんびりおっとりが多いんじゃ無いかな~
口が悪い人は多いけどね。「バカ」は親しい人への挨拶みたいなモンだしね。
それって千葉県民なりの愛情表現。
他の地域の人たちは知らないから吃驚したり怒ったりするけどね~

俺も千葉県人だからのんびりぼけ~ッとしているし、千葉はいい所だし
このまま一生千葉にいたいと思っています。

Qアクセスで、テキストボックスに値を入れてコマンドボタンを押すと、リストが検索した値で絞られるようにし

アクセスで、テキストボックスに値を入れてコマンドボタンを押すと、リストが検索した値で絞られるようにしたいです。例えば、ボックスにAAといれたら、AAのみが表示されるようにしたいです。

以下添付資料の通り、VBAを作ったのですが、うまく回りませんでした。どこがおかしいかをご指摘いただけませんでしょうか。

Aベストアンサー

図から察するに
フィルターをかけるのは、ボタンのあるフォームではなく、
そのフォームにあるサブフォームでしょうか。

ということなら

With Me.サブフォームコントロール名.Form
  .Filter = " ・・・・
  .FilterOn = True
End With

Q千葉県の素晴らしいところ

近いうちに、大阪から千葉県に移り住むかもしれません。少しでも千葉県のことを知っておきたいと想っています。そこで、みなさんが感じる、千葉県の素晴らしいところを教えていただけませんか?よろしくお願いします。

Aベストアンサー

こんにちは。
千葉へようこそ。

千葉には数十年住んでいました。
(今は仕事などの関係で、別のところに住んでいます。)

千葉といっても、
私は、「千葉県南部」、
   「千葉市周辺~東京都近く」
が行動範囲でしたが。

「銚子」近辺などのJR成田線、総武本線、
「柏、松戸、我孫子」などのJR常盤線(千葉駅からは少々行きづらい)
あたりが、詳しくない地域です。



私の個人的な意見ですが、
千葉は、下記のような場所です。

●ディズニーリゾートで有名(京葉線 舞浜駅)
 
 通勤定期で降りられましたが、そんな毎日入るほどではありません(笑)。
 夜8時半頃、打ち上げる花火は、
 舞浜駅のホームや電車からも見えます。
 一駅先の「葛西臨海公園駅」にある、
 大きな観覧車も見えてキレイです。
 
 ディズニーランドなどより、入場料のかからないイクスピアリで、
 ウィンドーショッピングするのが好きでした。
 買い物が、一年中、夜九時までできましたし。
 ここからも花火、見れますよ。
  
 ※京葉線は、千葉駅を通っていない、
  というのは、千葉県民からみても不思議な事のひとつです。


●千葉県内最大(?)のショッピングセンターは、広い!
(京葉線 南船橋駅)

 以前、南船橋には、快速電車が停車しなかったのですが、
 「ららぽーと」のリニューアルがあって、
 買い物客が増えてから、停車するように。

 シネコンもあり、広々とした店内は迷子になりそうです。
 「東京パン屋ストリート」は、待ち時間がでるほどの、
 フードテーマパークです。(私は待ち時間に驚いて、まだ入っていません)


●近未来都市みたい・・・(京葉線 海浜幕張駅)

 開発の手が入ったのが少々遅かったので、
 大きなビル(IT系企業多し)が多いです。
 そのため、よくドラマやCMの撮影に使われています。
 東京都内を走るバスを使った、佐藤浩一のCMも、
 ここで撮影していました。

 モーターショーで有名な「幕張メッセ」も、ここにあります。
 フランスから進出したスーパー「カルフール」も、ここです。
(業績がよくないので、国内の企業に売却予定ですが)

●灰をかぶるくらい近くで見られる花火大会(京葉線 千葉みなと駅)

 都内よりも、規模は小さいですが、
 ポートタワー近くの花火大会は、座れる場所が多いです。
 結構、近くで見られますよ。
 今年は、「江戸川花火大会(総武線 市川駅)」と一緒の日でした。

●貸し出し数 日本一の図書館 (浦安市)

 「浦安市図書館」は、日本全国から視察にくる図書館です。
 返却された本が、かなりの早さで、棚に整理されたり、
 司書の方が多かったり・・・
 いろいろ改革している図書館みたいですよ。

●初年度の利用者は、ディズニーランドに勝った「アクアライン」

 千葉県木更津市→神奈川県川崎市
 を横断する道路。半分は地下、半分は海上を走ります。
 晴れていると気持ちいいですし、夜景もまあまあです。
 この道路の近くに、「スパ三日月 竜宮城」という、スパ施設があります。

 地元民は、横浜や羽田に行く時に楽になって喜んでますが・・・。
 リピーターが少ないせいか、業務用車両が使わないせいか、
 1日に1億円の赤字が発生しています(苦笑)。
 困った公共事業です・・・。

●「木更津キャッツアイ」のロケ地  (内房線 木更津駅)

 撮影後、しばらくはロケに使ったお店なども観光用に公開されていました。
 ドラマに出てきた「やっさい もっさい」祭りは、実在します(笑)。

●星の数に驚く!砂浜 (九十九里海岸、千倉など)

 市街地から少し離れるせいか、
 特に冬は、とても星がきれいです。
 でも夏に流星群を見るのもいいですね。

●食材が安くて、美味しい

 農業県のため、野菜が安くて新鮮です。
 (スイカなど、日本2位というのが、意外と多いんですよ。)
 果物も安いですよ。梨も盛んですし。
 海が近いためか、魚も安いです。
 国道沿いの回転寿司でも安いわりに美味しいような・・・。
 畜産も、卵(3位)、豚(5位)、乳牛(5位)など、
 盛んなため、安くて新鮮です。
 ・・・でも安く感じたのは、私が住んでいたのが、
 田舎だったからかもしれませんが(笑)。

 組織的な酪農は、千葉県南部が発祥地のようです。

●海と並走する線路 (内房線、外房線)

 内房線なら、冬の晴れた日や、
 風の強い夕暮れに富士山が拝めます。
 外房線なら、太平洋が拝めます。
 プラットホームの近くに桜が植えられている駅では、
 桜を見ながら、さざなみを聞く事ができますよ。

●温暖な気候だから見られる、さまざまな花

 1月  水仙(内房線 保田駅)何キロも続く、水仙畑。
     菜の花(房総フラワーライン・館山)千葉県の花です。
 2月  梅(梅林園・総武線 幕張本郷駅)
 3月  チューリップ(佐倉チューリップまつり)40万本と、すごい規模です。
 4月  桜(吉高の大桜)山桜で、天然記念物に指定されています。
     レンゲ(大多喜世界レンゲまつり)6ヘクタールと、すごい規模です。
 5月  牡丹(茂原牡丹園)
     薔薇(谷津バラ園・京成電鉄 谷津駅)
 6月  紫陽花(あじさい屋敷・茂原)
 7月  菖蒲(佐原市立水生植物園)東洋一の規模です。水郷の町として有名。
 8月  向日葵(成田ゆめ牧場・成田線 滑河駅から送迎バス)
 9月  コスモス(マザー牧場・富津)斜面一面に咲くのが見事です。
     サルビア( 〃 )
 10月 菊(成田山・成田線 成田駅)
 11月 紅葉(不動滝・鴨川)
 12月 ポピー(館山ファミリーパーク) 買って帰る事もできます。
     ストック( 〃 )

 今はデジカメですが、昔は一眼レフカメラをかついで、
 よく花の写真を撮りに行きました。いいところですよ♪

ちーとばし(←私の住んでいた地域の方言)、口が悪くても、
千葉、いいところですよ。
好きになって下さったら、幸いです。、




 

 

こんにちは。
千葉へようこそ。

千葉には数十年住んでいました。
(今は仕事などの関係で、別のところに住んでいます。)

千葉といっても、
私は、「千葉県南部」、
   「千葉市周辺~東京都近く」
が行動範囲でしたが。

「銚子」近辺などのJR成田線、総武本線、
「柏、松戸、我孫子」などのJR常盤線(千葉駅からは少々行きづらい)
あたりが、詳しくない地域です。



私の個人的な意見ですが、
千葉は、下記のような場所です。

●ディズニーリゾートで有名(京葉線 舞浜駅)
 
...続きを読む

Qラベルとテキストボックスのグループ化を解除したい

ウィザードで作ったフォームがあるのですが、
画像のようにラベルとテキストボックスを離す事ができません。
ずっとくっついてきます。

二つを選択し、グループ化をしてその後解除してみましたが
やっぱし離れません。

離れられない運命なのでしょうか?
アクセス2007です。ご回答よろしくお願いします。

Aベストアンサー

> 画像のようにラベルとテキストボックスを離す事ができません。

ウィザードを使用したフォームでは、レイアウトが固定されてしまいます。
http://oshiete.goo.ne.jp/qa/5117498.html

『配置』リボンから、上記Q&Aに記述した操作を行うか、コントロールの
右クリックメニューから、「レイアウト(L)→解除(R)」を指定するかして、
レイアウトの解除を行えば、後はNo.1の方の回答にあるように、
各コントロールの右上のハンドル(「■」の部分)のクリック&ドラッグで
移動が可能になります。

Q千葉県に縁の深いプロ野球チームは

最終確認ですが、千葉県に縁の深いプロ野球チームは、我らが千葉ロッテマリーンズ、鎌ヶ谷に2軍のある北海道日本ハムファイターズ、千葉県習志野市で結成され佐倉市が出身のミスターもいる読売ジャイアンツですよね?

Aベストアンサー

千葉県出身のプロ野球選手は多数います。

ミスターを筆頭に掛布、小笠原、阿部慎之助、高橋由伸、篠塚、与田、涌井…等。

しかしながら千葉県と言えば…やはり「千葉ロッテマリーンズ」でしょう!

Qグループ化されていないテキストボックスで構成された1ページをコピーしたい

先陣の作った PTA新聞のテキストをコピーして 2人でページを分けて
編集作業をしています グループ化されていない1ページをそのまま
相手のテキストに移したいのですが・・・初心者の為 出来るだけ簡単な方法を教えてください

Aベストアンサー

テキストボックスのコピー貼り付けですね
お試しを
テキストボックスの上でクリック → 表示される薄い点の枠の上でカーソルが四方向矢印とに白抜き矢印となったときにクリック → 書式 → コピー → 新しい文書に貼り付け → 新しい文書に名前を付けて保存

Q今現在の千葉県での生活

私は千葉県の大学に進学しようか迷っています。
周りの人からは、千葉県などの関東圏は震災の影響で放射線の恐怖、地震が未だに頻繁に発生する、節電で思うように電気が使用できない、などで千葉県に行っても生活に困ってしまうという意見が多数です。

そこで質問なんですが、今現在の生活はどのようなものなのでしょうか?
やはり地震や節電などで震災前の生活はできていないのでしょうか?

千葉県にお住まいの方に解答していただけると幸いです。
わかりずらい文章ですいません。

Aベストアンサー

私は千葉県佐倉市に
家族4人で住んでいます。

千葉県の中でも
場所によって
差はあると思いますが
電気が使用出来ないとか
まったくありません。

あと周辺地域の
震災に関連する色々な
情報も 仕入れてますが
特に放射能の事で
危険があるとか 一切
ありません。

だから普通に
生活していますよ !
(自主的に節電は
しているつもりですが)

質問者様が行く予定の
地域にある 市役所の
環境管理局?等に
問い合わせたら
答えてくれると思います。

あまり 過大な心配は
なさらずに
大変かと思いますが
進路など頑張って下さい!

Qエクセル シートのグループ化 編集のグループ化 ではなく 下部のタグの見栄えをグループ化 できないか

エクセルでのシートのグループ化といえば
複数のシートを一度に同時に編集する際に行いますが
このグループ化ではなく


下部のタグ
Sheet1 / Sheet2 / Sheet3 / Sheet4 / Sheet5 /
の見栄えをグループ化表示することなど出来ないのでしょうか?


例えば

/ 元データ / 大阪A / 大阪B / 大阪C / 東京A / 東京B / 東京H / 東京K / 札幌B /
なんていうタグの集まりを

/ 元データ/ お / と / さ /
と表示させ
その中の
/ と / をクリックすると
例えば
/ 上位タグへ・・・ / 東京A / 東京B / 東京H / 東京K /
なんていう風に広がってゆく


といったような・・・・
コレに近いことはできないものでしょうか?

やはりムリでしょうか?

Aベストアンサー

シート名の階層化、シートタグの階層化は、言われてみればニーズはあると思うが、マイクロソフトにはその概念は全くないと思います。
別ブックに収容して分けるということになるのでしょう。構造からして、この概念を取り入れると、相当エクセル本体開発者も大幅可変で苦労するのではないかと思います。
10数年前は表計算のシートも単一だったように思うし、色々他の要望もあるし。今までこの質問は初めてと思います。
ーー
(1)シート一覧作成説
(2)ハイパーリンク作成説
ぐらいでしょうか。
VBの「タブ」や「ページ」コントロールなども階層化はできてない?。
ーーー
私の思いつきで
2レベルの分類でシートタブの見た目を切り替えるのを考えてみました。
Sheet1 索引シートに当たる。
そこに
A,B列に
東京Sheet2
Sheet3
大阪Sheet4
Sheet5
福岡Sheet6
Sheet7
Sheet8
と上位分類名と、それで分類してシート名を入れておく。
Sheet1のSelection_Changeイベントに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target = "" Then Exit Sub
For i = 1 To Sheets.Count
If Worksheets(i).Name = "Sheet1" Then
Worksheets(i).Visible = True
Else
If Worksheets(i).Visible = True Then
Worksheets(i).Visible = False
End If
End If
Next i
'---
h = Target.Offset(0, 1).Value
Worksheets(h).Visible = True
For i = 1 To 100
If Target.Offset(i, 0) <> "" Or Target.Offset(i, 1) = "" Then Exit For
Worksheets(Target.Offset(i, 1).Value).Visible = True
Next i
Worksheets(h).Select
End Sub
を貼り付ける。
ーー
Sheet1で東京をクリックすると
Sheet、Sheet2、Sheet3のタブだけが見えて
Sheet2が選択される。
(上記は急いで作っていますので改良や場部バグとりが必要かも。
私のテストで単純には動きます。)

シート名の階層化、シートタグの階層化は、言われてみればニーズはあると思うが、マイクロソフトにはその概念は全くないと思います。
別ブックに収容して分けるということになるのでしょう。構造からして、この概念を取り入れると、相当エクセル本体開発者も大幅可変で苦労するのではないかと思います。
10数年前は表計算のシートも単一だったように思うし、色々他の要望もあるし。今までこの質問は初めてと思います。
ーー
(1)シート一覧作成説
(2)ハイパーリンク作成説
ぐらいでしょうか。
VBの...続きを読む

Q今回の震源地は千葉県北西部?

報道では23日の地震は「千葉県北西部を震源とする強い地震」となってますが、地図で見ると房総半島の真ん中あたりですよね?
この辺は「千葉県の北西部」なんでしょうか?
以前千葉に住んでいたこともあるのですが意外な気がします。
感覚的には「千葉県南部」だと思います。

人口は関係ないんでしょうが、人工的には千葉市の北西の方が圧倒的に多いので、その辺が中心地とすると明らかに「南部」だと思うのですが・・・

Aベストアンサー

市原市は、千葉県中央にありますが、気象での区分は、北西部、北東部、南部の3区分なので、市原市までが北西部です。
1997年までは県単位の予報でした。
気象予報区については、参考URLをどうぞ。

でも、市原市って、ぞうの国とか、房総半島のど真ん中まで市域なんですよね。^^;)

参考URL:http://www.tt.rim.or.jp/~ishato/tiri/tenki/tenki.htm

Qエクセルでテキストファイルからフォームのテキストボックスにテキスト挿入するマクロ

マクロでフォームのテキストボックスに直接テキストファイルからテキストを挿入したいのですが出来ますか?
opentextでエクセルシートに入れてからフォームにコピーすることはできたのですが、それだと重くなってしまうので直接取り込みたいんですがうまくいきません。
VBやJAVAのreadlineのようなものは使えないんでしょうか。

Aベストアンサー

>VBやJAVAのreadlineのようなものは使えないんでしょうか。

LineInput がありますよ。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_030.html
http://rd.search.goo.ne.jp/click?DEST=http%3A%2F%2Fofficetanaka.net%2Fexcel%2Fvba%2Fstatement%2FLineInput.htm&no=2


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報