エクセルでセルに数字を入力したら自動的に倍にするには
どうすればいいでしょうか?
(例)5倍にしたい時
セルに200を入力すると自動的に1000になる様にすることは出来るでしょうか?

また、現状、数字を入力してしまっています。
その数字を全て5倍にしたい場合どうすればいいでしょうか?
今の自分では一つ一つ計算して入力し直すぐらいしか出来ません。
かなりの量なので何かいい方法があれば教えて下さい。
よろしくお願いします。

A 回答 (2件)

 


空いたセルに5を入力
そのセルをコピー
5倍にしたい範囲を選択してから、編集から形式を選択して貼り付けを選び
演算で乗算にチェックを入れてOK

これで選んだ範囲の数値が5倍されます
始めの5は不要なので消してください

 
 
    • good
    • 0

>セルに200を入力すると自動的に1000になる様にすることは出来るでしょうか?


◆入力した数字のX倍(例えば5倍)が表示される方法です
1)表示形式を「ユーザー定義」で、 #/5 とする
2)# と /5の間を指定して、、 Ctrl を押しながら、J を押す
3)[配置]の「折り返して全体を表示」にチェック
注)入力数字が1000以上になると、###### になるケースがある
    • good
    • 0

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

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

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

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

Qあるセルに入力された数字を自動的に他のセルに書き込まれるようにしたい

はじめまして。
このたびエクセルで請求書を作成しているのですが、表に出てきた合計の数字を自動的に上の合計金額のセルに書き込まれるようフォーマットを作りたいと考えています。

また、請求書の作成日が自動で入力される方法などもございましたら合わせて教えてた抱けないでしょうか?

Aベストアンサー

例えば D3 から D10 までに 金額が出ているとします
合計欄が D2 だとします。

D2に =sum(D3:D10) と入れて Enter します。
これで合計欄ができました。

さて 作成日なんですが =Today() と入れたら 日付が表示されますが
開く度に新しい日付になるんで 請求書としてはまずいと思います。
(印刷するときだけにシートを使うのならいいのですが、、、)

で変わらない方法としては 日付を出したいセルで Ctrlを押しながら ;(セミコロン)
をおしてください。

QExcel:ひとつのセルに入力されている複数桁の数字を他のセルに分けて自動表示

Excelで例えばSheet1!A1に「123456」と入力されると、Sheet2!A1に「1」、Sheet2!A2に「2」、Sheet2!A3に「3」、Sheet2!A4に「4」、Sheet2!A5に「5」、Sheet2!A6に「6」、と表示させることは可能でしょうか?
もし可能であれば方法をご教示頂けませんか?

なお、Sheet1!A1に入力する文字種は数字以外はありません。
また、最大7桁で、それ以上の桁になることはありません。
同時にSheet1!A1に入力可能な桁数を7桁までに制限させるようにもしたいです。

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

Aベストアンサー

> 表示させることは可能でしょうか?
=MID(Sheet1!$C17,1,1)

> 7桁までに制限させるようにもしたい
データ(D)→入力規則(L)→設定
入力値の種類(A): 整数
データ(D): 次の値の間
として、最小値(M)および最大値(X)を指定する。

Q5×5のセルに入力した数字を配列に格納する方法

どなたかご存じでしたらご回答をお願いします。
【質問】
下記のVBAを実行すると、「異なる 25個のものから 5個を選ぶ組み合わせ
の総数 nCr (53,130通り)」を作成します。毎回、VBAソースの25個の配列の値を変更して
実行しておりますが少々手間です。これを5×5のセルの中に25個の数字を入力して
ボタン押下にてVBAを実行すると、53,130通りの組み合わせを作成するようにするには
下記VBAのソースはどのように修正すればよいでしょうか?

●VBAソース

Sub test()

Const MaxNum = 25
Dim s(25) As String
s(1) = "1"
s(2) = "2"
s(3) = "3"
s(4) = "4"
s(5) = "5"
s(6) = "6"
s(7) = "7"
s(8) = "8"
s(9) = "9"
s(10) = "10"
s(11) = "11"
s(12) = "12"
s(13) = "13"
s(14) = "14"
s(15) = "15"
s(16) = "16"
s(17) = "17"
s(18) = "18"
s(19) = "19"
s(20) = "20"
s(21) = "21"
s(22) = "22"
s(23) = "23"
s(24) = "24"
s(25) = "25"

Dim i, j, k, l, m

Dim rowX As Long
rowX = 1

rowX = rowX + 1

For i = 1 To MaxNum - 4
For j = i + 1 To MaxNum - 3
For k = j + 1 To MaxNum - 2
For l = k + 1 To MaxNum - 1
For m = l + 1 To MaxNum
Cells(rowX, 1).Value = s(i)
Cells(rowX, 2).Value = s(j)
Cells(rowX, 3).Value = s(k)
Cells(rowX, 4).Value = s(l)
Cells(rowX, 5).Value = s(m)
rowX = rowX + 1
Next m
Next l
Next k
Next j
Next i

End Sub

●VBAの実行結果
A     B     C     D    E 
1     2     3     4     5
1     2     3     4     6
1     2     3     4     7
1     2     3     4     8
1     2     3     4     9
1     2     3     4     10
1     2     3     4     11
1     2     3     4     12
1     2     3     4     13
1     2     3     4     14
            :
            :
20    21    22     24    25
20    21    23     24    25
20    22    23     24    25
21    22    23     24    25

 
【注意事項】
  ・使用するエクセルは2010です。

以上、よろしくお願いします。

どなたかご存じでしたらご回答をお願いします。
【質問】
下記のVBAを実行すると、「異なる 25個のものから 5個を選ぶ組み合わせ
の総数 nCr (53,130通り)」を作成します。毎回、VBAソースの25個の配列の値を変更して
実行しておりますが少々手間です。これを5×5のセルの中に25個の数字を入力して
ボタン押下にてVBAを実行すると、53,130通りの組み合わせを作成するようにするには
下記VBAのソースはどのように修正すればよいでしょうか?

●VBAソース

Sub test()

Const MaxNum =...続きを読む

Aベストアンサー

値をいれるところが面倒とお考えなようなので、そこを変更してみましょう。


s(1) = "1"
s(2) = "2"
s(3) = "3"
s(4) = "4"
s(5) = "5"
s(6) = "6"
s(7) = "7"
  ...
s(24) = "24"
s(25) = "25"

の部分を変更します。
dim i as integer
dim r as integer
dim c as integer
i = 1
for r = 1 to 5
 for c = 1 to 5
  s(i) = cells(r,c).value
  i = i + 1
 next
next

i で配列をいじっちゃうのがちょっとエレガントでないです。

私ならこう書きます。Loop の for~next は0から回したほうが考えやすいのです。
dim r as integer
dim c as integer
for r = 0 to 4
 for c = 0 to 4
  s(r*5+c+1) = cells( r+1,c+1).value
 next
next

値をいれるところが面倒とお考えなようなので、そこを変更してみましょう。


s(1) = "1"
s(2) = "2"
s(3) = "3"
s(4) = "4"
s(5) = "5"
s(6) = "6"
s(7) = "7"
  ...
s(24) = "24"
s(25) = "25"

の部分を変更します。
dim i as integer
dim r as integer
dim c as integer
i = 1
for r = 1 to 5
 for c = 1 to 5
  s(i) = cells(r,c).value
  i = i + 1
 next
next

i で配列をいじっちゃうのがちょっとエレガントでないです。

私ならこう書きます。Loop の for~next は0から回したほうが考...続きを読む

Qエクセルであるセルに数字を入力すると他のセルのデーターから文字が入力


sheet1
  A
1 1→1を入力するとsheet2に入力されているデーター
    から、該当する番号を判断して、東京とセル内に
    表示する

sheet2
  A B
1 1 東京
2 2 千葉
3 3 埼玉
行はまだ下に続く

こんな事をしたいのですが、ご教授お願いします

Aベストアンサー

質問のような動きをするようにしてみました。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。
プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

ここから

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim rg As Range 'セル
  Dim rgfnd As Range '見つけたセル

  On Error GoTo ErrorHandler

  Application.EnableEvents = False
  For Each rg In Target
    'Sheet1のA列なら
    If rg.Column = 1 Then
      'Sheet2を検索
      Set rgfnd = Worksheets("Sheet2").Range("A:A").Find(rg.Text)

      If Not rgfnd Is Nothing Then
        '見つかったら書き換える
        rg = rgfnd.Offset(0, 1).Text
        Set rgfnd = Nothing
      Else
        rg = rg.Text & ":nothing"
      End If
    End If
  Next
  Application.EnableEvents = True

  Exit Sub
ErrorHandler:
  'エラー対応
  Application.EnableEvents = True
End Sub

質問のような動きをするようにしてみました。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。
プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

ここから

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim rg As Range 'セル
  Dim rgfnd As Range '見つけたセル

  On Error GoTo ErrorHandler

  ...続きを読む

Qエクセルでセルに数字を入力すると、別のセルに入力されている文字の色を変える方法

例えば、シート1のM4に1~5の数字をどれか一つ入力すると、同じシートのA3にもともと入力されている文字(黒色)を(赤色)に自動で変える方法を教えてください。よろしくお願いします

Aベストアンサー

まず、ご自分ではどの程度お調べになったのでしょうか?
やっていて行き詰ったのなら、ここまでやりましたがここがわかりません、というような質問をされる方がいいですよ。

それと、条件が少し曖昧なのですが

>1~5の数字をどれか一つ入力すると

とありますが、「1,2,3,4,5」のどれでもいいということですか?それとも、何か条件分けがあるのでしょうか?
M4には他の文字や数値を入力する可能性があるのでしょうか?

あー、もし入力規則でやっていてわからないということでしたらスルーして下さい。


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

このカテゴリの人気Q&Aランキング

おすすめ情報