te')); return $arr; } /* 遍历用户所有主题 * @param $uid 用户ID * @param int $page 页数 * @param int $pagesize 每页记录条数 * @param bool $desc 排序方式 TRUE降序 FALSE升序 * @param string $key 返回的数组用那一列的值作为 key * @param array $col 查询哪些列 */ function thread_tid_find_by_uid($uid, $page = 1, $pagesize = 1000, $desc = TRUE, $key = 'tid', $col = array()) { if (empty($uid)) return array(); $orderby = TRUE == $desc ? -1 : 1; $arr = thread_tid__find($cond = array('uid' => $uid), array('tid' => $orderby), $page, $pagesize, $key, $col); return $arr; } // 遍历栏目下tid 支持数组 $fid = array(1,2,3) function thread_tid_find_by_fid($fid, $page = 1, $pagesize = 1000, $desc = TRUE) { if (empty($fid)) return array(); $orderby = TRUE == $desc ? -1 : 1; $arr = thread_tid__find($cond = array('fid' => $fid), array('tid' => $orderby), $page, $pagesize, 'tid', array('tid', 'verify_date')); return $arr; } function thread_tid_delete($tid) { if (empty($tid)) return FALSE; $r = thread_tid__delete(array('tid' => $tid)); return $r; } function thread_tid_count() { $n = thread_tid__count(); return $n; } // 统计用户主题数 大数量下严谨使用非主键统计 function thread_uid_count($uid) { $n = thread_tid__count(array('uid' => $uid)); return $n; } // 统计栏目主题数 大数量下严谨使用非主键统计 function thread_fid_count($fid) { $n = thread_tid__count(array('fid' => $fid)); return $n; } ?>excel - Control movement of cursor to specific cells only VBA - Stack Overflow

科技改变生活-雨落星辰 - 所有的伟大,都源于一个勇敢的开始

    最新消息：雨落星辰是一个专注网站SEO优化、网站SEO诊断、搜索引擎研究、网络营销推广、网站策划运营及站长类的自媒体原创博客
    你的位置： 首页>programmer>excel - Control movement of cursor to specific cells only VBA - Stack Overflow

    excel - Control movement of cursor to specific cells only VBA - Stack Overflow

    programmeradmin5浏览0评论

    I am currently building an excel template to be populated by a number of users.

    I would like to be able to allow/restrict the cursor to move from current cell to the next relevant cell.

    I did look at some code but it doesn't seem to be working for me. I placed this code directly on the relevant worksheet, from the sheets listed in 'objects', this is Sheet9(Recommendation Report), as the vba should only work within this worksheet.

    I think part of my issue is that I already have this Worksheet Change object

    Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("H5")) Is Nothing Then

Exit Sub

Else: ActiveWorkbook.Save

End If

End Sub

    I need that to remain intact, it is the first cell populated by the user and it saves the document allowing the sequential numbering vba to work for the next user, while the current user has the template file open.

    The 2nd code I have looks like this

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Select Case Target.Address()
Case "$H$5"
  Range("$H$6").Select
Case "$H$6"
  Range("$N$5").Select
Case "$N$5"
  Range("$N$6").Select
Case "$N$6"
  Range("$Z$5").Select
Case "$Z$5"
  Range("$D$10").Select

End Select
End Sub

    This gave me the error 'Ambiguous name detected:Worksheet_Change' so I amended this by adding a '2' making it Private Sub Worksheet_Change2 but then that changes it from 'Worksheet' & 'Change' to 'General' & 'Worksheet_Change2'.

    I am very new to VBA, can anyone help me string these 2 together, if that is possible, if not, any assistance on how better to perform this would be greatly appreciated.

    Thanks in advance.

    与本文相关的文章

    发布评论

    评论列表(0)

    1. 暂无评论