插入带有命令按钮数量

你好,

我想8命令按钮放置在名称管理器的条目一个号码,说:“mynumber的”。 目前,我有

私人小组Rides_Click()

昏暗NUM只要
NUM = 14
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM

结束小组

是否做到这一点的最好办法还是可以压缩8潜艇为一体,而不是重复同样的事情,8倍(使用不同的数字)?

谢谢

--------------解决方案-------------

我会每个按钮简单地传递一个数值(至8 1,因为你刚才说你有8个按钮),以一个例程,然后用选择案例,以确定哪个按钮被点击:像这样(假设子ProcessButtons是相同的与所有的_Click()的模块处理):

私人小组Average_Click()
ProcessButtons 1
结束小组

私人小组Calories_Click()
ProcessButtons 2
结束小组

“更多的按钮_Click()事件,每个事件
“通过不同的整数值
“子ProcessButtons

私人小组ProcessButtons(whichButton作为整数)
昏暗NUM只要
“你知道你必须重新设置所有(其他)按钮
“一些的颜色,所以,而不是试图记住
“这是以前点击,刚开始用
“他们都设置为”未点击“色

“代码会去这里

“现在你开始处理各个按钮的反应
选择案例whichButton
案件= 1
“平均按钮被点击

“其颜色设置在这里!

“然后做独特的加工

如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 11
万一
案件= 2
“卡路里按钮被点击
“再次,设置它的颜色
“并继续与独特的加工
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
案例是= 3
“按照相同的逻辑在其他按钮
案件= 4
“按照相同的逻辑在其他按钮
案件= 5
“按照相同的逻辑在其他按钮
案件= 6
“按照相同的逻辑在其他按钮
案件= 7
“按照相同的逻辑在其他按钮
案件= 8
“按照相同的逻辑在其他按钮
否则案例
“这是意外地调用此
“一些价值比其他1-8,
“不必做任何事情!
“所以不要!
结束选择
结束小组

如果这是所有有,当你点击一个按钮来运行代码,你可能只是为富裕使用的代码或替补的8单件。

如果你有更多的代码被执行,那么你可以考虑这种类型的事情:

子Rides_Click()
呼叫ModifyName(“ChartChooser”,14)
结束小组

子Button2_Click()
呼叫ModifyName(“DifferentName”“,33)
结束小组

子ModifyName(了newName作为字符串,NUM长)
ActiveWorkbook.Names.Add名称:=了newName,RefersToR1C1:=“=”&CStr的(NUM)
“......也可以执行更多的(复杂)的代码
结束小组

这里的区别是,当你已经有种隔离功能的方法来改变定义名称的值不会改变,所以大概就不会永远需要做在子ModifyName声明任何维护。 所以任何维护将完成的各种_Click()替补,并且由于它们是如此之小,并改变将是所涉及的名称和/或它的值,则维护工作是为设置是相同的。

用这种方法,代码量将是大约相同的,但已经增加了一个小组,并添加了开销时间调用它,并从它返回到您的处理时间。 诚然,所加的时间将是微秒为每个按钮点击的顺序。

除非有当您单击按钮中的一个被执行了很多共同的代码,我会跟他们保持自足而不调用一个单独的例程坚持。

如果有大量的处理工作要做,涉及大量的逻辑处理的,我可能会与呼叫到一个共同的常规去,这样如果需要我的逻辑要改,我只需要改变它在一个地方代替在8位。

希望这可以帮助你做决定。

顺便说一句,我的ActiveWorkbook.Names.Add形式的作品以添加一个新的名字到工作簿的定义名称或简单地改变现有名称的RefersToR1C1值。

witing最初的代码后,我需要做一些调整。

我会在细胞依赖于一个文本值6个按钮(英里公里)

私人小组Average_Click()
昏暗NUM只要
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 11
万一
结束小组

和三无细胞依赖关系:

私人小组Calories_Click()
昏暗NUM只要
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
结束小组

我还必须添加某种的代码,被点击的按钮中的任何一个时,它会改变颜色,当按下另一个按钮回复到原来的颜色。 你对如何实现这一一些建议吗?

看起来像你的版本是一个更加适合?

非常感谢

我会每个按钮简单地传递一个数值(至8 1,因为你刚才说你有8个按钮),以一个例程,然后用选择案例,以确定哪个按钮被点击:像这样(假设子ProcessButtons是相同的与所有的_Click()的模块处理):

私人小组Average_Click()
ProcessButtons 1
结束小组

私人小组Calories_Click()
ProcessButtons 2
结束小组

“更多的按钮_Click()事件,每个事件
“通过不同的整数值
“子ProcessButtons

私人小组ProcessButtons(whichButton作为整数)
昏暗NUM只要
“你知道你必须重新设置所有(其他)按钮
“一些的颜色,所以,而不是试图记住
“这是以前点击,刚开始用
“他们都设置为”未点击“色

“代码会去这里

“现在你开始处理各个按钮的反应
选择案例whichButton
案件= 1
“平均按钮被点击

“其颜色设置在这里!

“然后做独特的加工

如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 11
万一
案件= 2
“卡路里按钮被点击
“再次,设置它的颜色
“并继续与独特的加工
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
案例是= 3
“按照相同的逻辑在其他按钮
案件= 4
“按照相同的逻辑在其他按钮
案件= 5
“按照相同的逻辑在其他按钮
案件= 6
“按照相同的逻辑在其他按钮
案件= 7
“按照相同的逻辑在其他按钮
案件= 8
“按照相同的逻辑在其他按钮
否则案例
“这是意外地调用此
“一些价值比其他1-8,
“不必做任何事情!
“所以不要!
结束选择
结束小组

此外,这里的缩短了子ProcessButtons()函数的方法。 这可以工作,如果你不需要使用Chart_chooser的价值改变任何一个按钮_Click相关联的其它特殊处理,因为直到一切已经做到了这一点不会改变该值。

私人小组ProcessButtons(whichButton作为整数)
昏暗NUM只要
“你知道你必须重新设置所有(其他)按钮
“一些的颜色,所以,而不是试图记住
“这是以前点击,刚开始用
“他们都设置为”未点击“色

“代码会去这里

“现在你开始处理各个按钮的反应
选择案例whichButton
案件= 1
“平均按钮被点击

“其颜色设置在这里!

“然后做独特的加工
“但不是执行的实际行
“代码更改”Chart_chooser“的价值,我们
“刚刚成立它需要的价值,使
“当你走出选择案例的......结束选择块
“那台值的语句只是
“包含在代码一次。
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
其他
NUM = 11
万一
案件= 2
“卡路里按钮被点击
“再次,设置它的颜色
“并继续与独特的加工
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
案例是= 3
“按照相同的逻辑在其他按钮
案件= 4
“按照相同的逻辑在其他按钮
案件= 5
“按照相同的逻辑在其他按钮
案件= 6
“按照相同的逻辑在其他按钮
案件= 7
“按照相同的逻辑在其他按钮
案件= 8
“按照相同的逻辑在其他按钮
否则案例
“这是意外地调用此
“一些价值比其他1-8,
“不必做任何事情!
“但我们不希望改变Chart_Chooser价值
“所以它设置为一个不可能的值
NUM = -1“大概不能/不应该负
结束选择
如果num> 0,则
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
万一
结束小组

哇感谢,伟大的工作。

我可以问你三个问题:你说的“他们都设置为”未点击“色,所以我做到了

Distance.BackColor = H8000000F
Hours.BackColor = H8000000F
Fastest.BackColor = H8000000F
Longest.BackColor = H8000000F
Max.BackColor = H8000000F
Average.BackColor = H8000000F
Centuries.BackColor = H8000000F
Rides.BackColor = H8000000F
Calories.BackColor = H8000000F

有必要重复?

对于每一种情况下,它是强制性的结束如果和最终选择?

我最后的问题认为是应该在单元格G3文本“万里行”点击一次的时候,文本“公里”时,点击一次,并回到“万里行”在一个循环,我想一个按钮? 你能不能告诉我?

感谢您的时间

我相信,该&& H8000000F颜色是“未点击”颜色。 您只需在 ProcessButtons的一开始做一次 -选择Case语句之前。

然后,在每个案件=#部分中,您将设置被点击得到他们的.BackColor给您使用的是“点击”的任何值的一个按钮。

有没有如果......结束如果直接与选择案例块相关联。 虽然你可能使这些领域的决定。 每个区域作为一个独立的思考是 - 完全无关的任何选择Case块的其他部分:

选择案例whichButton'转到基于whichButton价值的部分

案件= 1'做什么,如果whichButton = 1
'这个代码只执行时whichButton = 1
“你可以有如果...结束如果在它块,他们应该
“是完整的内部情况部分。
如果someValue中=“一些测试值”然后
当测试通过“做什么
结束如果'就像正常的。

情况下是= 2,3​​,4'甚至可以在一个实例中测试几个值
“但是因为你只是1按钮的背景色设置为'检查'
“我们不能为你做在这种情况下。

结束选择
“现在我们回到将每次完成的子称为区域
“不管whichButton什么样的价值了。

您可以或许也觉得选择案例的......最终选择为一大堆个别如果。然后块,但它使用更有效,一般更容易理解/阅读。 这两个案例是=上面可以写不使用选择Case语句......最终选择是这样的:

如果whichButton = 1,则
如果someValue中=“一些测试值”,然后
当这种测试通过“做什么
万一
万一

如果whichButton = 2或whichButton = 3或whichButton = 4。然后
当'这个测试通过在这里做的东西
万一

这是否有助于您的理解多一点?

至于“公里”到“万里”切换。 假设是,当点击一个按钮,值6传递给我们的ProcessButtons()函数发生:

子ProcessButtons(whichButton作为整数)
“将所有按键未点击颜色
“开始按钮,个体加工


选择案例whichButton
案件= 1
'东东
案件= 2
'其他的东西
....案例是对= 3,以及用于= 4和5 =
案例是= 6
“设置按钮6色”点击“颜色
如果ThisWorkbook.Worksheets(“汇总”),范围(“G3”)=“公里”然后
“切换到”万里“
ThisWorkbook.Worksheets(“汇总”),范围(“G3”)=“万里行”
其他
'假定它必须是“英里”,并需要“公里”
ThisWorkbook.Worksheets(“汇总”),范围(“G3”)=“公里”
万一
'和此按钮或许多个处理

案件= 7

案件= 8

否则案例
“”不作为“,因为处理程序,我们没有得到一个值
“我们预计在whichButton
结束选择
“回的东西,总是会发生的,不管是哪个按钮
“是被点击
结束小组

啊确定一下,如果,如​​果结束。

关于颜色,我已经这样插入它,你说我只能用一条线来代替(下面的代码)?

关于英里/公里按钮。

这个按钮不是的9个按键“群”的组成部分,它不会改变颜色。

点击一次的时候,“公里”再次和背部点击万里等,当它所做的就是在单元格G3文本“万里”。

有一个瞬间咄,我怎么办呢?

私人小组DataForm_Click()
MilesCounter.Show
结束小组

私人小组Distance_Click()
ProcessButtons 1
结束小组
私人小组Hours_Click()
ProcessButtons 2
结束小组
私人小组Fastest_Click()
ProcessButtons 3
结束小组
私人小组Longest_Click()
ProcessButtons 4
结束小组
私人小组Max_Click()
ProcessButtons 5
结束小组
私人小组Average_Click()
ProcessButtons 6
结束小组
私人小组Centuries_Click()
ProcessButtons 7
结束小组
私人小组Rides_Click()
ProcessButtons 8
结束小组
私人小组Calories_Click()
ProcessButtons 9
结束小组
私人小组ProcessButtons(whichButton作为整数)
昏暗NUM只要

Distance.BackColor = H8000000F
Hours.BackColor = H8000000F
Fastest.BackColor = H8000000F
Longest.BackColor = H8000000F
Max.BackColor = H8000000F
Average.BackColor = H8000000F
Centuries.BackColor = H8000000F
Rides.BackColor = H8000000F
Calories.BackColor = H8000000F

选择案例whichButton“距离
案件= 1
Distance.BackColor = 52224
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 1
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 2
万一
结束选择

选择案例whichButton'时间
案件= 2
Hours.BackColor = 3342591
NUM = 3
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
结束选择

选择案例whichButton“最快
案例是= 3
Fastest.BackColor = 16737996
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 4
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 5
万一
结束选择

选择案例whichButton“最长
案件= 4
Longest.BackColor = 16737996
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 6
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 7
万一
结束选择

选择案例whichButton'马克斯
案件= 5
Max.BackColor = 3381759
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 8
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 9
万一
结束选择

选择案例whichButton“平均
案件= 6
Average.BackColor = 3381759
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 11
万一
结束选择

选择案例whichButton'百年
案件= 7
Centuries.BackColor = 65535
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 12
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 13
万一
结束选择

选择案例whichButton'游戏机
案件= 8
Rides.BackColor = 16724991
NUM = 14
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
结束选择

选择案例whichButton'卡路里
案件= 9
Calories.BackColor = 16763904
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
结束选择

结束小组

得到它了。

好了,不知道该怎么感谢你,我真的很感激。

有一个美好的夜晚。

关于颜色 - 你没有它,我已经在路上。

很高兴你得到公里 - 万里的事情去。 也。

但我似乎已经让你感到困惑的选择案例的东西。 尝试这种方式!

私人小组ProcessButtons(whichButton作为整数)
昏暗NUM只要

Distance.BackColor = H8000000F
Hours.BackColor = H8000000F
Fastest.BackColor = H8000000F
Longest.BackColor = H8000000F
Max.BackColor = H8000000F
Average.BackColor = H8000000F
Centuries.BackColor = H8000000F
Rides.BackColor = H8000000F
Calories.BackColor = H8000000F

选择案例whichButton

案件= 1'的距离
Distance.BackColor = 52224
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 1
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 2
万一

案件= 2小时
Hours.BackColor = 3342591
NUM = 3
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM

案例是= 3'最快
Fastest.BackColor = 16737996
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 4
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 5
万一

案件= 4'最长
Longest.BackColor = 16737996
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 6
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 7
万一

案件= 5'最大
Max.BackColor = 3381759
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 8
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 9
万一

案件= 6'平均
Average.BackColor = 3381759
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 10
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 11
万一

案件= 7'百年
Centuries.BackColor = 65535
如果工作表(“汇总”),范围(“G3”)=“万里”然后
NUM = 12
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM
其他
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = 13
万一

案件= 8'游戏机
Rides.BackColor = 16724991
NUM = 14
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM

案件= 9'卡路里
Calories.BackColor = 16763904
NUM = 15
ActiveWorkbook.Names(“Chart_chooser”)。RefersToR1C1 = NUM

结束选择

结束小组

分类:办公室 时间:2012-01-01 人气:0
分享到:

相关文章

  • 删除并重新安装Office 2007的现在Microsoft Office文件夹说的(空) 2012-01-31

    重新安装Office 2007的现在的Microsoft Office文件夹只是有(空). Windows 7操作系统,经历了所有的卸载,包括手工卸载,仍然得到同样的结果. 没有错误在安装过程中它说,它已经完成露面. --------------解决方案------------- 如果您键入Word中插入搜索程序和文件文本框中这是否显示出快捷? 我终于放弃了,并呼吁在微软的技术支持. 他让我做的基本上是相同的,但让我输入WINWORD. 搜索发现,他让我对Winword.exe文件双击. 然后,

  • Office 2007的(Microsoft Office Word中有停止工作) 2012-01-19

    有时,当开扩的Word 2007年,我收到以下消息,Microsoft Office Word中有停止工作. 当IM并准备将其关闭,我得到了同样的信息,这也发生. 有没有修复这个问题吗? 这已经持续了很长一段时间. 谢谢 --------------解决方案------------- 我想你,因为重新注册Word中重新启动? 也许好几次,我期待,但是很多设置的更改需要重新启动才能生效,所以我想我只是确认一下. 我出与你的问题的想法,在我看来,你已经在它抛出的一切,包括厨房水槽. 这是一对夫妇尝试

  • 不容安装,因为Office 2007的X32的Office 2010的64位,但其已经完全去除。 2014-01-04

    嗨, 我最近买了Office 2010的x64和我尝试安装,可悲的是我的系统上预装Office 2007的X32审判. 我completley通过我的添加/删除列表中删除所有的Office 2007产品,并尝试安装Office 2010. 它给了我一个错误,Office 2007的X32仍然是我的机器的,我不能安装它. 我试图用"RipOutOffice2007",并删除了所有吃剩的东西,现在说与stat我的电脑是办公室2007年cleand, 但可悲的是我仍然无法安装,因为Offic

  • 如何从另一家公司从我刚下载的Microsoft Office 2010版本中删除Microsoft Office Outlook 2007中 2013-12-31

    我最近下载的Microsoft Office 2010,并从公司和我一起工作过的Microsoft Office Outlook 2007中. 现在看来,我不能删除Microsoft Office 2007.我如何获得这该死的从我的电脑中删除的东西,而不破坏我的文件? --------------解决方案------------- 我们需要的细节. 当您尝试卸载2007年会发生什么? 到底什么是错误消息和代码,你得到什么? 以下是开始自动标准卸载技术合作到手动方式: 修复或卸载Office 20

  • 我一定要购买Excel中的Microsoft Office 2014-10-07

    如何访问微软Office? 如果不是我如何激活它. 我的电脑是宏碁Aspire --------------解决方案------------- 我一定要购买Excel中的Microsoft Office 如果你想使用Office,那么你将不得不购买它,你可以在这里做的: - http://office.microsoft.com/en-us/buy/ 以供将来参考你所提出应该得到这里记录的问题的类型: - http://answers.microsoft.com/en-us/office/for

  • 我有在安装过程中安装Microsoft Office 2007年那支问题 2014-11-18

    我有在安装过程中安装Microsoft Office 2007年那支问题. 是否有一个客户服务号码,可以帮助 --------------解决方案------------- 你是什​​么意思"在安装过程中大棒". 看到 1. http://support.microsoft.com/kb/924619 2. http://support.microsoft.com/kb/937680 也许磁盘脏,需要清洗,或者也许你可以盘从那里复制到硬盘驱动器并安装.

  • Microsoft Word中Office 2007与页面允许在一个文件中的最佳性能 2014-12-21

    Microsoft Word中Office 2007与页面允许在一个文件中的最佳性能 --------------解决方案------------- 您可以参考文章下面要知道在Word theOperating参数限制和规范: - http://support.microsoft.com/kb/211489 没有特殊号码. 你必须公正一起去看看会发生什么. 表现在一个文件依赖于这么多的事情: 你的CPU 随机存取存储器 显卡VS板载显卡 什么查看您在工作草案VS打印布局 多少图形您有文件 即使速

  • Outlook 2010中的Microsoft Office家庭andstudentversion 2014-04-21

    如何购买/安装Microsoft Outlook 2010中的Microsoft Office 2010家庭和学生版? --------------解决方案------------- 您可以从下面的链接购买一个独立的Outlook 2010 http://office.microsoft.com/en-us/buy/

  • 免费RAM XP专业版,微软的Office XP 2002或Microsoft Office XP小企业,这将让我在我的窗口中运行Windows XP模式7版? 2014-12-16

    出的Microsoft Office XP 2002,Microsoft Office XP中小企业业务,或可用内存XP专业版将允许什么我运行Windows在Windows 7的XP模式? --------------解决方案------------- 嗨shortcake6972, 您可以下载并在Windows 7以下版本安装Windows XP模式:专业版,企业版和旗舰版. 有关详细信息,请参阅安装和在Windows中使用Windows XP Mode的7

  • 如果2007年办公室(Office工具)微软文件影像显示3种语言英语法语西班牙语,怎么能德语加入? 2014-10-15

    如果2007年办公室(Office工具)微软文件影像显示3 语言英语法语西班牙语,怎么能德语加入? 它可以通过OCR JPEG文件中读取? 可以通过它读取OCR哪些文件? 谢谢 上 ***电子邮件地址的隐私删除*** --------------解决方案------------- 您可以购买从以下链接德语语言包: http://office.microsoft.com/en-us/suites/buy-install-configure-or-uninstall-a-microsoft-offi

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 2.155 (s). 10 q(s)