A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
一例です。
' ' ===============♪
' ' 'シートの列番地'同様の規則でシリアルコードを振る。
' ' A列に'数字の代わりに使う文字'一文字ずつ
' ' 設定されたセルがふたつ以上あること 要。
' ' それらがいくつあるかで基数を規定。
' ' 全半角0や '^ などの制御記号は不可。(重複未処理)(一文字でないセル、可=無視)
' ' 他、可読性重視、エラー処理略。
' ' n = (n - 1) \ 基数 →ベター→ n = Int((n - 1) / 基数)
Sub re7529645()
Dim 最大値 As Long
最大値 = 1000 '←任意指定
Dim 暗号リスト As String, ret As String
Dim 最下行 As Long, 基数 As Long, 行ずれ As Long, 十進数 As Long
Dim i As Long, n As Long
最下行 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To 最下行
If Cells(i, 1) Like "?" Then 暗号リスト = 暗号リスト & Cells(i, 1)
Next i
' ' ↑A列一文字セルの値を連結して
' ' 数字の代りになる文字列群を採る
基数 = Len(暗号リスト)
行ずれ = 最下行 - 基数
' ' ↓数字に対応した暗号リストを使って
' ' ↓シリアルコードを展開
For 十進数 = 基数 + 1 To 最大値
n = 十進数
Do
ret = Mid$(暗号リスト, (n - 1) Mod 基数 + 1, 1) & ret
n = (n - 1) \ 基数
Loop While n > 0
Cells(十進数 + 行ずれ, 1) = ret
ret = ""
Next 十進数
End Sub
' ' ===============♪
こんにちは
参考の為に過去のご質問を拝見したところ
ステップ実行&トレースはお出来になるようなので敢えて解説は添えません。
Do...Loop内の2行、読み込んでモノにしちゃってください。
変数 n :何を表し、どう変化するか
(n - 1) Mod 基数 :剰余の求め方、何故 - 1 ?
n = (n - 1) \ 基数 :商の求め方、何故 - 1 ?
こちらでニーズを把握しきれてない気もしますが、
わりとメジャーなロジックですし、応用できる場面が多々あるとは思います。
それでは、また
No.2
- 回答日時:
X進数の数字を一旦10進数に戻してから足し算なり引き算をして、結果をまたX進数に戻す、というのが単純で分かりやすいかもです。
もしくは記号部分が連続するアルファベット(a,b,c・・・)であるならasc関数で文字コードに変換してやれば数値として計算可能です。例えば小文字のアルファベットの場合、文字コードから87引いてやると「a」⇒「10」、「b」⇒「11」のように扱えます。
No.1
- 回答日時:
> やり方が思いつきません。
いろんなやり方があると思うけど...
たとえば
0,1,2,00,01,02,10,11,12,20,21,22,000,...
と数字を作っておいて,0→a,1→b,2→cと置換するとか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/10 09:06
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
- その他(スマホアプリ・スマホゲーム) 問い合わせにおける購入履歴の送信について 2 2023/08/18 21:18
- 数学 何故ベクトルの和の定義は↑AB+↑BC=↑ACなのですか? 11 2022/05/19 19:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Excel(エクセル) Excel 複数列のある文字を優先して1列に表示したいです 2 2022/12/03 12:07
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/10/12 12:55
- 戸籍・住民票・身分証明書 マイナンバーカードの更新について教えてくださいな マイナンバーカード更新の時期が来たので携帯で済ませ 2 2023/07/31 01:47
- Excel(エクセル) Excelについて 4 2023/03/02 09:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
BitLockerで暗号化したHDDはキ...
-
【メール】受信メールが暗号化...
-
日本に伝わる三種の神器のうち...
-
テキストの暗号化
-
いろはにほへと
-
これってなんて言ってると思い...
-
スニファリングツールについて。
-
ヤオコーで運動会の曲(曲名: ...
-
ゲームをプレイしていなくてもG...
-
機密性を高めた電子メール
-
9lmとは、恋愛暗号でどういう意...
-
誰か暗号解読してください。中...
-
ブラウザ、「第三者が簡単に傍...
-
アイフォーンのWi-Fiの方法につ...
-
ゆうちょインターネットバンキ...
-
暗号化ZIP でのパスワードの送...
-
これって何かの暗号ですか??
-
大学でのGメール
-
SMTP over SSLを使った場合、暗...
-
ベネッセ BE-GO ビーゴファー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
BitLockerで暗号化したHDDはキ...
-
第二次世界大戦の暗号解読でど...
-
ブロックチェーンの活用事例は...
-
YouTubeを見てると、コメント欄...
-
USBメモリの暗号化について
-
iPhone用動画保存アプリiCapの...
-
【メール】受信メールが暗号化...
-
大容量を暗号化できるソフトに...
-
USBメモリの暗号 Buffalo Secur...
-
判断推理の問題ですが。
-
数字を3文字とアルファベットを...
-
解読してください
-
外付けHDのロックを解除したい
-
エニグマ暗号機の構造
-
誰か暗号解読してください。中...
-
cisco1603の設定について
-
NTFSは暗号化してるって本当で...
-
判断推理の問題で困っています(...
-
ヤオコーで運動会の曲(曲名: ...
-
今日、中学生の妹から暗号らし...
おすすめ情報