曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速入手下手

EH搜索
EH技术汇-专业的职场技艺充电站 妙哉!函数段子手有趣讲函数 足球任事器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造中央竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实践指南
稽查: 201 | 回复: 7
打印 上一主题 下一主题

[求助] VBA怎么将这8个数字转化成指定数字串????

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
宣布于 2020-9-14 21:01 | 只看该作者 | 只看大图 回帖奖赏 | 倒序涉猎 | 阅读形式
0=192,8=224,7=220,6=216,足球论坛。5=212,4=208,3=204,2=200,1=196。
例转换0后是,就是赋值后串连起来

TA的精华主题

TA的得分主题

2
宣布于 2020-9-14 21:06 | 只看该作者
楼主这八个数字对应的数字字符串是怎么寄存?
这个楼主要先描摹显现。

TA的精华主题

TA的得分主题

3
楼主 | 宣布于 2020-9-14 21:24 | 只看该作者
liulang0808 宣布于 2020-9-14 21:06
楼主这八个数字对应的数字字符串是怎么寄存?
这个楼主要先描摹显现,剩下就是一个粗略的组合

例如a="0",依照上面给出的单个数字对应的数串起来的终局就是a=”“了,以此类推,足球论坛。9转化就是228,7转化就是220,4转化是208,0转化是192。

TA的精华主题

TA的得分主题

4
宣布于 2020-9-14 21:37 | 只看该作者
'凑了一个,未做舛讹管理,,,

Option Explicit

Sub test()
Dim mark, i, s, t, dic
Set dic = CreateObject("scripting.dictionary"),足球论坛
mark = Split("0=192,1=196,2=200,足球吧论坛。3=204,4=208,足球社区。5=212,6=216,7=220,8=224,9=228", ",")
For i = 0 To UBound(mark)
t = Split(mark(i), "=")
dic(t(0)) = t(1)
Next
s = "0"
ReDim arr(1 To Len(s)) As String
For i = 1 To Len(s)
arr(i) = dic(Mid(s, i, 1))
Next
MsgBox Join(arr, vbNullString),第一足球网论坛。
End Sub

评分

参与人数 2 鲜花 +5 收起 理由
YZC51 + 3 太强壮了
脚毛乱了 + 2 优秀作品

稽查全盘评分

TA的精华主题

TA的得分主题

5
宣布于 2020-9-14 22:06 | 只看该作者
代码仅供参考

1.png (9.69 KB, 下载次数: 1)

1.png

2.png (9.27 KB, 下载次数: 1)

2.png

评分

参与人数 2 鲜花 +5 收起 理由
YZC51 + 3 太强壮了
脚毛乱了 + 2 太强壮了

稽查全盘评分

TA的精华主题

TA的得分主题

6
宣布于 2020-9-14 22:10 | 只看该作者
Sub test()
arr = Split("192,196,200,204,虎扑足球论坛。208,212,216,220,224,228", ",")
str2 = "0"
str1 = ""
For j = 1 To Len(str2)
str1 = str1 & arr(Val(Mid(str2, j,足球社区互动。 1)))
Next j
MsgBox str1
End Sub

评分

参与人数 2 鲜花 +5 收起 理由
YZC51 + 3 太强壮了
脚毛乱了 + 2 感动协助

稽查全盘评分

TA的精华主题

TA的得分主题

7
宣布于 2020-9-14 22:33 | 只看该作者
  1. Function cc(str As String) As String
  2. cc = Space(3 * Len(str))
  3. For i = 1 To Len(str)
  4. Mid(cc, 3 * i - 2, 3) = 192 + 4 * Mid(str, i, 1)
  5. Next
  6. End Function

  7. Sub test()
  8. MsgBox cc("0")
  9. End Sub
复制代码

评分

参与人数 2 鲜花 +5 收起 理由
YZC51 + 3 太强壮了
脚毛乱了 + 2 太强壮了

稽查全盘评分

TA的精华主题

TA的得分主题

8
宣布于 2020-9-14 23:55 | 只看该作者
liulang0808 宣布于 2020-9-14 22:10,足球VBA如何将这8个足球论坛数字转化成指定数字串????。
Sub test()
arr = Split("192,196,200,204,208,212,216,220,224,228", ",")
str2 = "04796390"

这个好,我喜欢代码短的,一看就懂了~
str2更改为单元格值就更好了
您需要登录后才能够回帖 登录 | 收费注册

本版积分规则

关心官方微信,每天学会一个新技艺

手机版|关于我们|相关我们|曼城足球论坛

GMT+8, 2020-9-26 12:16, Processed in 0.0 second(s),足球VBA圭表开发。 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属宣布者私人意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表