教えて下さい。こんな事出来るかどうか判りませんが、
例えばA1に無差別の数字入力をしたとして
例1.A1に25を入力→B1に7と表示
例2.A1に5を入力→B1に5と表示
例3.A1に11を入力→B1に11と表示
例4.A1に29を入力→B1に11と表示
要するに単数表示にしたい訳です。同数なら同数に・・。
例1なら25を分解して2+5で7
例2なら5は分解できないのでそのまま5
例3なら11は同数なので11のまま表示
例4なら29を分解して2+9で11だが同数なのでそのまま
というふうに・・
果たしてできるのでしょうか・・?
尚、A1に入力するのは二桁までです。
そんな事、自分で勉強しろといわれそうですが・・
ここで質問した方が早いので・・。すいませんが関数式の事なら私にまかせろというくらいのプロの方・・
是非お願い致します。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
こういう条件が複雑なのはユーザー関数がお勧めです。
縦に並べて条件を書けるからです。
標準モジュールに
Function tansu(a)
p01:
If a < 10 Then
tansu = a
Exit Function
Else
x = a Mod 10
y = Int(a / 10)
If x = y Then
tansu = a
Exit Function
Else
a = x + y
End If
End If
GoTo p01
End Function
と入れて、A列に1か2桁の数字を入れます。
B1に=tansu(A1)といれA1をB2以下に複写します。
(テスト例)
(A列)(B列)
1111
213
3333
4444
516
257
55
2911
191
685
No.4
- 回答日時:
数字が必ず2桁(10~99)なら
=IF(LEFT(A1,1)<>RIGHT(A1,1),LEFT(A1,1)+RIGHT(A1,1),A1)
で計算できます。
No.3
- 回答日時:
=IF(INT(A1/10)=MOD(A1,10),
A1,
IF(INT((INT(A1/10)+MOD(A1,10))/10)=MOD(INT(A1/10)+MOD(A1,10),10),
INT(A1/10)+MOD(A1,10),
INT((INT(A1/10)+MOD(A1,10))/10)+MOD(INT(A1/10)+MOD(A1,10),10)))
長い式になったので見やすいように複数行にしています。
セルに入力するときは1行で入力してください。
考え方としては、『再帰』でしょうが、2回しか必要ないので無理やり書いてみました。質問の意味を捉えているでしょうか。
他の方法としては、
(1)事前に2桁の数字に対する計算をして変換テーブルを用意しておき、入力した数値でそのテーブルを検索する。VLOOKUP関数でできます。
(2)ユーザー定義関数で計算を定義する。VBAを使用します。扱う桁が増える場合はこれしかないでしょう。
No.2
- 回答日時:
こんにちは。
maruru01です。B1に、
=IF(COUNT(A1),IF(INT(A1/10)=MOD(A1,10),A1,INT(A1/10)+MOD(A1,10)),"")
と入力します。
なお、No.1の方の回答は、例3の「11」→「11」を満たしていませんね。
この回答への補足
ありがとうございます。すいません、私の質問が悪かったみたいです。maruru01さんの式でほぼ完璧なのですが、
19や68を入力するとそれぞれ10と14になってしまうのです。1と5になるよう最後まで単数変換にて表示したいのです。お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- その他(Microsoft Office) IF関数について教えてください 2 2022/05/10 13:31
- Excel(エクセル) Excel 一つのセルに2つの関数を入れたい 9 2023/06/08 18:16
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルのマクロについて質問があります。 sheet1に数字を入力してsheet2を印刷したいのです 2 2023/06/07 14:49
- Excel(エクセル) 隣り合っていないセルを まとめて税込表示したい 8 2022/09/25 14:32
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) エクセルでIF関数中にIFERROR関数を使いたいのですが???? 5 2022/04/08 13:24
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ドロップダウンリストを2列で...
-
ドロップダウンリスト 自動表...
-
Excelについて
-
excelのInputBoxで日本語入力OF...
-
VBAの日付チェックでオーバーフ...
-
マクロ 入力規則は残し文字の...
-
autocad 数値が表示されなくな...
-
Excelで日報を自動で作成したい...
-
エクセル COUNTIF関数 検索条...
-
エクセルの入力規則のプルダウ...
-
エクセルVB ポップアップウィ...
-
小数点以下の入力規則
-
弥生会計05、「摘要」入力について
-
UWSCの入力ボックス
-
弥生会計、伝番順に並べ替えたい
-
EXCEL VBAの入力規則で小数点桁...
-
エクセルのマクロの使い方
-
複数のセルに、複数の入力規則...
-
博子の旧字体を入力するには
-
【エクセルでシフト作成】週休2...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
【スプレッドシート】時間入力...
-
Excelについて
-
autocad 数値が表示されなくな...
-
エクセルの検索関数でシート内...
-
VBAの日付チェックでオーバーフ...
-
ドロップダウンリストを2列で...
-
Excelで日報を自動で作成したい...
-
マクロ 入力規則は残し文字の...
-
確定申告の医療費控除について
-
特殊漢字「はし」(橋のつくり...
-
エクセル 日付超過でポップアッ...
-
excelのInputBoxで日本語入力OF...
-
バーコードリーダーを使ってフ...
-
エクセルVB ポップアップウィ...
-
求人情報で「SAP入力可能な方」...
-
アクセス2000 クエリ抽出でBet...
-
excelで第二金曜日を…
-
エクセルで入力規則(リスト)...
-
pdfの文字入力で一文字ずつしか...
おすすめ情報