Question

我正在尝试创建一个登录页面，但是它对移动设备不友好。当我添加

Sub Consol_1()

Dim wbConte As Workbook
Dim wsOutput As Worksheet
Dim sDir As Variant
Dim wbImport As Workbook
Dim wsImport As Worksheet
Dim iRowOutput As Integer
Dim iRowInput As Integer
Dim iColOutput As Integer
Dim iColInput As Integer
Dim iTrailers As Integer

Set wbConte = ThisWorkbook
Set wsOutput = Sheets("Consolidation")

iColOutput = 1
iRowOutput = 1
    While Not IsEmpty(wsOutput.Cells(iRowOutput, iColOutput))
        iRowOutput = iRowOutput + 1
    Wend

    sDir = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx),*.xlsx ", Title:="Choose WS to import", MultiSelect:=True)

    Dim iIndexWorkbooks As Integer
    For iIndexWorkbooks = LBound(sDir) To UBound(sDir)

        iRowStartOfThisDepartmentBIA = iRowOutputBIA + 1

        Set wbImport = Workbooks.Open(Filename:=sDir(iIndexWorkbooks))


        Dim iIndexWorksheets As Integer
        For iIndexWorksheets = 1 To wbImport.Worksheets.Count
            Set wsImport = wbImport.Worksheets(iIndexWorksheets)

                Dim FoundLabor As Long

                With wsImport

                Set findrow = .Range("A:A").Find(What:="Labor", LookIn:=xlValues)
                End With

                FoundLabor = findrow.Row


            If IsEmpty(wsImport.Cells(2, "E")) = False And (wsImport.Cells(2, "H")) > 0.01 = True Then

                wsOutput.Cells(iRowOutput, 1) = Right(wbImport.FullName, Len(wbImport.FullName) - InStrRev(wbImport.FullName, "\"))
                wsOutput.Cells(iRowOutput, 2) = wsImport.Name
                wsOutput.Cells(iRowOutput, 3) = wsImport.Cells(2, 5)
                wsOutput.Cells(iRowOutput, 4) = wsImport.Cells(3, 5)
                wsOutput.Cells(iRowOutput, 5) = wsImport.Cells(4, 5)
                wsOutput.Cells(iRowOutput, 6) = wsImport.Cells(5, 5)
                wsOutput.Cells(iRowOutput, 7) = wsImport.Cells(6, 5)
                wsOutput.Cells(iRowOutput, 8) = wsImport.Cells(7, 5)
                wsOutput.Cells(iRowOutput, 9) = wsImport.Cells(8, 5)
                wsOutput.Cells(iRowOutput, 10) = wsImport.Cells(9, 5)
                wsOutput.Cells(iRowOutput, 11) = wsImport.Cells(10, 5)
                wsOutput.Cells(iRowOutput, 12) = wsImport.Cells(11, 5)
                wsOutput.Cells(iRowOutput, 13) = wsImport.Cells(12, 5)
                wsOutput.Cells(iRowOutput, 14) = wsImport.Cells(13, 5)
                wsOutput.Cells(iRowOutput, 15) = wsImport.Cells(2, 8)
                wsOutput.Cells(iRowOutput, 16) = wsImport.Cells(3, 8)
                wsOutput.Cells(iRowOutput, 17) = wsImport.Cells(4, 8)
                wsOutput.Cells(iRowOutput, 18) = wsImport.Cells(5, 8)
                wsOutput.Cells(iRowOutput, 19) = wsImport.Cells(6, 8)
                wsOutput.Cells(iRowOutput, 20) = wsImport.Cells(7, 8)
                wsOutput.Cells(iRowOutput, 21) = wsImport.Cells(8, 8)
                wsOutput.Cells(iRowOutput, 33) = wsImport.Cells(9, 8)
                wsOutput.Cells(iRowOutput, 34) = wsImport.Cells(10, 8)
                wsOutput.Cells(iRowOutput, 35) = wsImport.Cells(11, 8)


                wsOutput.Cells(iRowOutput, 23) = wsImport.Cells(FoundLabor, 4)



                iRowInput = 1
                iTrailers = 0
                While iTrailers < 100


                    If InStr(1, Trim(wsImport.Cells(iRowInput, 1)), "Labor") > 0 Then
                     wsOutput.Cells(iRowOutput, 22) = wsImport.Cells(iRowInput, 3)


                        ElseIf InStr(1, Trim(wsImport.Cells(iRowInput, 1)), "Labor Number") > 0 Then
                        wsOutput.Cells(iRowOutput, 25) = wsImport.Cells(iRowInput, 3)

                        ElseIf InStr(1, Trim(wsImport.Cells(iRowInput, 1)), "REV") > 0 Then
                        wsOutput.Cells(iRowOutput, 26) = wsImport.Cells(iRowInput, 3)


                        ElseIf InStr(1, Trim(wsImport.Cells(iRowInput, 1)), "Salary") > 0 Then
                        wsOutput.Cells(iRowOutput, 27) = wsImport.Cells(iRowInput, 3)


                        wsOutput.Cells(iRowOutput, 36) = FileDateTime(sDir(iIndexWorkbooks))

                        ElseIf IsEmpty(wsImport.Cells(iRowInput, 3)) = True Then
                        iTrailers = iTrailers + 1

                         Else
                        iTrailers = 0
                        End If
                        iRowInput = iRowInput + 1

                Wend

                iRowOutput = iRowOutput + 1
            End If
        Next iIndexWorksheets
        wbImport.Close savechanges:=False
    Next iIndexWorkbooks
  End Sub

网站的徽标随处可见的这两行代码。我不明白的是，当我将徽标放到容器之外（我只是在尝试）时，它的工作方式与预期的相同。但是，当徽标位于容器内时，它不会到达正确的位置。

The website when the logo is outside of the element (see code below)

    <meta name="viewport" content="width=device-width, initial-scale=1">
    <meta name="viewport" content="height=device-height, initial-scale=1">

The website when the logo is inside the element (see code also below)

<!DOCTYPE html>
<html lang="nl">
<head>
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <meta name="viewport" content="height=device-height, initial-scale=1">
    <meta charset="UTF-8">
    <title>website</title>
    <link rel="stylesheet" href="css/styles.css">
</head>
<body>
    <img src="img/logo.png" alt="leeuwenborgh logo" class="logo">

这是我用于和徽标的CSS 如果还有什么我想念的，我会尽快上传

<!DOCTYPE html>
<html lang="nl">
<head>
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <meta name="viewport" content="height=device-height, initial-scale=1">
    <meta charset="UTF-8">
    <title>website</title>
    <link rel="stylesheet" href="css/styles.css">
</head>
<body>
    <img src="img/logo.png" alt="leeuwenborgh logo" class="logo">

移动友好正在影响要素

0 个答案: