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; } ?>macros - How to 'disable' & 'grey-out' an Excel's Form Control 'Option B

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

    最新消息：雨落星辰是一个专注网站SEO优化、网站SEO诊断、搜索引擎研究、网络营销推广、网站策划运营及站长类的自媒体原创博客
    你的位置： 首页>programmer>macros - How to 'disable' & 'grey-out' an Excel's Form Control 'Option B

    macros - How to 'disable' & 'grey-out' an Excel's Form Control 'Option B

    programmeradmin3浏览0评论

    Need to disable an 'Option Button' whether by coding or manually. That 'Option Button' must be greyed-out with 3D appearance when disable. I am using M.S. Office LTSC Professional Plus 2021.

    I have tried the following code that works: Sub OptionButton11_Click() ActiveSheet.OptionButtons("Option Button 11").Enabled = False End Sub No color change occurs though, (Color of button as well as caption text remains unchanged) The following code also works: Sub OptionButton11_Click() ActiveSheet.OptionButtons("Option Button 11").Visible = False End Sub But that is not what I need. I want to achieve the result same as described in the following link: Grey out optionbuttons when a specific option button is selected Example given by ‘Siddharth Rout’ is marvelous. Can someone tell how to use the same coding for the same result on an ‘Excel Sheet’ instead of ‘User Form’? Note: An Excel's ActiveX 'Option Button' is not appeared same as an Excel's Form Control 'Option Button'. Further, ActiveX Caption is not vertically Center-Aligned and only looks '3D' while clicking on the disabled 'Option Button'.

    与本文相关的文章

    发布评论

    评论列表(0)

    1. 暂无评论