Выберите копию ячейки с листа на другой лист

Question

Выберите копию ячейки с листа на другой лист

попробуйте

document.getElementById('formtextarea').value=document.getElementById('editable_div').innerHTML;

полный пример: -

    <script type="text/javascript">
    function getContent(){
var div_val=document.getElementById("editablediv").innerHTML;
        document.getElementById("formtextarea").value =div_val;
    if(div_val==''){
     //alert("option alert or show error message")
     return false;
     //empty form will not be submit. You can also alert this message like this.
    }
        }</script>

`

<div id="editablediv" contenteditable="true">
<a href="page.html">Some</a> Text</div>
<form id="form" action="action.php" onsubmit="return getContent()">
    <textarea id="formtextarea" style="display:none"></textarea>
    <input type="submit" />
</form>

`

вместо этого вы можете использовать JQuery (если есть ограничение на использование JQuery для автоматического изменения размера текстового поля или любого текстового редактора WYSIWYG)

1

excel vba

задан p._phidot_ 17 January 2019 в 09:43

2 ответа

Другие вопросы по тегам:

excel vba

Похожие вопросы:

score 0 · Answer 1

Действительно, спасибо, что поделились.

Я проверил код, но кажется, что три значения D8: D10 (на листе 1) появляются вместе в B4 (на листе 2) одновременно, но не по одному.

Могу ли я узнать, есть ли другое возможное решение.

Еще раз спасибо!

score 0 · Answer 2

Попробуйте подписаться на подпункт

Sub CopyToSingleCell()
Dim lRow, RowIndex As Long
Dim src As Worksheet, dest As Worksheet
Dim rng As Range

    Set src = ThisWorkbook.Worksheets("sheet1")
    Set dest = ThisWorkbook.Worksheets("sheet2")
    lRow = src.Range("D8").End(xlDown).Row

        For Each rng In src.Range("D8:D" & lRow)
            dest.Range("B4") = dest.Range("B4") & " " & rng.Value
        Next rng

    Set src = Nothing
    Set dest = Nothing
End Sub

.