エクセルの学校：全文検索：Hyper Estraier：入力規則

Results of 1 - 1 of about 2816 for 入力規則 (0.005 sec.)

[[20180712131326]]: #score: 4285; @digest: b876346f6a54c06f1691acb7150f2346; @id: 76822; @mdate: 2018-07-12T05:28:20Z; @size: 3908; @type: text/plain; #keywords: ・駄 (11665), 力⇒ (6634), 字表 (5151), 黒文 (4464), 記・ (4289), 少数 (4217), 力欄 (3731), ば: (2797), 整数 (2479), 赤文 (2275), 数部 (2001), プッ (1710), enableevents (1396), 2018 (1384), 表記 (1290), 木) (1289), 789 (1144), target (1138), 入力 (1126), 力後 (1025), 数値 (1007), ル値 (916), intersect (908), 力規 (773), トプ (733), 駄目 (699), 小数 (661), 投稿 (660), 規則 (623), 動的 (619), ドバ (608), 自動 (553); 『少数桁を入力後に自動で整数値が出るようにしたい』（なお）
エクセルで測定値をエクセルの一覧表にインプットしていますインプットの数値が毎回整数値は同じ桁で、少数値のみが違うので少数を入力すれば自動的に登録された整数値が出るようにしたいです例）1.789の数値ならば:789と入力⇒自動的に1.789とセルには出したい 1.589の数値ならば:789と入力⇒自動的に1.589とセルには出したい ※セルの数値を計算必要のため、セルの書式設定のユーザー定義で表示を変える手段は使えないですアイデア・技あれば教えてください＜使用 Excel:unknown、使用 OS:unknown ＞ ---- 数値の入力欄と計算に使うセルを別にしてはどうか? 例えばA列に入力していってB列に =1+A/1000 と入力し、計算にはB列を使う。（ねむねむ） 2018/07/12(木) 13:27 ---- おっと =1+A1/1000 で。（ねむねむ） 2018/07/12(木) 13:31 ---- アドバイスありがとうございますただ、入力したセル値がOKなら黒文字表記・駄目なら赤文字表記になるなど 入力規則も絡んでくるので、出来れば入力したセル値のみで運用したいんですが・・・難しいですよね・・・（なお） 2018/07/12(木) 13:36 ---- 1列に入れていくとか、後でまとめてコピペができるならまずは表示形式で「"1."0」などにしてデータを入れてしまう。（もちろんデータは小数ではない） →範囲をコピーしクリップボードを起動してそのままのセルに「すべて貼り付け」で貼り付ける。というのは如何でしょうか? （コナミ） 2018/07/12(木) 13:38 ---- とりあえず他にも条件があるのであれば後出しにせずに出してくれないか? （ねむねむ） 2018/07/12(木) 13:40 ---- かいてたら、被りましたがせっかくなので投稿します。 B1が入力欄、A1が出力欄だとして A1に「=1+(B1/10^LEN(B1))」という数式を入力後にB1に数値を入力してみて下さい。 B1に入力するまではブランクにしておきたいなら A1に「=IF(B1,1+(B1/10^LEN(B1)),"")」とかでしょうか（もこな2） 2018/07/12(木) 13:42 ---- アドバイスありがとうございます頂いた回答でアレンジしてみますやはり単純にセルに少数をいれたら、そのセルが自動変換されることは難しいですよね・・・（なお） 2018/07/12(木) 13:46 ---- もこな2さんの式の場合、例えば1.025としたい場合はどのように入力するのだろうか? （ねむねむ） 2018/07/12(木) 13:48 ---- ワークシートプロシージャに Private Sub Worksheet_Change(ByVal Target As Range) Dim WK_RANGE As Range If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False For Each WK_RANGE In Intersect(Range("A:A"), Target) If IsNumeric(WK_RANGE.Value) Then WK_RANGE.Value = 1 + WK_RANGE / 1000 End If Next Application.EnableEvents = True End Sub ではどうか? A列に数値を入力した場合に変換する。（ねむねむ） 2018/07/12(木) 14:05 ---- ねむねむさん VBAアドバイスありがとうございます（なお） 2018/07/12(木) 14:08 ---- 同じというか、よりすばらしいコードをねむねむさんが投稿されてますが、他の部分も含めて投稿。＞例えば1.025としたい場合はどのように入力するのだろうか? あぁそうか。。。それはダメですね。＞単純にセルに少数をいれたら細かい話ですが入れてるのは整数ですよね（「.1234」って入力してるならExcel君が0.1234って解釈してくれますから、それに整数部分を足す（加算する）だけでよいはず。踏まえて「.1234」みたいに小数点から入力するのがアリで、入力したセルそのものを変えたいならこんな感じで行けそうな気がします。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub If Target.Cells.Count <> 1 Then Exit Sub If Target.Value < 1 Then Application.EnableEvents = False Target.Value = Target.Value + 1 Application.EnableEvents = True End If End Sub ※↑はシートモジュールに貼り付けてください。ただ、なんで数式じゃだめなのかよくわからず。＞入力したセル値がOKなら黒文字表記・駄目なら赤文字表記になるなど入力規則も絡んでくるよくわからないですが、条件付き書式の間違い? （入力規則でチェックかけたいなら、整数部分を引いた数で入力欄を確認すれば事足りるのでは?）（もこな2） 2018/07/12(木) 14:28 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201807/20180712131326.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ