EXCEL97を使用しています。

結合セルと結合していないセルが共に含まれた範囲を指定してコピーし、別のセルに『形式を選択して貼付け』の『貼付 値』を行った場合に「この範囲には同じ操作のセル結合が必要です」とのメッセージが出て、貼付けできません。

※ 上記の選択範囲の例
  A1とB1をセル結合した上、A1:B4を範囲指定(A2:B4は通常セル)

書式設定のボタンの『←a→』という形のものを使っているのですが、95の時はセル結合機能までが付与されてなかったので、問題なかったのですが、97になって困っています。

以下のようなアイデアはありますが、それ以外に良いものはあるでしょうか。
1.セル結合した部分とセル結合していない部分を2回に分けて行う
2.上記ボタンを使用せずに、セルの書式の横位置を『選択範囲内で中央』を選択

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

A 回答 (2件)

マクロを作ってみました。

(同一シート内で作ってしまいました。変更は楽でしょう)結合セルを含む範囲とコピー先左上単一セルを選択(コントロールキーを使って)して実行します。
選択状態のチェック等は省いています。マクロの手順はコメントを見てください。
普通にコピーして値に変えています。ショートカットキーを割り当てると楽かもしれません。ご参考に。

↓以下を標準モジュールに貼り付けます。
'========================================================
'結合セルを含む範囲を値複写する
' 結合セルを含む範囲とコピー先左上セルを選択して実行
'  ※複写先の範囲に結合セルがあれば解除する
'========================================================
Public Sub mergeCellsValue_copy()
  Dim rg As Range 'セル(ワーク)
  Dim rgCopy As Range 'コピー元セル範囲
  Dim rgPaste As Range 'コピー先左上セル

  'どちらがコピー元か決める
  For Each rg In Selection.Areas
    If rg.Cells.Count = 1 Then
      Set rgPaste = rg
    Else
      Set rgCopy = rg
    End If
  Next

  'コピー先範囲が結合されていれば解除する
  rgCopy.Offset(rgPaste.Row - 1, rgPaste.Column - 1).Select
  Selection.MergeCells = False

  '通常のコピーを実行
  rgCopy.Copy: rgPaste.Select: ActiveSheet.Paste
  
  'コピー先範囲を選択範囲にする
  rgCopy.Offset(rgPaste.Row - 1, rgPaste.Column - 1).Select

  'コピー先範囲の各セルを値にする
  For Each rg In Selection
    rg = rg.Value
  Next
End Sub
    • good
    • 0
この回答へのお礼

わざわざプロシージャーを書いていただきありがとうございました。

Selection.MergeCells = False
の箇所が特に助かりました。
結局、プロシージャーを作り、ワークシートを変更することで既存のものをそのまま作ることといたしました。

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

お礼日時:2001/11/15 09:16

>セルに『形式を選択して貼付け』の『貼付 値』を行った場合



これはあくまでも「コピーした中の「値」のみを選択して貼り付けます」という意味なので、当たり前ですがセルの書式まではペーストされません。
ちなみにこの時、コピーしたい場所を範囲指定して通常の「貼り付け」を行えば値も書式もペーストされます。「形式を選択して貼り付け」では「すべて」ですね。

ただペースト先での加工等もあるでしょうから、すべてのセル内容を貼り付けると不都合があるのなら、箇条書きの中の1番でやるのがいいと思います。これは、2番でやってもセルの書式は反映されないので、1番をやるのと同じになるからです。結局セルを結合させるか、横位置を指定するかの違いだけになるでしょう。

あと、ワークシートごとコピーしてしまい、いらない部分を削除するのも簡単ですよ。これも結局書式の加工はすることになるでしょうけどね。

この回答への補足

言葉足りずだったと思います。

コピー元には数式が入っており、コピー先(別Book)へは、数式の計算結果の値を貼り付ける作業を行っています。これはBookの計算が余りにも重く、Bookを分けるために行っているからです。
すべてで行うと式がコピーされ、うまくありませんでした。

毎日の作業になりますから、VBAマクロの変更かワークシートにレイアウトの変更をしなければなりませんので、どれが一番楽かということを確認したかったのです。

マクロの変更の方が楽そうですので、1を選択するつもりではいます。

補足日時:2001/11/14 10:59
    • good
    • 0
この回答へのお礼

#2の方の所に記載いたしましたが、ワークシートの変更の方で行いました。

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

お礼日時:2001/11/15 09:18

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

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

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

Qオフ車250ccで セルが回らない(泣) 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特に問題なし。

以上より。
キックはついておらず、私は押しがけはできません。
(昔はできたけど、女だし今の体力では厳しい・・・)

質問として
1.押しがけして エンジンがかかる可能性はあり?
 (ならば男友達に頼もうかと。)
2.バッテリーの問題?
 新品パッテリー購入すれば セルが回る可能性あり?
 (ならばとりあえずバッテリー購入)
3.セルの接触不良の問題?
 (素人でも調べる方法はアリ?セルモータをたたけば一時的に
  かかるとも聞いたことがあるが セルモータはどこにある?)

アドバイスお願いします。
ちなみにバイクは SUZUKI DR250R 98年式
バッテリーは毎年買いなおしています・・・
もともと電気系統のウィークポイントが多く なんと2000年式から
ノーマルでキックスタータがついたと言うバイクです。


 

お世話になります。
ストレス発散に久々にバイクに乗ろうとしたら!
 
▼セルが回らない 
 ⇒バッテリーあがり?
▼業者に来て貰う 
 ⇒バッテリーつないでも(充電しても)かからないと言うより 
  セルがウンともすんとも言わない。

*冬の間は一度も乗らず
*先月、軽4につなげて 30kmほど走行
*ガソリン少なめ
*いつもは車は充電器につなげたら、一発でかかる
*今回は セルを押してもライトが押してる時に消えるだけで
セルの独特のティティティティ って音もしない
ウィンカー類は特...続きを読む

Aベストアンサー

こん**は

 まずはバッテリーですね
 フル充電するか、新品に交換してください。
 次はスタータースイッチを点検してください。
 分解して中が汚れていないか確認です。
 汚れいればパーツクリーナなどで洗浄してください。
 バッテリーとスイッチが正常ならスターターリレーですね
 スイッチを押して「かちっ!」と言うならとりあえずは正常です。
 言わないのならリレー交換です
 リレーが正常なら、次はモーターです。
 モーターはエンジンから外して回るかどうか確認しましょう。
 モーターが回ればエンジン内(クラッチ周り)の故障
 モーターが回らなければモーター交換となります。

 確実にチェック出来る計測機器を用意してください
 工具、テスター等が無いのなら、詳しい友人に頼むのが良いでしょう
 どれもないのなら素直にバイク屋に行かれるのをお勧めします

QExcelVBAで結合セルのある範囲を条件取得後Offsetでセルを選択すると位置がずれる事あり

いつもお世話になってます。
また困っています。Excel2013VBAで下記コードを実行するとだいたいいいのですが、場合によっては思っている位置と違う所を選択しています。
C4:C5が結合セルで、以下C6:C7,・・・C18:C19と2つの結合セルが続いています。
その結合セルに○か×が入力されていて、○の時にOffset(85, -1)の位置を選択するようにしたいと思っています。セルでいうと、B89~B104までで、こちらも同じようにB89:B90が結合されており、同じく・・・B103:B104まで2つずつ結合されています。オフセットの範囲内では以上の場所以外は結合セルはありません。
下記コードを実行すると、だいたいは思い通りに取得できるのですが、例えばC4:C5が○、次が×、その次はまた○と交互に入れた時、選択されるセルはB89:B92,B95:B96,B99:B100というように一つ飛ばしにならず、ずれてしまいます。
おそらく、結合セルがあるためにずれているのが条件によってうまくいったように見える時があるんだろうと思いますが、どのように修正すれば正確に取得できるでしょうか?
Sub TEST()
Dim c As Range, Target As Range, r As Range

For Each c In Range("C4:C19")

If c.Value = "○" Then
If Target Is Nothing Then
Set Target = c.MergeArea
Else
Set Target = Union(Target, c)
End If
End If

Next c

If Not Target Is Nothing Then Target.Offset(85, -1).Select
End Sub

いつもお世話になってます。
また困っています。Excel2013VBAで下記コードを実行するとだいたいいいのですが、場合によっては思っている位置と違う所を選択しています。
C4:C5が結合セルで、以下C6:C7,・・・C18:C19と2つの結合セルが続いています。
その結合セルに○か×が入力されていて、○の時にOffset(85, -1)の位置を選択するようにしたいと思っています。セルでいうと、B89~B104までで、こちらも同じようにB89:B90が結合されており、同じく・・・B103:B104まで2つずつ結合されています。オフセットの範囲...続きを読む

Aベストアンサー

For Each c In Range("C4:C19")
If c.value = "○" Then
If Target Is Nothing Then
Set Target = c.MergeArea.Offset(85, -1)
Else
Set Target = Union(Target, c.MergeArea.Offset(85, -1))
End If
End If
Next c
If Not Target Is Nothing Then Target.Select

Qセルが回らない

ybr125に乗っているのですが、セルが回らないため始動できません。

セルスイッチを押すと「カチっ」と音を立てるだけです。
夏頃から回りづらいと思ってはいたのですが、冬になると完璧に回らなくなりました。

最初はバッテリーを疑って2~3年物のバッテリーを新品に交換
現在、電圧はテスターで測ったところ12~13Vあります。

セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。
押しがけではかかります。

今日はスターターリレーを交換してみましたが変わりませんでした。
ヒューズも交換済みです。

どこら辺が怪しいと思いますか?
キャブまで分解清掃したほうがいいでしょうか?

Aベストアンサー

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回らないのです。

バッテリーを新品に換えても「バッテリーに充電されなければ直ぐに容量不足」になってしまいますから、充電系統が故障してる疑いもありますから、エンジン始動後にヘッドライトやウインカーを点けてエンジン回転数を上げたり下げたりして明るさが大きく変化するか確認してください。

また、その時のバッテリー電圧を測ってください。

エンジン回転数に応じてバッテリー電圧が変動するはずですが、バッテリーが正常に充電されて満充電状態になれば電圧変動は少なくなります。

結論は、バイクのバッテリーが充電不足で弱ってるからなので、充電器で充電するか長距離を走行してバイクの発電機で自力充電を行ってください。

バッテリーが元気に回復すれば、車からブースターケーブルを繋がなくてもセルが回るようになります。

>セルモーター自体はブースターケーブルを使って車から回すと快調に回ります。

↑この意味が理解出来ませんか?

車のバッテリーからブースターケーブル繋いで回るなら「バイクのバッテリーが弱ってる」のです。

バッテリーの電圧をテスターなどで測る場合は電流負荷を掛けないと弱っていても12Vから13Vの電圧は出ますから「セルモーターを回した時の電圧」を測ってください。

恐らく、8V以下の電圧に下がってしまうはずです。

だから、セルを回すだけのパワー(電流)がバッテリーから供給されずに回...続きを読む

QExcel97以降でセルの「選択範囲内で中央」を簡単に!

ご存じかと思いますが、Excel97以降で、選択範囲内でセルの「選択範囲内で中央」書式を適用するには、「セルの書式設定」ダイアログから選ばないといけません。
結合すると何かと不便なことが多く、「選択範囲内で中央」書式を多用しているのですが、コマンドボタンもなく、マクロで対応しようとしていますが、。よくわかりません。
この問題を解決する良い方法はありませんか。

Aベストアンサー

一応マクロと云うことで。

Sub CAS()
'
' CAS Macro
' マクロ記録日 : 2001/8/9 ユーザー名 : HitomiKurose
'

'
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
End With
End Sub

これをボタンなりに登録して、範囲選択してから実行!!

Qライトはつくのに、セルが回らない!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウンともスンとも。。。

違う車で何度かバッテリーを上げた事もありますが、、セルが回らないと言ってもキュルキュルぐらいは音が鳴って、エンジンがかからないと言った症状ではあったのですが、今回は本当に何の音も鳴りませんし、何の反応もありません(汗

HID(バルブではなくキットごと)を交換した際に、バッテリーを外しましたので、締め方が緩かっただろうか?と思ったのですが、そうでもないようです。

試しに、他の車のバッテリーとケーブルで繋いでセルを回してみましたが、同じ結果でした。。。(泣

これは何が原因と考えられるでしょうか?
ライトやナビ自体は正常に付くので、バッテリーではないと言うことでしょうか?
セルモーターですか?
今まで不具合らしい不具合は無かったのですが、それともやはりHID交換時に何かしてしまったのでしょうか。。。

車屋にも連絡して見ましたが、今日明日はどうしてもレッカーを使えないそうで。。。

どなたか、詳しい方がおられましたら、どうか想像の出来る範囲でも構いませんのでお知恵をお貸し頂きたく思います。
助けてください(泣
よろしくお願い致します!!

お世話になります。

先日、HIDの片方が点灯しなくなった為、新しい商品を購入、今日取り替えました。
けっこう時間はかかったものの、なんとか無事に終わりまして、車を車庫から移動させました。

その後、2時間くらい経ってから、車に乗ってエンジンをかけようとしたら、セルが全く回らなくなってしまいました。

ヘッドライトも付きますし、ルームランプもナビも正常に動きます。

とりあえず、アクセサリ→オンまではいつも通りですし、カチカチと言う音もします。
しかし、そこからどんなに回しても、ウン...続きを読む

Aベストアンサー

>カチカチ
どういう状況での音?、(1)キーをひねった時、(2)セル始動しようとした時、(3)その他。
真っ先に、セルモーターに十分な電気が行っていない(確実な状況)。
何故?、バッテリーに十分な電力がない(セルはライトの十倍以上必要と思うべし)(2)の時。
バッテリーOKだが(2)、バッテリ、セル直結する(ソレノイドスイッチ接触不良)ただし(1)の時で(2)で音がしない時はソレノイドスイッチの駆動回路に問題。
セルモーターの異常。
電気系をいじった後であり、2時間後の状況から、配線ミスでショートの可能性も否定できません。

Qエクセル セルの結合(A列,B列→A列に結合)の操作

現在、大量の人名を編集しています。

A列に名字、B列に名前が入力されている状態なのですが、A列に名字と名前を一緒に表示させるためには、どのようにすればよいか教えて下さい。

Aベストアンサー

C列に「名字+氏名」を表示させるなら、C1セルに
 =A1&B1
と入力して、下方向にコピーすれば良いです。

名字が入力されているA列の値を「名字+氏名」で置き換えるのは関数ではできません。
どうしても置き換えたいなら上記で説明した方法で表示された「名字+名前」をコピーして、A1に「編集」→「形式を選択して貼り付け」→「値」で貼り付けるという方法はありますが…

Qセルが回らない CDIの故障はあり得ますか?

こんばんば。
ネットで買ったバイクのレストアをしている者です。(レストア初心者です。)
セルスイッチを押してもモーターが回りません。
※良くある、セルスイッチを押してもカチッと音がするだけでセルが回らないってヤツではありません。
セルスイッチを押してもうんともすんとも言いません。
いろいろ配線をチェックしたのですが、原因が分かりません。
そこで下記のサイトを見ましたところ、ジャンクションボックス内にもスターターリレーのスイッチがあるという事を知りました。
http://motor.geocities.jp/cfsxd043/kawasaki/kawa1.html
(1)このジャンクションボックス内のスターターリレーの部分が壊れてセルが回らないって事はあり得ますか?

それと、スターターリレー直結すると、セルモーターが回り、エンジン始動します。

また、スターターリレーが故障しているかチェックする方法を教えてください。

よろしくお願いします。

Aベストアンサー

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9~10Vあれば動作する部品で
長期放置だと固着したり壊れる場合があります。

その他で多いのは、ターミナルの接触不良
バッテリーのマイナス端子からボディやシリンダーに
いく配線の腐食や接触不良などもあります。
キーONで電装やランプが点灯しても、接触が
不十分だと大電流を必要とするためセルモーターは回らない
リレーがカカカカってしか動作しない例も
ありました。

中には特殊な車種、構造のものもあるので
本気でレストアするなら車種くらいは提示するか
サービスマニュアル購入たほうがいいですよ。
そこにリレー以外の電装のチェック方法や始動不能の場合の
フローチャート、配線図も詳しく書いてあるので。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1248608007

>スターターリレー直結すると

この意味が曖昧なので断定できないですし
車種が不明ですが、リレーは大体ヒューズ(15~30A)と
一体になってバッテリー近辺にあるスイッチです。
http://www.geocities.co.jp/MotorCity-Circuit/2519/electrics/relay.html

キル、セルボタン等の接触不良があるとリレーに
12V来ないのでリレーが動作しません。
セルスイッチ等の接触やアースが正常でボタン押すか
バッテリー直でリレーの+側に12V送りリレーが動作しない
カチってならないならリレーの故障です。
リレー自体は、9...続きを読む

Q選択範囲のセルを1行ずつ結合するマクロ

こんにちは、いつも参考にさせていただいております。

セルを範囲選択し、
1行ごとに結合させる方法はないでしょうか。
手作業ではなくマクロでの方法を探しています。

イメージとしては
(1)範囲選択する
(2)マクロ実行する
 →列の範囲を1行ずつ、選択している範囲だけ各行を結合

図も添付いたしますので、どうかアドバイス・ヒント頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

以下は、私がツールバーで使っているものです。
そのままですと、書式がCenter になってしまいますので、左寄せにします。また、これは、トグルになっていますから、同じ範囲を選択すれば、元に戻すことが可能です。

なお、これは、良く使われるものですから、個人用マクロブック側に入れて呼び出しています。

'-------------------------------------------------

Sub MergeCells()
Dim r As Range
  If StrComp(TypeName(Selection), "Range", 1) = 0 Then
  For Each r In Selection.Rows
    If r(1).MergeCells = False Then
    r.Merge
    With r.Rows
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
   End With
  Else
   With r
   .UnMerge
   .HorizontalAlignment = xlGeneral
   End With
  End If
 Next r
 End If
End Sub

こんにちは。

以下は、私がツールバーで使っているものです。
そのままですと、書式がCenter になってしまいますので、左寄せにします。また、これは、トグルになっていますから、同じ範囲を選択すれば、元に戻すことが可能です。

なお、これは、良く使われるものですから、個人用マクロブック側に入れて呼び出しています。

'-------------------------------------------------

Sub MergeCells()
Dim r As Range
  If StrComp(TypeName(Selection), "Range", 1) = 0 Then
  For Each r In Se...続きを読む

Qセルが回らない(T^T)

バリオスなのですが、バッテリーは、充電をし完璧な状態なのにセルが、回らない セルスイッチを押しても 「カチッ!!」と言う音しかしません。これは、セルが悪いのでしょうか?

Aベストアンサー

下記のURLに同じような症状のバイクがありました。
No.9に私が回答していますが、このときの質問者は
これで直ったようです。
一度、ご確認下さい。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1412669

Q条件付書式で特定のセルに数値がある場合選択している範囲の色を変えたい

A列~Z列までに、いろんな値が入っています。
その中のP列に「2008/09/01」などの日付の値が入っている場合と
空白でなにも入力されていない場合があります。
A1~Z1だったらP1に日付が入っている場合に、A1~Z1のセルの色を
グレーに塗りたいんですが、どの数式を使用すればよろしいでしょうか。

夜遅くまで格闘してみましたがうまく行きませんでした。
まだまだ初心者です・・・。

何かいい方法がありましたら、ご教示ください。
よろしくお願い致します。

Aベストアンサー

>夜遅くまで格闘してみましたがうまく行きませんでした
どうやったけど「うまくいかなかった」かを書かれる方が期待する回答は早いと思いますよ

ワークシート関数で入力された値が「日付」かどうかを判定する関数はありません。シートの表示上、「2008/09/01」と見えていても実際の値は「39692」というシリアル値です。
ですから条件付き書式で判定するなら「数値だったら」という判定を行うしかありません。(TEXT関数で見た目通りの文字列を得る方法もないことはないですが複雑になります)

A1:Z1を選択して「書式」→「条件付き書式」を選択し「セルの値が」を「数式が」に変更します。式は
 =ISNUMBER($P1)
を入力し、「書式」ボタンで背景色をグレーにします

あとは1行目をコピーして2行目以降に「編集」→「形式を指定して貼り付け」→「書式」で貼り付けてください


人気Q&Aランキング

おすすめ情報