- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]整数列单元格格的值，加1和减1按钮代码怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119106)
-- 发布时间：2018/5/17 17:31:00
-- [求助]整数列单元格格的值，加1和减1按钮代码怎么写？
比如当前单元格值为10
按钮1点击实现，值10变11
按钮2点击实现，值10变9
[此贴子已经被作者于2018/5/17 18:03:18编辑过]
-- 发布时间：2018/5/17 19:04:00
--
currentTable.Value = val(currentTable.Value) + 1
-- 发布时间：2018/5/17 22:44:00
-- 回复：（有点甜）currentTable.Value = val(currentTa...
如果是字符串，后面要字符串呢，怎么修改呢？用那个函数呢？
试了 下面代码不行，用那函数呢？
CurrentTable.Value = val(CurrentTable.Value) + "0.2"
-- 发布时间：2018/5/17 22:47:00
--
具体一点你的问题。你的单元格的值是什么，最后要变成什么？
-- 发布时间：2018/5/17 22:51:00
--
比如单元格值 201805-366
按钮后，值变成 201805-366.2
-- 发布时间：2018/5/17 22:58:00
-- 回复：（有点甜）具体一点你的问题。你的单元格的值是...
比如单元格值 201805-366
按钮后，值变成 201805-366.2
-- 发布时间：2018/5/17 23:00:00
--
Dim str As String = "201805-366"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
Dim s As String = mc(mc.count-1).value
msgbox(s)
str = str.replace(s, val(s) + 0.2)
msgbox(str)
-- 发布时间：2018/5/17 23:16:00
-- 回复：（有点甜）Dim str As String = "201805-366"Di...
列的多行单元格中字符长度不要一样，要怎么实现呢？
比如：
中国 中国.2
我是谁 我是谁.2
20180-366 20180-366.2
201805-367 201805-367.2
-- 发布时间：2018/5/18 8:50:00
--
Dim str As String = "中国.2"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
If mc.count > 0 Then
Dim s As String = mc(mc.count-1).value
msgbox(s)
str = str.replace(s, val(s) + 0.2)
msgbox(str)
Else
str = str & ".2"
msgbox(str)
End If
-- 发布时间：2018/5/18 9:14:00
-- 回复：（有点甜）Dim str As String = "中国.2"Dim mc...
图示，下面按钮代码，执行后，方法 只是窗口提示 方法.2
怎样单元格的值，也变成 方法.2
Dim str As String = e.Form.Controls("TextBox1").Text
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9.]+")
If mc.count > 0 Then
Dim s As String = mc(mc.count-1).value
msgbox(s)
str = str.replace(s, val(s) + 0.2)
msgbox(str)
Else
str = str & ".2"
msgbox(str)
End Ifa
此主题相关图片如下：图.jpg