Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2039|回复: 6

[已解决]关于拼音选人的问题,请大师帮帮忙!

[复制链接]
发表于 2011-11-16 18:33 | 显示全部楼层 |阅读模式
本帖最后由 weiwei666 于 2011-11-16 18:35 编辑

2011-11-15_182906.jpg
比如输入 ZHB  就可以选择  周海滨  


拼音选人.rar (130.9 KB, 下载次数: 7)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-11-16 20:12 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2011-11-16 20:16 编辑

拼音选人.rar (79.96 KB, 下载次数: 27)

评分

参与人数 1 +1 收起 理由
weiwei666 + 1 很给力! 可惜权限不够只能加1分

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2011-11-17 10:34 | 显示全部楼层
zjdh 发表于 2011-11-16 20:12

XX谢谢大师,帮忙!
回复

使用道具 举报

 楼主| 发表于 2011-11-24 10:39 | 显示全部楼层
zjdh 发表于 2011-11-16 20:12

老师请教!如何把下面这代码融合到你写到代码中?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)'点击AG列单元格自动打√
    If Target.Row < 5 Or Target.Row > 24 Then End
    If Target.Column <> 33 Then End
    Dim r As Range
    For Each r In Target
        If r.Value <> "√" Then
            r.Value = "√"
        Else
            r.Value = ""
        End If
    Next
End Sub
回复

使用道具 举报

发表于 2011-11-24 13:28 | 显示全部楼层
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim I As Integer
  3.     If Target.Count = 1 Then
  4.         If Target.Column = 3 And Target.Row > 2 Then
  5.             With Sheets("Sheet1")
  6.                 Myr = .[B65536].End(xlUp).Row
  7.                 Arrsj = .Range("B4:D" & Myr)
  8.             End With
  9.             TextBox1.Activate
  10.             TextBox1 = ""
  11.             With Me.TextBox1
  12.                 .Visible = True
  13.                 .Top = Target.Top
  14.                 .Left = Target.Left
  15.                 .Width = Target.Width
  16.                 .Height = Target.Height
  17.             End With
  18.             With Me.ListBox1
  19.                 .Visible = True
  20.                 .Top = Target.Top
  21.                 .Left = Target.Left + Target.Width
  22.                 .Width = Target.Width
  23.                 .Height = Target.Height * 4
  24.             End With
  25.         Else
  26.             Me.ListBox1.Clear
  27.             Me.TextBox1 = ""
  28.             Me.ListBox1.Visible = False
  29.             Me.TextBox1.Visible = False
  30.         End If
  31.         If Target.Column = 33 And Target.Row > 4 And Target.Row < 25 Then
  32.             If Target.Value <> "√" Then
  33.                 Target.Value = "√"
  34.             Else
  35.                 Target.Value = ""
  36.             End If
  37.         End If
  38.     End If
  39. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
weiwei666 + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2011-11-24 14:07 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-11-24 15:20 | 显示全部楼层
zjdh 发表于 2011-11-24 13:28

谢谢老师指导!!!{:4212:}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:36 , Processed in 0.914009 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表