如何根据一行中特定单元格输出特定结果，求助大神

ymk31 · 发表于 2019-10-11 12:36

本帖最后由 ymk31 于 2019-10-11 12:58 编辑

VBA小白，会用一点简单的For、if、selectcase循环。提问如下这是一份问卷的结果，每一行是一个人在八个问题中选其中一个问题回答，问题各有两个选项，根据回答的题目和答案总共有16种不同结果要输出。

我想写一个循环，从第一个问题开始判定，没有回答的地方就跳过。如果这个人回答了第一个问题（第一列），根据他的回答输出结果（a或b），如果他回答的是第二个问题（第二列），根据回答输出c或d，以此类推。全部判定完之后循环到下一行（下一个人）。

求助各位大神指导一下我这个循环该怎么写，或者能提供思路我自己去学也可以，感激不尽！！
PS：根据建议附上了一个模拟附件，请各位老师帮忙解答

根据特定单元格的答案输出特定结果.rar (7.38 KB, 下载次数: 2)

liulang0808 · 发表于 2019-10-11 12:40

欢迎新朋友，建议上传模拟附件举例说明问题吧

ymk31 · 发表于 2019-10-11 13:57

有没有老师能指导一下，拜托了！！

月关 · 发表于 2019-10-11 14:36

Sub test()
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
For ii = 2 To UBound(arr, 2)
If Len(arr(i, ii)) Then arr(i, ii) = IIf(arr(i, ii) = 1, (ii - 1) * 200 - 100, (ii - 1) * 200)
Next
Next
[a1].CurrentRegion = arr
End Sub

复制代码

ymk31 · 发表于 2019-10-11 15:07

月关发表于 2019-10-11 14:36

谢谢解答！！请问如果实际操作中的答案更加复杂，不是100>200>300这样递增而是没有规律的特定值的话要怎么弄呢？

ymk31 · 发表于 2019-10-11 15:20

月关发表于 2019-10-11 14:36

谢谢解答！！请问如果实际情况比举例复杂，输出的答案不是100>200>300递增而是一些没有规律的答案要怎么修改呢？谢谢！！

月关 · 发表于 2019-10-11 16:22

ymk31 发表于 2019-10-11 15:07
谢谢解答！！请问如果实际操作中的答案更加复杂，不是100>200>300这样递增而是没有规律的特定值的话要怎 ...

如果完全没有规律，恐怕不好搞。
但你说了特定值，所以，不妨上个示例看看

ymk31 · 发表于 2019-10-11 16:38

月关发表于 2019-10-11 16:22
如果完全没有规律，恐怕不好搞。
但你说了特定值，所以，不妨上个示例看看

谢谢回复！我修改了一下具体数值的说明

根据单元格的答案输出特定结果实例.rar (7.66 KB, 下载次数: 1)

月关 · 发表于 2019-10-11 16:41

ymk31 发表于 2019-10-11 16:38
谢谢回复！我修改了一下具体数值的说明

这样很简单。下班有点事，明天吧

月关 · 发表于 2019-10-11 16:53

Sub test2()
s = [{14750,14000;13150,12700;12500,12200;11800,11500;11300,11050;10800,10650;10550,10400;10200,10050}]
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
For ii = 2 To UBound(arr, 2)
If Len(arr(i, ii)) Then arr(i, ii) = IIf(arr(i, ii) = 1, s(ii - 1, 1), s(ii - 1, 2))
Next
Next
[a1].CurrentRegion = arr
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何根据一行中特定单元格输出特定结果，求助大神

最新热点 /1