出産前後の痔にはご注意!

よろしくお願いします。

EXCEL形式にアウトプットしデータを作成しました。

そのなかに文字列と認識させたい数字フィールドがあり先頭に「'」シングルクォーテーションを付けています。

すると対象のセル上に、シングルクォーテーションが表示されておりました。
セルをアクティブにし、編集状態でEnterを押下することにより、表示になりました。

なにもせずに「シングルクォーテーション」がセルには非表示、数式バーには表示される状態にするには、どうしたらよいでしょうか。

よろしくお願いします。

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

A 回答 (3件)

》 なにもせずに「シングルクォーテーション」がセルには非表示、数


》 式バーには表示される状態にするには、どうしたらよいでしょうか。

「なにもせずに・・・される状態にする」とは矛盾ですね。何かをしないと不可能なのは当ったり前かと。
「'」を「'」に[置換]してみたらどうなりますか?→添付図参照
「エクセルにて文字列データ先頭の「'」シン」の回答画像2
    • good
    • 1

 大量のデータを扱っていて大変なんだとご察し致します。


私も同じような経験があるので、さっそくNo.2さまの方法を試してみたら、質問者さまのご要望どおりになりました。作業は、件数に関わらず3分もあれば終わります(PCの能力にもよりますが)。お試し後、不具合があればご報告下さい。
    • good
    • 0

シングルクォーテーションが2つ連続しているわけではありませんよね?



であれば、「セルの書式設定」で「文字列」を選んで下さい。
    • good
    • 0

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

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

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

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

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

QExcel 数値の前の「 ' 」を一括削除したい

取引先から来るデーターで
'400783108700 と入力され書式は文字列となっています。

この数値は海外のJANコードナンバーで実際は
0400783108700 が正です

バーコード作成ソフトを使う時に効率が悪くて困っています。取引先にも改善依頼をお願いしておりますが、なかなか進みません。10点ぐらいなら一つ一つ変更するのですが、50点~100点位あると・・・

複数のセルの「 ' 」(アポストロフィー)を一括で削除する方法、または0に置き換える方法があればお教えいただけないでしょうか。編集→置換では出来ませんでした。「 ' 」がデータ上は無いことになっていて読み込めません。
どうぞ宜しくお願いします。

Aベストアンサー

★シングルクォートを削除したい:Excel エクセルの使い方-入力/編集
http://www.relief.jp/itnote/archives/000321.php
では?

Qエクセルのシングルクォーテーション

お願いします、初心者です。
エクセルの相手先からのファイルに全て(’)シングルクォーテーションが入っていて、列は30あり、そのうちの一部の列のセルの(’)を一括で取る関数とか教えて頂けませんか?
A    B    C      D     E      F
01   02   東京都   港区   2-12  ヤマダ
01   03  北海道  札幌市   1-5   スズキ

とあればCとDとFの列から(’)を取りたいのです。
お願い致します。

Aベストアンサー

セル行頭にある’は文字列であるという書式の意味であり、文字ではないので、
書式のクリアで消えます。
「編集」-「クリア」-「書式」

QエクセルVBAでセル内のシングルクォーテーションを変数に入れる方法

例えば、エクセルでセル内に「007」という文字を入力したい場合、そのまま入力すると「3」のみが表示されることになるので、「'007」というふうに、シングルクォーテーションを先頭に入れると思います。

そういう先頭にシングルクォーテーションが入っているセルをVBAで変数に格納するとシングルクォーテーションがとれた状態の文字列が変数に入ってしまうのですが、シングルクォーテーション込みで変数化する方法を教えて下さい。もしくは、セルの属性?みたいなものがあり、それを変数として取り出せるなら、そういう方法でもOKです。
ちなみに、NumberFormatLocalではシングルクォーテーションは取り出せませんでした。

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


---
エクセル2003
win7

Aベストアンサー

こんばんは。

こんな感じでどうでしょ。対象はCells(1,1)で。

Sub サンプル()
Dim Tmp As String
Dim i As Long
Tmp = sq付与(Cells(1, 1))
i = MsgBox(Tmp)
End Sub

Function sq付与(Arg As Variant) As Variant
If Arg.PrefixCharacter = "'" Then
sq付与 = "'" & Arg.Text
Else
sq付与 = Arg
End If
End Function

いやー久々に回答しましたー。

QExcelのアポストロフィーの削除

お尋ねします
AccessからExcelへデータをもってきたところ、文字データの前へ'(アポストロフィー)の記号がはいっていました。
500以上のデータがあるので、一括でこのアポストロフィーを削除する方法があれば教えていただきたいのですが…。
よろしくお願いいたします。

Aベストアンサー

#3,#5です。
一旦他のセルへ値のみ貼り付け(形式を選択して貼り付けとか右クリックでドラッグとか)、でいけます。
「他のセルへ」が必要なようです。

Q文字列として"(ダブルコーテーション)を表示させる方法

こんにちは。文字列として、ダブルコーテーションを表示させるには、どうすればよいのか教えてください。m(__)m


例えば、
<font size="2">あいうえお</font>

というタグの「あいうえお」の部分が、セルA1にあった場合、

="<font size="2">"&A1&"</font>"という表示にしたいのです。

"2"のダブルコーテーションも文字列として表示させるには、どうすればよろしいのでしょうか。

教えてください。よろしくお願い致します。

Aベストアンサー

こんにちは~

表示形式は 「標準」 のままで、
ダブルコーテーションを、ダブルコーテーションで囲んでください。

""2""

="<font size=""2"">"&A1&"</font>"

としてみてください。

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

Qアポストロフィーの一括挿入 エクセルシート

数値が入っているエクセルシートで、一括で各セルのデータの頭にアポストロフィーを挿入したいのですが簡単な方法はありますか?
ワークのセルで「="7"&a1」とか入力してコピーして出来るのはやったのですが、もっと簡単に(例えば置き換えの機能を使うなどして)出来るとありがたいです。
(因みに数値を文字列として表示形式を設定したいのではなく数値を文字列としてセルに埋めたいのです)
宜しくお願いします。

Aベストアンサー

>数値を文字列としてセルに埋めたいのです
数値を文字列に変換する方法として、
「データ」-「区切り位置」で
[次へ]ボタンを2回押して、[区切り位置ウィザード3/3]で
[文字列]を選択してOKボタンを押します。
表示形式だけの文字列ではなく、数字が文字列に変わります。
ただ、複数列を一度に指定できません。1列ずつ設定することになります。

*表示形式だけの文字列の場合、SUM関数で計算できますが、
はじめから文字列として入力したものやアポストロフィーを挿入したものと同様にSUM関数では、計算できません。

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For ~ To ~
  Worksheets("シートA").Activate
  シートAの値取得
       :
  Worksheets("シートB").Activate
  シートBの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

Aベストアンサー

Worksheets("シートA").Range("A1")

みたいな感じでできませんか?


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

人気Q&Aランキング