データの加工をしたいのですが、件数が多く手動では手間がかかりすぎてやり方が分からずこまってます。

12345⇒0000012345
23456⇒0000023456
34567⇒0000034567

上記のように5桁のようなデータをエクセルもしくはアクセスの入ったPCで、頭にゼロを付けて10桁にしたいのです。
解決手段がありますでしょうか。教えてください。

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

A 回答 (5件)

もうひとつ。



例)A1 に「12345」
  B1 には、『 = Right( "0000000000" & Trim( A1 ) , 10 )』

回りくどいですが、私はよく使います。
    • good
    • 0
この回答へのお礼

この式をコピペして使わさせていただきました。
助かりました。有り難うございました。

お礼日時:2009/05/28 15:18

関数では、式を入れるのだから


=TEXT(A1,"000000000")
のようにすればよい。
あるいは
="0000"&A1
A1が定桁で有る必要ナリ。
アクセスでも別フィールドでよければ上記が可能(前者はForat関数)。
同じセル(フィールド)で変換をやりたいならVBAを使う必要がある。
    • good
    • 0
この回答へのお礼

回答有り難うございました。

お礼日時:2009/05/28 15:17

セルの書式設定で、表示形式で、


「00000#####」と設定したものは、頭に0が付きますよ。

それから、仮に入力値が6桁になっても頭には0がきちんと4つ付きます。
    • good
    • 0
この回答へのお礼

回答有り難うございました。

お礼日時:2009/05/28 15:18

エクセルの場合


例 A1 に 12345 (文字列)がある場合
B1 は ="00000" & Trim(A1)
※この場合A1の桁数は計算しません
アクセスの場合
[番号] フィールド(文字列)の場合
選択クエリーで新しいフィールドを作成して
新しいフィールドに
="00000" & Trim([番号])
とすればOKです。
いずれの場合も元データの桁数計算はしていません。
    • good
    • 0
この回答へのお礼

回答有り難うございました。
参考にさせていただきました。

お礼日時:2009/05/28 15:19

エクセルの場合


対象セルを選択→右クリック→セルの書式設定→表示形式タブ→分類→ユーザ定義→「種類」欄に0000000000と入力
    • good
    • 0
この回答へのお礼

回答有り難うございました。

お礼日時:2009/05/28 15:19

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

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

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

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

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

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

QExcelVBAで、1桁目に”*”が入っているレコード件数をカウントす

ExcelVBAで、1桁目に”*”が入っているレコード件数をカウントするVBAを作成しました。
正常に機能すれば「受発注品は2件です」というメッセージボックスが表示される筈なのですが、「1桁目に”*”が在るか否か?」の判定が正常に機能していないようで、「受発注品は0件です」というメッセージボックスが表示されてしまいます。
以下が、作成したVBAです。

-----------------------------------------------------------------------
Sub 受発注品カウント()

Dim i As Integer
Dim c As Integer

i = 1
c = 0

Do Until Cells(i, 1).Value = ""
If Cells(i, 1).Value = "~**" Then
c = c + 1
End If
i = i + 1
Loop

MsgBox "受発注品は " & c & " 件です", vbInformation

End Sub
-----------------------------------------------------------------------

「1桁目に”*”が在るか否か?」の判定方法をご存知の方がいらしたら、是非ご教示下さい。
宜しくお願い致します。

ExcelVBAで、1桁目に”*”が入っているレコード件数をカウントするVBAを作成しました。
正常に機能すれば「受発注品は2件です」というメッセージボックスが表示される筈なのですが、「1桁目に”*”が在るか否か?」の判定が正常に機能していないようで、「受発注品は0件です」というメッセージボックスが表示されてしまいます。
以下が、作成したVBAです。

-----------------------------------------------------------------------
Sub 受発注品カウント()

Dim i As Integer
Dim c As...続きを読む

Aベストアンサー

「1桁目に”*”が在るか否か?」と言葉通りなら、もちろん、Left で比較すればよいのですが、 "~**" という検索式をVBAで実現するには、Like演算子で、"[*]*" となりますが、厳密に考えると、*の意味は、0個の任意の文字の検出し、かつ「*」がひとつしかないものを除外しようとするなら、"[*]?*"という検索式が良いのではないか、と思います。基本的に、「=」 は、数字の比較です。便宜的に「=」が文字比較にも使われますが、厳密にはLike演算子やStrComp関数などを利用したほうが良いです。

'//サンプル
Sub 受発注品カウントR()
  Dim i As Long 'Long型のほうが良い
  Dim cnt As Long
  Application.ScreenUpdating = False 'セルをループする時は必要です。
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1).Value Like "[*]?*" Then
      cnt = cnt + 1
    End If
  Next
  Application.ScreenUpdating = True
  MsgBox "受発注品は " & cnt & " 件です", vbInformation
End Sub

「1桁目に”*”が在るか否か?」と言葉通りなら、もちろん、Left で比較すればよいのですが、 "~**" という検索式をVBAで実現するには、Like演算子で、"[*]*" となりますが、厳密に考えると、*の意味は、0個の任意の文字の検出し、かつ「*」がひとつしかないものを除外しようとするなら、"[*]?*"という検索式が良いのではないか、と思います。基本的に、「=」 は、数字の比較です。便宜的に「=」が文字比較にも使われますが、厳密にはLike演算子やStrComp関数などを利用したほうが良いです。

'//サンプル
Sub ...続きを読む

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Qエクセルで、日付の入ったデータ内にある指定月のデータ件数(セルの個数)を計算したい。

こんにちは、以下質問お分かりになる方がいらっしゃいましたら、
是非教えて頂きたく思います。

エクセルのブックで、以下のようなシートがあります。
ここから、空いているセル(E1等どこでも)で例えば8月の件数を
表示したいのですが、方法が分かりません。

     A      B    C
1    2007/7/1  人名1 場所A
2    2007/8/5  人名1 場所D
3    2007/6/10 人名3 場所F
4    2007/8/4  人名2 場所C
5    2007/6/3  人名4 場所D

これで、例えばE1に2(8月の件数は2つなので)と表示したいです。
A列の日付は、シリアル値を日付表示しています。

宜しくお願い致します。

Aベストアンサー

次の数式は如何でしょうか。
=SUMPRODUCT((MONTH(A1:A5)=8)*1)

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

QExcel97:3桁~5桁までのバラなコード(数字)、前ゼロ埋めで6桁にしたい時は?

標題どおりです。
現在、「156」とか「70018」とか、3桁から5桁までの数字のコードが200件あります。
それを、「000156」、「070018」と、本来のコードの前にゼロを置き、6桁に揃えたいんです。
手入力だと面倒な作業になるため、なんとか簡単に表示形式で設定できないものかと思い質問してみました。

マクロはまったくの素人なので、関数や表示形式で教えて下さい。
よろしくお願い致します。

Aベストアンサー

右クリックから「セルの書式設定」を選択し、
表示形式タブのユーザー設定を選択します。
種類欄に「00000」と入力すれば、ご希望のことができるかと。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

Qエクセルで自動で〔,〕を、ゼロ三桁ごとに記入するにはどうすればよいですか?

はじめ質問させていただきます。
エクセルで自動で〔,〕を、ゼロ三桁ごとに記入するにはどうすればよいですか?
エクセルでツールバーの「桁区切りスタイル」〔,〕を押すと千の区切りごとに自動で,を打ってくれるのですが、
例えば6000だと、6,000となります。
しかし、
6000(5000)と記入し「桁区切りスタイル」〔,〕を押すと、記入できません。
どのようにすれば良いでしょうか?

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

Aベストアンサー

6000(5000)では、もう数値として扱ってくれませんよね。これは、一つのセルに入れる必要性があるのでしょうか?
そうでないなら、6000を一つのセルに( をその隣のセルに5000をまたその隣、 )をまたまた隣のセルに…
と分けては、どうでしょう。()は、一気にコピーしてしまえば、数値の所だけ入力すればいいです。表示的にやや空きが出来てしまうかもしれませんが、()の部分のセル幅と()内の数値のセル幅をギリギリ狭くしておけば、なんとかなるかもしれません。

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Qエクセルの桁区切り、4桁にできますか?

エクセルで、入力した数字を自動的に3桁区切りにしてくれる機能がありますよね。あれを3桁ではなく4桁(日本式)でやってくれるような設定はできないのでしょうか。
100,000,000 などとやられても、一目で読めません…。

Aベストアンサー

>0~1000までは先頭に ,, が付いてしまい、
>1,0000~1000,00000までは先頭に , が付き、
>億より上のカンマは付きません…。

参考までに。

1兆円未満の正の整数なら以下のユーザー定義で表示できます。

[>=10000000]#","####","####;[>=10000]#","####;G/標準


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

人気Q&Aランキング